Commit 73137971 authored by Katsumi Yamaoka's avatar Katsumi Yamaoka
Browse files

Make gnus-html work for XEmacs.

parent 3fb8f8a1
2010-09-03 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-html.el (gnus-html-put-image): Use gnus-graphic-display-p,
glyph-width and glyph-height instead of display-graphic-p and
image-size for XEmacs.
* gnus-util.el (gnus-graphic-display-p): Use device-on-window-system-p
for XEmacs.
* gnus-ems.el (gnus-set-process-plist, gnus-process-plist): Change name
of symbol that holds plist data.
(gnus-process-plist): Remove plist of process after getting it.
......
......@@ -242,11 +242,13 @@ fit these criteria."
(gnus-html-schedule-image-fetching buffer images)))))
(defun gnus-html-put-image (file point string)
(when (display-graphic-p)
(when (gnus-graphic-display-p)
(let* ((image (ignore-errors
(gnus-create-image file)))
(size (and image
(image-size image t))))
(if (featurep 'xemacs)
(cons (glyph-width image) (glyph-height image))
(image-size image t)))))
(save-excursion
(goto-char point)
(if (and image
......
......@@ -1580,11 +1580,9 @@ SPEC is a predicate specifier that contains stuff like `or', `and',
(car (symbol-value history))))
(defun gnus-graphic-display-p ()
(or (and (fboundp 'display-graphic-p)
(display-graphic-p))
;;;!!!This is bogus. Fixme!
(and (featurep 'xemacs)
t)))
(if (featurep 'xemacs)
(device-on-window-system-p)
(display-graphic-p)))
(put 'gnus-parse-without-error 'lisp-indent-function 0)
(put 'gnus-parse-without-error 'edebug-form-spec '(body))
......
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