(mh-folder-msg-number): Use purple on low-color, light backgrounds per

Mark's suggestion.

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index 93747386cd35092db140a8af42f34d7b858ff025..75f2c88a32fd0800d72b49f099e47ea16dd51023 100644 (file)
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,5 +1,8 @@
 2006-02-17  Bill Wohler  <wohler@newt.com>
 
+       * mh-e.el (mh-folder-msg-number): Use purple on low-color, light
+       backgrounds per Mark's suggestion.
+
        * mh-utils.el (mh-image-load-path): Fix problem that images on
        load-path or image-load-path would win over relative paths (newer
        MH-E or Emacs distribution).

diff --git a/lisp/mh-e/mh-e.el b/lisp/mh-e/mh-e.el
index 26b1ddd8050e2e25aa59784ba03a5e81276c3085..26743b927a3b36de15ab7edf03d25e4620ae2d45 100644 (file)
--- a/lisp/mh-e/mh-e.el
+++ b/lisp/mh-e/mh-e.el
@@ -3019,7 +3019,9 @@ GNU Emacs and XEmacs from at least 21.5.23 on.")
        (:foreground "snow4"))
       (((class color) (min-colors 64) (background dark))
        (:foreground "snow3"))
-      (((class color))
+      (((class color) (background light))
+       (:foreground "purple"))
+      (((class color) (background dark))
        (:foreground "cyan"))))
     (mh-folder-refiled
      ((((class color) (min-colors 64) (background light))
@@ -3042,9 +3044,9 @@ GNU Emacs and XEmacs from at least 21.5.23 on.")
       (t
        (:bold t))))
     (mh-folder-tick
-     ((((class color) (background dark))
+     ((((class color) (background light))
        (:background "#dddf7e"))
-      (((class color) (background light))
+      (((class color) (background dark))
        (:background "#dddf7e"))
       (t
        (:underline t))))