[gnus git] branch master updated: n0-17-29-g30d1a6c =1= gnus-art.el (gnus-article-mode): Move binding of shr-put-image-function here from gnus-article-prepare-display.

       via  30d1a6c22c8e99ad10a2c08f08ced396ca008939 (commit)
      from  387b3ba7d4c42771d541085cddfc02ebf276521d (commit)


- Log -----------------------------------------------------------------
commit 30d1a6c22c8e99ad10a2c08f08ced396ca008939
Author: Katsumi Yamaoka <[email protected]>
Date:   Tue May 10 07:27:04 2011 +0000

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 49a4776..b9740bb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-05-10  Katsumi Yamaoka  <[email protected]>
 
+	* 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-art.el b/lisp/gnus-art.el
index 13531bf..5ba962d 100644
--- a/lisp/gnus-art.el
+++ b/lisp/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))))

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog   |    3 +++
 lisp/gnus-art.el |    6 +++---
 2 files changed, 6 insertions(+), 3 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project