procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

gnus-art.el (gnus-inhibit-images): New user option.

Browse source 
* 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.
This commit is contained in:
Katsumi Yamaoka 2010-11-17 07:22:19 +00:00
parent 6b4bb7039f
commit 40de2c6dd3
4 changed files with 43 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/gnus/gnus-art.el
View file

@ -1636,6 +1636,12 @@ This requires GNU Libidn, and by default only enabled if it is found."
:group 'gnus-article
:type 'boolean)
(defcustom gnus-inhibit-images nil
"Non-nil means inhibit displaying of images inline in the article body."
:version "24.1"
:group 'gnus-article
:type 'boolean)
(defcustom gnus-blocked-images 'gnus-block-private-groups
"Images that have URLs matching this regexp will be blocked.
This can also be a function to be evaluated. If so, it will be
@ -5845,7 +5851,9 @@ If displaying \"text/html\" is discouraged \(see
(while ignored
(when (string-match (pop ignored) type)
(throw 'ignored nil)))
(if (and (setq not-attachment
(if (and (not (and gnus-inhibit-images
(string-match "\\`image/" type)))
(setq not-attachment
(and (not (mm-inline-override-p handle))
(or (not (mm-handle-disposition handle))
(equal (car (mm-handle-disposition handle))