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.
(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.
(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)