Make sure the HTML fetching stops when Gnus exits.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bac3f9e..e1f0719 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-12-16  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 2010-12-16  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 

+       * gnus-html.el (gnus-html-schedule-image-fetching): Make sure the HTML
+       fetching stops when Gnus exits.
+

        * nnfolder.el (nnfolder-save-all-buffers): Refactor out into its own
        function.
        (nnfolder-request-expire-articles): Save all the buffers after doing
        * nnfolder.el (nnfolder-save-all-buffers): Refactor out into its own
        function.
        (nnfolder-request-expire-articles): Save all the buffers after doing

diff --git a/lisp/gnus-html.el b/lisp/gnus-html.el
index 63a14b2..deeb356 100644 (file)
--- a/lisp/gnus-html.el
+++ b/lisp/gnus-html.el
@@ -395,7 +395,7 @@ Use ALT-TEXT for the image string."
             4)
       (setq args (nconc args (list t))))
     (ignore-errors
             4)
       (setq args (nconc args (list t))))
     (ignore-errors

-      (apply #'url-retrieve args))))
+      (push (apply #'url-retrieve args) gnus-buffers))))

 
 (defun gnus-html-image-fetched (status buffer image)
   "Callback function called when image has been fetched."
 
 (defun gnus-html-image-fetched (status buffer image)
   "Callback function called when image has been fetched."