changeset 110258:1af4bf1c3af4

gnus-async.el (gnus-async-article-callback): Always prefetch images for groups that want that.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Tue, 07 Sep 2010 00:05:59 +0000
parents 650122532cd3
children b350cc580a0f
files lisp/gnus/ChangeLog lisp/gnus/gnus-async.el
diffstat 2 files changed, 6 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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.
 
--- 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