mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

gnus-async.el (gnus-html-prefetch-images): Autoload it when compiling; (gnus-async-article-callback): Fix typo.

Browse source
This commit is contained in:
Katsumi Yamaoka 2010-09-07 01:20:19 +00:00
parent f9e506776a
commit 16ec6ca434
2 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View file

@ -1,3 +1,8 @@
2010-09-07 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-async.el (gnus-html-prefetch-images): Autoload it when compiling.
(gnus-async-article-callback): Fix typo.
2010-09-06 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus-html.el (gnus-html-wash-tags): Limit end-tag matching to the

5
lisp/gnus/gnus-async.el
View file

@ -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