[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/emacs-24 r108067: * shr.el (shr-expand-url)
From: |
Andreas Schwab |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/emacs-24 r108067: * shr.el (shr-expand-url): Handle URL starting with `//'. |
Date: |
Tue, 10 Jul 2012 11:42:48 +0200 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/emacs-24 r108067: * shr.el (shr-expand-url): Handle URL starting with `//'.,
Andreas Schwab <=