Mercurial > emacs
changeset 110768:c389bae37f05
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 | 2c36d4f54456 |
| children | ca7895148434 |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-html.el |
| diffstat | 2 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Mon Oct 04 19:40:34 2010 -0700 +++ b/lisp/gnus/ChangeLog Tue Oct 05 03:48:30 2010 +0000 @@ -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>
--- a/lisp/gnus/gnus-html.el Mon Oct 04 19:40:34 2010 -0700 +++ b/lisp/gnus/gnus-html.el Tue Oct 05 03:48:30 2010 +0000 @@ -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 @@ (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)))