From 9917831102183cf3cedd2d6a603048fa9289a25f Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Thu, 7 Oct 2010 06:45:14 +0000 Subject: [PATCH] Enable XEmacs to display images. gnus-html.el (gnus-html-schedule-image-fetching): Remove function name from XEmacs' function-arglist. gnus-gravatar.el (gnus-gravatar-insert): Don't add properties to gravatar under XEmacs. --- lisp/ChangeLog | 8 ++++++++ lisp/gnus-gravatar.el | 7 +++---- lisp/gnus-html.el | 2 +- 3 files changed, 12 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 49dea4b71..d3688781c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2010-10-07 Katsumi Yamaoka + + * gnus-html.el (gnus-html-schedule-image-fetching): Remove function + name from XEmacs' function-arglist. + + * gnus-gravatar.el (gnus-gravatar-insert): Don't add properties to + gravatar under XEmacs. + 2010-10-07 Teodor Zlatanov * auth-source.el: Update docs with TODO items. diff --git a/lisp/gnus-gravatar.el b/lisp/gnus-gravatar.el index de373cfdf..ecd9f753f 100644 --- a/lisp/gnus-gravatar.el +++ b/lisp/gnus-gravatar.el @@ -84,10 +84,9 @@ Set image category to CATEGORY." ;; another mail with the same someaddress. (unless (memq 'gnus-gravatar (text-properties-at (point))) (let ((inhibit-read-only t) - (point (point)) - (gravatar (append - gravatar - gnus-gravatar-properties))) + (point (point))) + (unless (featurep 'xemacs) + (setq gravatar (append gravatar gnus-gravatar-properties))) (gnus-put-image gravatar nil category) (put-text-property point (point) 'gnus-gravatar address) (gnus-add-wash-type category) diff --git a/lisp/gnus-html.el b/lisp/gnus-html.el index a21c4784d..c1472118c 100644 --- a/lisp/gnus-html.el +++ b/lisp/gnus-html.el @@ -361,7 +361,7 @@ Use ALT-TEXT for the image string." 'gnus-html-image-fetched (list buffer image)))) (when (> (length (if (featurep 'xemacs) - (split-string (function-arglist 'url-retrieve)) + (cdr (split-string (function-arglist 'url-retrieve))) (help-function-arglist 'url-retrieve))) 4) (setq args (nconc args (list t)))) -- 2.34.1