From: yamaoka <yamaoka>
Date: Tue, 22 Jun 1999 23:21:58 +0000 (+0000)
Subject: (gnus-article-display-x-face-with-x-face-mule): Use `gnus-xemacs' instead of
X-Git-Tag: t-gnus-6_10_067-01~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=59984029f77941d176a1550ce877c68f56e01c22;p=elisp%2Fgnus.git-

(gnus-article-display-x-face-with-x-face-mule): Use `gnus-xemacs' instead of
`featurep' with an arg `xemacs'.
(article-toggle-headers): Ditto.
---

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 9483e52..3c503aa 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1288,7 +1288,7 @@ if given a positive prefix, always hide."
 	  (narrow-to-region header-start header-end)
 	  (article-hide-headers)
 	  ;; Re-display X-Face image under XEmacs.
-	  (when (and (featurep 'xemacs)
+	  (when (and gnus-xemacs
 		     (gnus-functionp gnus-article-x-face-command))
 	    (let ((func (cadr (assq 'gnus-treat-display-xface
 				    gnus-treatment-function-alist)))
@@ -2985,7 +2985,7 @@ value of the variable `gnus-show-mime' is non-nil."
   "Decode and show X-Face with the function
 `x-face-mule-x-face-decode-message-header'.  The buffer is expected to be
 narrowed to just the headers of the article."
-  (when (featurep 'xemacs)
+  (when gnus-xemacs
     (error "`%s' won't work under XEmacs."
 	   'gnus-article-display-x-face-with-x-face-mule))
   (when window-system