| author | Andreas Schwab <schwab@linux-m68k.org> | 2012-07-17 22:09:55 (GMT) |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2012-07-17 22:09:55 (GMT) |
| commit | 354ff8649e99deb4fb43c0aad37d8f99bf07ed5a (patch) (side-by-side diff) | |
| tree | f6e75a8f55d4cbe1bef980408cf01872c30d4a9a | |
| parent | a48095b48939d21de15ccef9c9352ab92a3ae999 (diff) | |
| download | gnus-354ff8649e99deb4fb43c0aad37d8f99bf07ed5a.zip | |
shr.el (shr-expand-url): Handle URL starting with `//'
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/shr.el | 3 |
2 files changed, 7 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4e73750..eb9aaed 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2012-07-17 Andreas Schwab <schwab@linux-m68k.org> + + * shr.el (shr-expand-url): Handle URL starting with `//'. + 2012-07-13 Chong Yidong <cyd@gnu.org> * smime.el (smime-certificate-info): Set buffer-read-only directly, diff --git a/lisp/shr.el b/lisp/shr.el index bf6e57e..e7a6c5d 100644 --- a/lisp/shr.el +++ b/lisp/shr.el @@ -484,6 +484,9 @@ size, and full-buffer size." (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)) |