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

Mark's suggestion.

2 files changed, 8 insertions, 3 deletions

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index 93747386cd3..75f2c88a32f 100644
--- 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 26b1ddd8050..26743b927a3 100644
--- 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))))