diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2010-10-21 03:48:01 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-10-21 03:48:01 +0000 |
| commit | d815edf0e616acb8312be815a423a7f489c93814 (patch) | |
| tree | 87ce11ccf0029799a8966f212c6b0ab9dcce89b4 /lisp/gnus/gnus-html.el | |
| parent | 1171414dae0871ae356b716f623b2799030ca8ab (diff) | |
| download | emacs-d815edf0e616acb8312be815a423a7f489c93814.tar.gz | |
gnus-html.el (gnus-html-prefetch-images): Only prefetch http images to avoid trying to snarf invalid stuff.
Diffstat (limited to 'lisp/gnus/gnus-html.el')
| -rw-r--r-- | lisp/gnus/gnus-html.el | 2 |
1 files changed, 1 insertions, 1 deletions
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 "<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) |