Mercurial > emacs

diff lisp/gnus/gnus-util.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 8d09094063d0
children f2e111723c3a
line wrap: on
line diff
--- a/lisp/gnus/gnus-util.el	Fri Sep 03 01:00:10 2010 +0000
+++ b/lisp/gnus/gnus-util.el	Fri Sep 03 02:29:03 2010 +0000
@@ -1580,11 +1580,9 @@
    (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))