[gnus git] branch master updated: =1= Kill the buffer anyway, and fix the bug in url-http.el instead.

       via  54953e859329102788f57e454326a722b089c0f4 (commit)
      from  2d97a554d6cc6e17791e6c786fce7710f26895f2 (commit)


- Log -----------------------------------------------------------------
commit 54953e859329102788f57e454326a722b089c0f4
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Mon Jan 24 00:54:14 2011 +0100

    Kill the buffer anyway, and fix the bug in url-http.el instead.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8abb533..21fb2c0 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2011-01-23  Lars Ingebrigtsen  <[email protected]>
 
+	* gnus-html.el (gnus-html-image-fetched): Kill the buffer anyway, and
+	fix the bug in url-http.el instead.
+
+	* shr.el (shr-image-fetched): Ditto.
+
 	* shr.el (shr-image-fetched): Avoid having point move in the article
 	buffer.
 
diff --git a/lisp/gnus-html.el b/lisp/gnus-html.el
index 2e969b7..acc018f 100644
--- a/lisp/gnus-html.el
+++ b/lisp/gnus-html.el
@@ -408,7 +408,8 @@ Use ALT-TEXT for the image string."
       (let ((data (buffer-substring (point) (point-max))))
         (with-current-buffer buffer
           (let ((inhibit-read-only t))
-            (gnus-html-put-image data (car image) (cadr image))))))))
+            (gnus-html-put-image data (car image) (cadr image)))))))
+  (kill-buffer (current-buffer)))
 
 (defun gnus-html-get-image-data (url)
   "Get image data for URL.
diff --git a/lisp/shr.el b/lisp/shr.el
index badbcaf..75929b2 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -467,7 +467,8 @@ redirects somewhere else."
 		  (inhibit-read-only t))
 	      (delete-region start end)
 	      (goto-char start)
-	      (shr-put-image data alt))))))))
+	      (shr-put-image data alt)))))))
+  (kill-buffer (current-buffer)))
 
 (defun shr-put-image (data alt)
   (if (display-graphic-p)

-----------------------------------------------------------------------
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-html.el |    3 ++-
 lisp/shr.el       |    3 ++-
 3 files changed, 9 insertions(+), 2 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