aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/gnus
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/gnus')
-rw-r--r--lisp/gnus/ChangeLog5
-rw-r--r--lisp/gnus/shr.el3
2 files changed, 8 insertions, 0 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 41966497607..6c1d2b9b624 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
12012-07-17 Andreas Schwab <schwab@linux-m68k.org>
2
3 * shr.el (shr-expand-url): Handle URL starting with `//'.
4
52012-07-17 Toke Høiland-Jørgensen <toke@toke.dk> (tiny change)
12012-07-13 Chong Yidong <cyd@gnu.org> 62012-07-13 Chong Yidong <cyd@gnu.org>
2 7
3 * smime.el (smime-certificate-info): Set buffer-read-only directly, 8 * smime.el (smime-certificate-info): Set buffer-read-only directly,
diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el
index bf6e57e8d79..e7a6c5d2081 100644
--- a/lisp/gnus/shr.el
+++ b/lisp/gnus/shr.el
@@ -484,6 +484,9 @@ size, and full-buffer size."
484 (string-match "\\`[a-z]*:" url) 484 (string-match "\\`[a-z]*:" url)
485 (not shr-base)) 485 (not shr-base))
486 url) 486 url)
487 ((and (string-match "\\`//" url)
488 (string-match "\\`[a-z]*:" shr-base))
489 (concat (match-string 0 shr-base) url))
487 ((and (not (string-match "/\\'" shr-base)) 490 ((and (not (string-match "/\\'" shr-base))
488 (not (string-match "\\`/" url))) 491 (not (string-match "\\`/" url)))
489 (concat shr-base "/" url)) 492 (concat shr-base "/" url))