Mercurial > emacs

comparison lisp/gnus/gnus-html.el @ 110106:8e1063b66037

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gnus-html.el (gnus-html-wash-tags): Check the value ofgnus-blocked-images in the summary buffer.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Thu, 02 Sep 2010 01:14:38 +0000
parents a2011a3c7791
children ffa0ce354f9d
comparison
equal deleted inserted replaced
110105:a2011a3c7791 110106:8e1063b66037
134 (when image 134 (when image
135 (let ((string (buffer-substring start end))) 135 (let ((string (buffer-substring start end)))
136 (delete-region start end) 136 (delete-region start end)
137 (gnus-put-image image (gnus-string-or string "*"))))) 137 (gnus-put-image image (gnus-string-or string "*")))))
138 ;; Normal, external URL. 138 ;; Normal, external URL.
139 (unless (gnus-html-image-url-blocked-p url gnus-blocked-images) 139 (unless (gnus-html-image-url-blocked-p
140 url
141 (if (buffer-live-p gnus-summary-buffer)
142 (with-current-buffer gnus-summary-buffer
143 gnus-blocked-images)
144 gnus-blocked-images))
140 (let ((file (gnus-html-image-id url))) 145 (let ((file (gnus-html-image-id url)))
141 (if (file-exists-p file) 146 (if (file-exists-p file)
142 ;; It's already cached, so just insert it. 147 ;; It's already cached, so just insert it.
143 (let ((string (buffer-substring start end))) 148 (let ((string (buffer-substring start end)))
144 ;; Delete the ALT text. 149 ;; Delete the ALT text.