mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

gnus-art.el (gnus-article-mode): Move binding of shr-put-image-function here from gnus-article-prepare-display.

Browse source
This commit is contained in:
Katsumi Yamaoka 2011-05-10 07:30:49 +00:00
parent b9bdaf749f
commit ffb54e99ad
2 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -4418,6 +4418,7 @@ If variable `gnus-use-long-file-name' is non-nil, it is
(gnus-run-hooks 'gnus-article-menu-hook)))
(defvar bookmark-make-record-function)
(defvar shr-put-image-function)
(defun gnus-article-mode ()
"Major mode for displaying an article.
@ -4461,6 +4462,8 @@ commands:
;; Prevent Emacs 22 from displaying non-break space with `nobreak-space'
;; face.
(set (make-local-variable 'nobreak-char-display) nil)
;; Enable `gnus-article-remove-images' to delete images shr.el renders.
(set (make-local-variable 'shr-put-image-function) 'gnus-shr-put-image)
(setq cursor-in-non-selected-windows nil)
(gnus-set-default-directory)
(buffer-disable-undo)
@ -4656,8 +4659,6 @@ If ALL-HEADERS is non-nil, no headers are hidden."
(gnus-run-hooks 'gnus-article-prepare-hook)
t))))))
(defvar shr-put-image-function)
;;;###autoload
(defun gnus-article-prepare-display ()
"Make the current buffer look like a nice article."
@ -4671,7 +4672,6 @@ If ALL-HEADERS is non-nil, no headers are hidden."
(setq buffer-read-only nil
gnus-article-wash-types nil
gnus-article-image-alist nil)
(set (make-local-variable 'shr-put-image-function) 'gnus-shr-put-image)
(gnus-run-hooks 'gnus-tmp-internal-hook)
(when gnus-display-mime-function
(funcall gnus-display-mime-function))))