From: yamaoka <yamaoka>
Date: Mon, 24 Mar 2003 23:42:27 +0000 (+0000)
Subject: * gnus-art.el (gnus-article-x-face-command): Don't examine functions if
X-Git-Tag: t-gnus-6_15_17-00~1
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fgnus.git-;a=commitdiff_plain;h=aee15b3b79e95fd011d113d9e4bc354d1d55e51c

* gnus-art.el (gnus-article-x-face-command): Don't examine functions if
 `noninteractive'.
(gnus-article-should-use-smiley-mule): Don't examine values if
 `noninteractive'.
(gnus-treat-display-face): Default to nil if x-face-e21 is available.
(gnus-treat-display-smileys): Don't examine values if `noninteractive'.
---

diff --git a/ChangeLog b/ChangeLog
index cf6061d..983e7e7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,14 @@
 2003-03-24  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+	* lisp/gnus-art.el (gnus-article-x-face-command): Don't examine
+	functions if `noninteractive'.
+	(gnus-article-should-use-smiley-mule): Don't examine values if
+	`noninteractive'.
+	(gnus-treat-display-face): Default to nil if x-face-e21 is
+	available.
+	(gnus-treat-display-smileys): Don't examine values if
+	`noninteractive'.
+
 	* lisp/message.el (message-yank-original): Check not only the
 	References field but the `message-reply-headers' variable.
 
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index f1ad33d..13c28b7 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -253,6 +253,8 @@ regexp.  If it matches, the text in question is not a signature."
 ;; non-graphical frames in a session.
 (defcustom gnus-article-x-face-command
   (cond
+   (noninteractive
+    'ignore)
    ((featurep 'xemacs)
     (if (or (gnus-image-type-available-p 'xface)
 	    (gnus-image-type-available-p 'pbm))
@@ -1222,12 +1224,14 @@ even if you are using Emacs 21+.  It has no effect on XEmacs."
   :group 'gnus-article-various
   :type 'boolean
   :get (lambda (symbol)
-	 (and (default-value symbol)
+	 (and (not noninteractive)
+	      (default-value symbol)
 	      (not (featurep 'xemacs))
 	      (module-installed-p 'smiley-mule)
 	      t))
   :set (lambda (symbol value)
-	 (set-default symbol (and value
+	 (set-default symbol (and (not noninteractive)
+				  value
 				  (not (featurep 'xemacs))
 				  (module-installed-p 'smiley-mule)
 				  t))))
@@ -1238,6 +1242,9 @@ smiley functions are not overridden by `smiley').")
 
 (defcustom gnus-treat-display-face
   (and (not noninteractive)
+       ;; x-face-e21 handles both X-Face and Face headers.
+       (not (and (eq gnus-article-x-face-command 'x-face-decode-message-header)
+		 (module-installed-p 'x-face-e21)))
        (or (and (fboundp 'image-type-available-p)
 		(image-type-available-p 'png))
 	   (and (featurep 'xemacs)
@@ -1255,13 +1262,14 @@ See Info node `(gnus)Customizing Articles' and Info node
 (put 'gnus-treat-display-face 'highlight t)
 
 (defcustom gnus-treat-display-smileys
-  (if (or (and (featurep 'xemacs)
-	       (featurep 'xpm))
-	  (gnus-image-type-available-p 'xpm)
-	  (gnus-image-type-available-p 'pbm)
-	  (and (not (featurep 'xemacs))
-	       window-system
-	       (module-installed-p 'smiley-mule)))
+  (if (and (not noninteractive)
+	   (or (and (featurep 'xemacs)
+		    (featurep 'xpm))
+	       (gnus-image-type-available-p 'xpm)
+	       (gnus-image-type-available-p 'pbm)
+	       (and (not (featurep 'xemacs))
+		    window-system
+		    (module-installed-p 'smiley-mule))))
       t
     nil)
   "Display smileys.