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

2 files changed, 6 insertions, 0 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index f2e48fc5782..85150a1adbf 100644
--- 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 1e9c1dff77f..434afb68467 100644
--- 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