Mercurial > emacs

diff lisp/gnus/gnus-html.el @ 110158:64b3982570b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Make gnus-html work for XEmacs.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Fri, 03 Sep 2010 02:29:03 +0000
parents a2439ed30c52
children 2fe16dc7896c
line wrap: on
line diff
--- a/lisp/gnus/gnus-html.el	Fri Sep 03 01:00:10 2010 +0000
+++ b/lisp/gnus/gnus-html.el	Fri Sep 03 02:29:03 2010 +0000
@@ -242,11 +242,13 @@
 	(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