Revision: miles@gnu.org--gnu-2005/gnus--devo--0--patch-9

Merge from gnus--rel--5.10

Patches applied:

 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-83
 - miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-84
   Update from CVS

 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-5
   Merge from gnus--rel--5.10

 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-17
   Merge from gnus--rel--5.10

 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-2
   Merge from miles@gnu.org--gnu-2004

 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-3
   Merge from emacs--cvs-trunk--0

2005-01-05  Reiner Steib  <Reiner.Steib@gmx.de>

   * lisp/spam.el (spam-face): New face. Don't use `gnus-splash-face'
   which is unreadable in some setups.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 74dc414..41c07b6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-01-05  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * spam.el (spam-face): New face.  Don't use `gnus-splash-face'
+       which is unreadable in some setups.
+
 2005-01-06  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-spec.el (gnus-update-format-specifications): Flush the

diff --git a/lisp/spam.el b/lisp/spam.el
index cd9cf6c..fef20bd 100644 (file)
--- 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)