From 54953e859329102788f57e454326a722b089c0f4 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Mon, 24 Jan 2011 00:54:14 +0100 Subject: [PATCH] Kill the buffer anyway, and fix the bug in url-http.el instead. --- lisp/ChangeLog | 5 +++++ lisp/gnus-html.el | 3 ++- lisp/shr.el | 3 ++- 3 files changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8abb53338..21fb2c0e3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2011-01-23 Lars Ingebrigtsen + * 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 2e969b75f..acc018f82 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 badbcaf3f..75929b29e 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) -- 2.34.1