From 59984029f77941d176a1550ce877c68f56e01c22 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 22 Jun 1999 23:21:58 +0000 Subject: [PATCH] (gnus-article-display-x-face-with-x-face-mule): Use `gnus-xemacs' instead of `featurep' with an arg `xemacs'. (article-toggle-headers): Ditto. --- lisp/gnus-art.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 1.7.10.4