From e22fa96dd556675e5baccfa117b9975cf4cf4a40 Mon Sep 17 00:00:00 2001
From: yamaoka <yamaoka>
Date: Mon, 24 Mar 2003 23:42:38 +0000
Subject: [PATCH] * 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'.

---
 ChangeLog        |    9 +++++++++
 lisp/gnus-art.el |   26 +++++++++++++++++---------
 2 files changed, 26 insertions(+), 9 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index c1b6392..db7ee5c 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 4ffb284..f3cf451 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))
@@ -1225,12 +1227,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))))
@@ -1241,6 +1245,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)
@@ -1258,13 +1265,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.
-- 
1.7.10.4