From 91cb2dbce8245cb75193357e33ee06edbe14c1ba Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 7 Jan 2005 06:20:00 +0000 Subject: [PATCH] Synch to No Gnus 200501070617. --- lisp/ChangeLog | 5 +++++ lisp/spam.el | 14 +++++++++++++- 2 files changed, 18 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e588d41..014032c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-01-05 Reiner Steib + + * spam.el (spam-face): New face. Don't use `gnus-splash-face' + which is unreadable in some setups. + 2005-01-06 Katsumi Yamaoka * gnus-spec.el (gnus-update-format-specifications): Flush the diff --git a/lisp/spam.el b/lisp/spam.el index a02c2c6..524bae4 100644 --- a/lisp/spam.el +++ b/lisp/spam.el @@ -350,7 +350,19 @@ Only meaningful if you enable `spam-use-blackholes'." :type '(radio (const nil) regexp) :group 'spam) -(defcustom spam-face 'gnus-splash-face +(defface spam-face + '((((class color) (type tty) (background dark)) + (:foreground "gray80" :background "gray50")) + (((class color) (type tty) (background light)) + (:foreground "gray50" :background "gray80")) + (((class color) (background dark)) + (:foreground "ivory2")) + (((class color) (background light)) + (:foreground "ivory4")) + (t :inverse-video t)) + "Face for spam-marked articles.") + +(defcustom spam-face 'spam-face "Face for spam-marked articles." :type 'face :group 'spam) -- 1.7.10.4