Mercurial > emacs

comparison lisp/gnus/gnus-html.el @ 110768:c389bae37f05

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gnus-html.el (gnus-html-schedule-image-fetching): Work for XEmacs.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Tue, 05 Oct 2010 03:48:30 +0000
parents 5c603f558199
children 276ecc27ad6b
comparison
equal deleted inserted replaced
110767:2c36d4f54456 110768:c389bae37f05
35 (require 'mm-url) 35 (require 'mm-url)
36 (require 'url) 36 (require 'url)
37 (require 'url-cache) 37 (require 'url-cache)
38 (require 'xml) 38 (require 'xml)
39 (require 'browse-url) 39 (require 'browse-url)
40 (require 'help-fns) 40 (eval-and-compile (unless (featurep 'xemacs) (require 'help-fns)))
41 41
42 (defcustom gnus-html-image-cache-ttl (days-to-time 7) 42 (defcustom gnus-html-image-cache-ttl (days-to-time 7)
43 "Time used to determine if we should use images from the cache." 43 "Time used to determine if we should use images from the cache."
44 :version "24.1" 44 :version "24.1"
45 :group 'gnus-art 45 :group 'gnus-art
365 (gnus-message 8 "gnus-html-schedule-image-fetching: buffer %s, image %s" 365 (gnus-message 8 "gnus-html-schedule-image-fetching: buffer %s, image %s"
366 buffer image) 366 buffer image)
367 (let ((args (list (car image) 367 (let ((args (list (car image)
368 'gnus-html-image-fetched 368 'gnus-html-image-fetched
369 (list buffer image)))) 369 (list buffer image))))
370 (when (> (length (help-function-arglist 'url-retrieve)) 4) 370 (when (> (length (if (featurep 'xemacs)
371 (split-string (function-arglist 'url-retrieve))
372 (help-function-arglist 'url-retrieve)))
373 4)
371 (setq args (nconc args (list t)))) 374 (setq args (nconc args (list t))))
372 (apply #'url-retrieve args))) 375 (apply #'url-retrieve args)))
373 376
374 (defun gnus-html-image-fetched (status buffer image) 377 (defun gnus-html-image-fetched (status buffer image)
375 "Callback function called when image has been fetched." 378 "Callback function called when image has been fetched."