# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1283817959 0
# Node ID 1af4bf1c3af485863910aff29835f19895fb2d6b
# Parent  650122532cd318c3455c7bf5c9af3f277f3c093a
gnus-async.el (gnus-async-article-callback): Always prefetch images for groups that want that.

diff -r 650122532cd3 -r 1af4bf1c3af4 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Tue Sep 07 00:04:11 2010 +0000
+++ b/lisp/gnus/ChangeLog	Tue Sep 07 00:05:59 2010 +0000
@@ -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 -r 650122532cd3 -r 1af4bf1c3af4 lisp/gnus/gnus-async.el
--- a/lisp/gnus/gnus-async.el	Tue Sep 07 00:04:11 2010 +0000
+++ b/lisp/gnus/gnus-async.el	Tue Sep 07 00:05:59 2010 +0000
@@ -238,6 +238,9 @@
 	(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