Commit 814cc274 authored by Katsumi Yamaoka's avatar Katsumi Yamaoka
Browse files

[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.
parent cbabe91f
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.
......
......@@ -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)
......
......@@ -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))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment