[gnus git] branch master updated: =1= gnus-art.el (gnus-article-remove-images, gnus-article-show-images): Widen article buffer.

       via  6ca1c891ef72273c7ce70d1874465c3209327230 (commit)
      from  04717999d979335e5dfd66ade42d283131ec5eba (commit)


- Log -----------------------------------------------------------------
commit 6ca1c891ef72273c7ce70d1874465c3209327230
Author: Katsumi Yamaoka <[email protected]>
Date:   Fri Jan 21 04:14:51 2011 +0000

    gnus-art.el (gnus-article-remove-images, gnus-article-show-images): Widen article buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2ff2d9a..860c47a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-01-21  Katsumi Yamaoka  <[email protected]>
+
+	* gnus-art.el (gnus-article-remove-images, gnus-article-show-images):
+	Widen article buffer.
+
 2011-01-20  Stefan Monnier  <[email protected]>
 
 	* mm-util.el (mm-find-buffer-file-coding-system): Don't forget to kill
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 280914d..e6627b0 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2275,19 +2275,23 @@ unfolded."
   "Remove all images from the article buffer."
   (interactive)
   (gnus-with-article-buffer
+    (save-restriction
+      (widen)
     (dolist (elem gnus-article-image-alist)
-      (gnus-delete-images (car elem)))))
+	(gnus-delete-images (car elem))))))
 
 (defun gnus-article-show-images ()
   "Show any images that are in the HTML-rendered article buffer.
 This only works if the article in question is HTML."
   (interactive)
   (gnus-with-article-buffer
+    (save-restriction
+      (widen)
     (dolist (region (gnus-find-text-property-region (point-min) (point-max)
 						    'image-displayer))
       (destructuring-bind (start end function) region
 	(funcall function (get-text-property start 'image-url)
-		 start end)))))
+		   start end))))))
 
 (defun gnus-article-treat-fold-newsgroups ()
   "Unfold folded message headers.

-----------------------------------------------------------------------
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   |    5 +++++
 lisp/gnus-art.el |   18 +++++++++++-------
 2 files changed, 16 insertions(+), 7 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