martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages 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