mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

gnus-html.el (gnus-html-wash-tags): Check the value ofgnus-blocked-images in the summary buffer.

Browse Source
This commit is contained in:
Lars Magne Ingebrigtsen 2010-09-02 01:14:38 +00:00 committed by Katsumi Yamaoka
parent 9a047bac91
commit 9a4b54dbe6
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View File

@ -1,3 +1,8 @@
2010-09-01 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus-html.el (gnus-html-wash-tags): Check the value of
gnus-blocked-images in the summary buffer.
2010-09-01 Teodor Zlatanov <tzz@lifelogs.com>
* gnus-html.el (gnus-html-image-url-blocked-p): Doc fix.

7
lisp/gnus/gnus-html.el
View File

@ -136,7 +136,12 @@ fit these criteria."
(delete-region start end)
(gnus-put-image image (gnus-string-or string "*")))))
;; Normal, external URL.
(unless (gnus-html-image-url-blocked-p url gnus-blocked-images)
(unless (gnus-html-image-url-blocked-p
url
(if (buffer-live-p gnus-summary-buffer)
(with-current-buffer gnus-summary-buffer
gnus-blocked-images)
gnus-blocked-images))
(let ((file (gnus-html-image-id url)))
(if (file-exists-p file)
;; It's already cached, so just insert it.