From: Lars Magne Ingebrigtsen Date: Thu, 21 Oct 2010 03:48:01 +0000 (+0000) Subject: gnus-html.el (gnus-html-prefetch-images): Only prefetch http images to avoid trying... X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~45^2~534 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d815edf0e616acb8312be815a423a7f489c93814;p=emacs.git gnus-html.el (gnus-html-prefetch-images): Only prefetch http images to avoid trying to snarf invalid stuff. --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index f8082923a51..1c3708e9526 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,8 +1,9 @@ -2010-10-21 Katsumi Yamaoka +2010-10-21 Lars Magne Ingebrigtsen - * gnus-sum.el (gnus-summary-edit-article-done): Bind replace-result. + * gnus-html.el (gnus-html-prefetch-images): Only prefetch http images + to avoid trying to snarf invalid stuff. -2010-10-21 Lars Magne Ingebrigtsen + * 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. diff --git a/lisp/gnus/gnus-html.el b/lisp/gnus/gnus-html.el index 861ad73d089..77f771dc850 100644 --- a/lisp/gnus/gnus-html.el +++ b/lisp/gnus/gnus-html.el @@ -493,7 +493,7 @@ This only works if the article in question is HTML." (let ((blocked-images (with-current-buffer summary (gnus-blocked-images)))) (save-match-data - (while (re-search-forward "]+src=[\"']\\([^\"']+\\)" nil t) + (while (re-search-forward "]+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)