Mercurial > emacs
changeset 110800:751b2ae689b5
[Gnus] 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.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Thu, 07 Oct 2010 06:47:37 +0000 |
| parents | d2b45bb936b6 |
| children | 37b955157790 |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-gravatar.el lisp/gnus/gnus-html.el |
| diffstat | 3 files changed, 12 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Thu Oct 07 03:49:38 2010 +0000 +++ b/lisp/gnus/ChangeLog Thu Oct 07 06:47:37 2010 +0000 @@ -1,3 +1,11 @@ +2010-10-07 Katsumi Yamaoka <yamaoka@jpl.org> + + * 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 <tzz@lifelogs.com> * auth-source.el: Update docs with TODO items.
--- a/lisp/gnus/gnus-gravatar.el Thu Oct 07 03:49:38 2010 +0000 +++ b/lisp/gnus/gnus-gravatar.el Thu Oct 07 06:47:37 2010 +0000 @@ -84,10 +84,9 @@ ;; 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)
--- a/lisp/gnus/gnus-html.el Thu Oct 07 03:49:38 2010 +0000 +++ b/lisp/gnus/gnus-html.el Thu Oct 07 06:47:37 2010 +0000 @@ -361,7 +361,7 @@ '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))))