[Emacs-diffs] /srv/bzr/emacs/emacs-24 r108067: * shr.el (shr-expand-url): Handle URL starting with `//'.

[Andreas Schwab]

------------------------------------------------------------
revno: 108067
committer: Andreas Schwab <address@hidden>
branch nick: emacs
timestamp: Tue 2012-07-10 11:42:48 +0200
message:
  * shr.el (shr-expand-url): Handle URL starting with `//'.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/shr.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2012-06-10 22:16:03 +0000
+++ b/lisp/gnus/ChangeLog       2012-07-10 09:42:48 +0000
@@ -1,3 +1,7 @@
+2012-07-10  Andreas Schwab  <address@hidden>
+
+       * shr.el (shr-expand-url): Handle URL starting with `//'.
+
 2012-06-10  Toke Høiland-Jørgensen  <address@hidden>  (tiny change)
 
        * nnmaildir.el (nnmaildir-request-expire-articles): Ensure that `time'

=== modified file 'lisp/gnus/shr.el'
--- a/lisp/gnus/shr.el  2012-06-10 22:16:03 +0000
+++ b/lisp/gnus/shr.el  2012-07-10 09:42:48 +0000
@@ -445,6 +445,9 @@
        (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))