gnus-async.el (gnus-async-article-callback): Always prefetch images for groups that...

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index f2e48fc5782e0b0190c3fc3995fc451f221443bd..85150a1adbf08ecfd6d8d2657f326a594385bd94 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,8 @@
 2010-09-06  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-async.el (gnus-async-article-callback): Always prefetch images
+       for groups that want that.
+
        * nntp.el (nntp-wait-for-string): Supply a timeout for
        accept-process-output to ensure progress.
 

diff --git a/lisp/gnus/gnus-async.el b/lisp/gnus/gnus-async.el
index 1e9c1dff77f3b5fd8d0565a5ef5184393200d6b6..434afb68467ab74db619ebd63b2a2ee4e35ec3cc 100644 (file)
--- a/lisp/gnus/gnus-async.el
+++ b/lisp/gnus/gnus-async.el
@@ -238,6 +238,9 @@ that was fetched."
        (save-excursion
          (save-restriction
            (narrow-to-region mark (point-max))
+           ;; Prefetch images for the groups that want that.
+           (when (fboundp 'gnus-html-prefetch-images)
+             (gnus-async-post-fetch-function summary))
            (funcall gnus-async-post-fetch-function summary))))
       (gnus-async-with-semaphore
        (setq