(gnus-async-article-callback): Call `gnus-html-prefetch-images' unconditionally.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 15c779b..107e24c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-09-08  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-async.el (gnus-async-article-callback): Call
+       `gnus-html-prefetch-images' unconditionally.
+
        * gnus-html.el (gnus-html-schedule-image-fetching): Decode entities
        before feeding URLs to curl.
 

diff --git a/lisp/gnus-async.el b/lisp/gnus-async.el
index 5b19adc..979e671 100644 (file)
--- a/lisp/gnus-async.el
+++ b/lisp/gnus-async.el
@@ -237,13 +237,13 @@ that was fetched."
     (setq gnus-async-current-prefetch-article nil)
     (when arg
       (gnus-async-set-buffer)
-      (when gnus-async-post-fetch-function
-       (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-html-prefetch-images summary))
+      (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-html-prefetch-images summary))
+         (when gnus-async-post-fetch-function
            (funcall gnus-async-post-fetch-function summary))))
       (gnus-async-with-semaphore
        (setq