From: Lars Magne Ingebrigtsen Date: Tue, 7 Sep 2010 00:05:59 +0000 (+0000) Subject: gnus-async.el (gnus-async-article-callback): Always prefetch images for groups that... X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~48^2~46 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8d40858522a02df140b790b066b8d16b2df11e24;p=emacs.git gnus-async.el (gnus-async-article-callback): Always prefetch images for groups that want that. --- 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 + * 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