From ffb54e99ad5c0c3529e22eec4d112d64977f81a3 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Tue, 10 May 2011 07:30:49 +0000 Subject: [PATCH] gnus-art.el (gnus-article-mode): Move binding of shr-put-image-function here from gnus-article-prepare-display. --- lisp/gnus/ChangeLog | 3 +++ lisp/gnus/gnus-art.el | 6 +++--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 1460896dd89..5f7cd9f546b 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,5 +1,8 @@ 2011-05-10 Katsumi Yamaoka + * gnus-art.el (gnus-article-mode): Move binding of + shr-put-image-function here from gnus-article-prepare-display. + * shr.el (shr-put-image-function): New variable. (shr-image-fetched, shr-image-displayer, shr-tag-img): Funcall it. (shr-put-image): Return scaled image. diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 13531bf434e..5ba962d1d39 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -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)))) -- 2.39.5