Mercurial > emacs
changeset 111077:b4556938af92
gnus-html.el (gnus-html-prefetch-images): Only prefetch http images to avoid trying to snarf invalid stuff.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Thu, 21 Oct 2010 03:48:01 +0000 |
| parents | ef2f1f7d574b |
| children | 647c0a15da32 |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-html.el |
| diffstat | 2 files changed, 6 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Thu Oct 21 02:52:45 2010 +0000 +++ b/lisp/gnus/ChangeLog Thu Oct 21 03:48:01 2010 +0000 @@ -1,9 +1,10 @@ -2010-10-21 Katsumi Yamaoka <yamaoka@jpl.org> - - * gnus-sum.el (gnus-summary-edit-article-done): Bind replace-result. - 2010-10-21 Lars Magne Ingebrigtsen <larsi@gnus.org> + * gnus-html.el (gnus-html-prefetch-images): Only prefetch http images + to avoid trying to snarf invalid stuff. + + * gnus-sum.el (gnus-summary-edit-article-done): Bind free variable. + * gnus.el (gnus-message-archive-group): Quote value. (gnus-message-archive-group): Mark as changed.
--- a/lisp/gnus/gnus-html.el Thu Oct 21 02:52:45 2010 +0000 +++ b/lisp/gnus/gnus-html.el Thu Oct 21 03:48:01 2010 +0000 @@ -493,7 +493,7 @@ (let ((blocked-images (with-current-buffer summary (gnus-blocked-images)))) (save-match-data - (while (re-search-forward "<img[^>]+src=[\"']\\([^\"']+\\)" nil t) + (while (re-search-forward "<img[^>]+src=[\"']\\(http[^\"']+\\)" nil t) (let ((url (gnus-html-encode-url (match-string 1)))) (unless (gnus-html-image-url-blocked-p url blocked-images) (when (gnus-html-cache-expired url gnus-html-image-cache-ttl)