From 8d40858522a02df140b790b066b8d16b2df11e24 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Tue, 7 Sep 2010 00:05:59 +0000 Subject: [PATCH] gnus-async.el (gnus-async-article-callback): Always prefetch images for groups that want that. --- lisp/gnus/ChangeLog | 3 +++ lisp/gnus/gnus-async.el | 3 +++ 2 files changed, 6 insertions(+) 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 -- 2.39.2