[Emacs-diffs] /srv/bzr/emacs/trunk r104182: gnus-art.el (gnus-article-mode): Move binding of shr-put-image-function here from gnus-article-prepare-display.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 104182
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Tue 2011-05-10 07:30:49 +0000
message:
  gnus-art.el (gnus-article-mode): Move binding of shr-put-image-function here 
from gnus-article-prepare-display.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-art.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-05-10 03:14:44 +0000
+++ b/lisp/gnus/ChangeLog       2011-05-10 07:30:49 +0000
@@ -1,5 +1,8 @@
 2011-05-10  Katsumi Yamaoka  <address@hidden>
 
+       * 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.

=== modified file 'lisp/gnus/gnus-art.el'
--- a/lisp/gnus/gnus-art.el     2011-05-10 03:14:44 +0000
+++ b/lisp/gnus/gnus-art.el     2011-05-10 07:30:49 +0000
@@ -4418,6 +4418,7 @@
     (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 @@
   ;; 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 @@
            (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 @@
     (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))))