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-html.el (gnus-html-schedule-image-fetching): Work for XEmacs.

Browse source
This commit is contained in:
Katsumi Yamaoka 2010-10-05 03:48:30 +00:00
parent 888328d21b
commit 9c6194000c
2 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/gnus/ChangeLog
View file

@ -1,5 +1,8 @@
2010-10-05 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-html.el: Don't require help-fns under XEmacs.
(gnus-html-schedule-image-fetching): Work for XEmacs.
* mm-decode.el (mm-shr): Decode contents by charset.
2010-10-04 Lars Magne Ingebrigtsen <larsi@gnus.org>

7
lisp/gnus/gnus-html.el
View file

@ -37,7 +37,7 @@
(require 'url-cache)
(require 'xml)
(require 'browse-url)
(require 'help-fns)
(eval-and-compile (unless (featurep 'xemacs) (require 'help-fns)))
(defcustom gnus-html-image-cache-ttl (days-to-time 7)
"Time used to determine if we should use images from the cache."
@ -367,7 +367,10 @@ Use ALT-TEXT for the image string."
(let ((args (list (car image)
'gnus-html-image-fetched
(list buffer image))))
(when (> (length (help-function-arglist 'url-retrieve)) 4)
(when (> (length (if (featurep 'xemacs)
(split-string (function-arglist 'url-retrieve))
(help-function-arglist 'url-retrieve)))
4)
(setq args (nconc args (list t))))
(apply #'url-retrieve args)))