Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 10:57:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

* shr.el (shr-expand-url): Handle URL starting with `//'.

Browse source
This commit is contained in:
Andreas Schwab 2012-07-10 11:42:48 +02:00
parent aa7aaf8f0b
commit 9598ddae26
2 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/gnus/ChangeLog
View file

@ -1,3 +1,7 @@
2012-07-10 Andreas Schwab <schwab@linux-m68k.org>
* shr.el (shr-expand-url): Handle URL starting with `//'.
2012-06-10 Toke Høiland-Jørgensen <toke@toke.dk> (tiny change)
* nnmaildir.el (nnmaildir-request-expire-articles): Ensure that `time'

3
lisp/gnus/shr.el
View file

@ -445,6 +445,9 @@ the URL of the image to the kill buffer instead."
(string-match "\\`[a-z]*:" url)
(not shr-base))
url)
((and (string-match "\\`//" url)
(string-match "\\`[a-z]*:" shr-base))
(concat (match-string 0 shr-base) url))
((and (not (string-match "/\\'" shr-base))
(not (string-match "\\`/" url)))
(concat shr-base "/" url))