From 16ec6ca43473d99fbcb02c17bc37a3c02ed5891d Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Tue, 7 Sep 2010 01:20:19 +0000 Subject: [PATCH] gnus-async.el (gnus-html-prefetch-images): Autoload it when compiling; (gnus-async-article-callback): Fix typo. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/gnus-async.el | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 509ad305d54..3f115f1e3c9 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2010-09-07 Katsumi Yamaoka + + * gnus-async.el (gnus-html-prefetch-images): Autoload it when compiling. + (gnus-async-article-callback): Fix typo. + 2010-09-06 Lars Magne Ingebrigtsen * gnus-html.el (gnus-html-wash-tags): Limit end-tag matching to the diff --git a/lisp/gnus/gnus-async.el b/lisp/gnus/gnus-async.el index 434afb68467..5b19adc2054 100644 --- a/lisp/gnus/gnus-async.el +++ b/lisp/gnus/gnus-async.el @@ -228,6 +228,9 @@ that was fetched." `(lambda (arg) (gnus-async-article-callback arg ,group ,article ,mark ,summary ,next))) +(eval-when-compile + (autoload 'gnus-html-prefetch-images "gnus-html")) + (defun gnus-async-article-callback (arg group article mark summary next) "Function called when an async article is done being fetched." (save-excursion @@ -240,7 +243,7 @@ that was fetched." (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)) + (gnus-html-prefetch-images summary)) (funcall gnus-async-post-fetch-function summary)))) (gnus-async-with-semaphore (setq -- 2.39.2