From: Lars Magne Ingebrigtsen Date: Thu, 21 Oct 2010 02:53:49 +0000 (+0200) Subject: Only prefetch http images to avoid trying to snarf invalid stuff. X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=ddb104ef6cbadea58d4c035eef606b8c38ac1a35;p=gnus Only prefetch http images to avoid trying to snarf invalid stuff. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 076d7e812..1987652a1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2010-10-21 Lars Magne Ingebrigtsen + * 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. diff --git a/lisp/gnus-html.el b/lisp/gnus-html.el index 861ad73d0..77f771dc8 100644 --- a/lisp/gnus-html.el +++ b/lisp/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)