Mercurial > emacs

comparison lisp/gnus/gnus-async.el @ 110276:07962d48d848

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gnus-html.el (gnus-html-schedule-image-fetching): Decode entities before feeding URLs to curl. gnus-async.el (gnus-async-article-callback): Call `gnus-html-prefetch-images' unconditionally.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Wed, 08 Sep 2010 23:51:10 +0000
parents 8a1ec5899552
children f2e111723c3a
comparison
equal deleted inserted replaced
110275:f8f2730ec233 110276:07962d48d848
235 "Function called when an async article is done being fetched." 235 "Function called when an async article is done being fetched."
236 (save-excursion 236 (save-excursion
237 (setq gnus-async-current-prefetch-article nil) 237 (setq gnus-async-current-prefetch-article nil)
238 (when arg 238 (when arg
239 (gnus-async-set-buffer) 239 (gnus-async-set-buffer)
240 (when gnus-async-post-fetch-function 240 (save-excursion
241 (save-excursion 241 (save-restriction
242 (save-restriction 242 (narrow-to-region mark (point-max))
243 (narrow-to-region mark (point-max)) 243 ;; Prefetch images for the groups that want that.
244 ;; Prefetch images for the groups that want that. 244 (when (fboundp 'gnus-html-prefetch-images)
245 (when (fboundp 'gnus-html-prefetch-images) 245 (gnus-html-prefetch-images summary))
246 (gnus-html-prefetch-images summary)) 246 (when gnus-async-post-fetch-function
247 (funcall gnus-async-post-fetch-function summary)))) 247 (funcall gnus-async-post-fetch-function summary))))
248 (gnus-async-with-semaphore 248 (gnus-async-with-semaphore
249 (setq 249 (setq
250 gnus-async-article-alist 250 gnus-async-article-alist
251 (cons (list (intern (format "%s-%d" group article) 251 (cons (list (intern (format "%s-%d" group article)