Mercurial > emacs

diff lisp/gnus/mm-decode.el @ 111577:db20adbc4108

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gnus-art.el (gnus-inhibit-images): New user option. * gnus-art.el (gnus-inhibit-images): New user option. (gnus-mime-display-single): Don't display image if it is non-nil. * mm-decode.el (mm-shr): Bind shr-inhibit-images to the value of gnus-inhibit-images. * shr.el (shr-image-displayer): New function. (shr-tag-img): Use it.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Wed, 17 Nov 2010 07:22:19 +0000
parents 5b30cfe2d392
children 3334777d733d
line wrap: on
line diff
--- a/lisp/gnus/mm-decode.el	Wed Nov 17 14:51:36 2010 +0900
+++ b/lisp/gnus/mm-decode.el	Wed Nov 17 07:22:19 2010 +0000
@@ -1687,6 +1687,7 @@
 		  (start end &optional base-url))
 (declare-function shr-insert-document "shr" (dom))
 (defvar shr-blocked-images)
+(defvar gnus-inhibit-images)
 (autoload 'gnus-blocked-images "gnus-art")
 
 (defun mm-shr (handle)
@@ -1703,6 +1704,7 @@
 				  (when handle
 				    (mm-with-part handle
 				      (buffer-string))))))
+	(shr-inhibit-images gnus-inhibit-images)
 	charset)
     (unless handle
       (setq handle (mm-dissect-buffer t)))