From 2d2c26f963f1d87d30fad87e312efd0477663ef6 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Wed, 8 Sep 2010 15:20:48 +0200 Subject: [PATCH] (gnus-async-article-callback): Call `gnus-html-prefetch-images' unconditionally. --- lisp/ChangeLog | 3 +++ lisp/gnus-async.el | 14 +++++++------- 2 files changed, 10 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 15c779b70..107e24c5c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2010-09-08 Lars Magne Ingebrigtsen + * 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 5b19adc20..979e67120 100644 --- 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 -- 2.34.1