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 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2011-01-23  Lars Ingebrigtsen  <larsi@gnus.org>
 
+       * 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 (file)
--- 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 (file)
--- 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)