# HG changeset patch
# User Bill Wohler <wohler@newt.com>
# Date 1140208336 0
# Node ID c6014dab558d40420396b55c66765b25a1d74090
# Parent  5c07e90431099e683235509c620c5dff8203fb1c
(mh-folder-msg-number): Use purple on low-color, light backgrounds per
Mark's suggestion.

diff -r 5c07e9043109 -r c6014dab558d lisp/mh-e/ChangeLog
--- a/lisp/mh-e/ChangeLog	Fri Feb 17 19:58:17 2006 +0000
+++ b/lisp/mh-e/ChangeLog	Fri Feb 17 20:32:16 2006 +0000
@@ -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 -r 5c07e9043109 -r c6014dab558d lisp/mh-e/mh-e.el
--- a/lisp/mh-e/mh-e.el	Fri Feb 17 19:58:17 2006 +0000
+++ b/lisp/mh-e/mh-e.el	Fri Feb 17 20:32:16 2006 +0000
@@ -3019,7 +3019,9 @@
        (: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 @@
       (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))))