From: yamaoka <yamaoka>
Date: Tue, 26 Oct 1999 12:58:21 +0000 (+0000)
Subject: (gnus-treat-display-smileys): Default to nil if `window-system' is nil.
X-Git-Tag: t-gnus-6_13_2-14~2
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5e011cb9ce2a4569dbc9f41e8a29ae6e8242f0e1;p=elisp%2Fgnus.git-

(gnus-treat-display-smileys): Default to nil if `window-system' is nil.
(gnus-article-x-face-command): Default to external command if `window-system'
is nil.
---

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 1a7d764..9c66e40 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -213,7 +213,9 @@ regexp.  If it matches, the text in question is not a signature."
   :group 'gnus-article-hiding)
 
 (defcustom gnus-article-x-face-command
-  (if (module-installed-p 'x-face-mule)
+  (if (and (not gnus-xemacs)
+	   window-system
+	   (module-installed-p 'x-face-mule))
       'x-face-mule-gnus-article-display-x-face
     "{ echo '/* Width=48, Height=48 */'; uncompface; } | icontopbm | display -"
     )
@@ -885,7 +887,9 @@ See the manual for details."
 
 (defcustom gnus-treat-display-smileys
   (if (or (and gnus-xemacs (featurep 'xpm))
-	  (module-installed-p 'smiley-mule))
+	  (and (not gnus-xemacs)
+	       window-system
+	       (module-installed-p 'smiley-mule)))
       t
     nil)
   "Display smileys.