From 84fe48331e9a4944546056235bd15dc1aaf5dfbb Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Fri, 15 Sep 2000 12:04:29 +0000 Subject: [PATCH] * gnus-art.el (gnus-treat-display-xface): By default, Emacs 21 display xface. --- lisp/ChangeLog | 5 +++++ lisp/gnus-art.el | 7 +++++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 20cd48e49..805d9667f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2000-09-15 09:01:40 ShengHuo ZHU + + * gnus-art.el (gnus-treat-display-xface): By default, Emacs 21 + display xface. + 2000-08-23 02:54:46 Katsumi Yamaoka * gnus-group.el (gnus-group-rename-group): Inhibit renaming of diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 31307fb4b..4bc1e3fe7 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -871,8 +871,11 @@ See the manual for details." :type gnus-article-treat-custom) (put 'gnus-treat-overstrike 'highlight t) -(defcustom gnus-treat-display-xface (if (and gnus-xemacs (featurep 'xface)) - 'head nil) +(defcustom gnus-treat-display-xface + (and (or (and (fboundp 'image-type-available-p) + (image-type-available-p 'xbm)) + (and gnus-xemacs (featurep 'xface))) + 'head) "Display X-Face headers. Valid values are nil, t, `head', `last', an integer or a predicate. See the manual for details." -- 2.25.1