Mercurial > emacs
changeset 66677:11249bb2f593
(mh-folder-body-face, mh-folder-cur-msg-face)
(mh-folder-cur-msg-number-face, mh-folder-refiled-face)
(mh-folder-to-face): Use the min-colors attribute instead of the
type attribute.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Thu, 03 Nov 2005 22:08:39 +0000 |
| parents | ecdb869b880e |
| children | d3efdaf600d9 |
| files | lisp/mh-e/ChangeLog lisp/mh-e/mh-customize.el |
| diffstat | 2 files changed, 37 insertions(+), 30 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mh-e/ChangeLog Thu Nov 03 22:05:53 2005 +0000 +++ b/lisp/mh-e/ChangeLog Thu Nov 03 22:08:39 2005 +0000 @@ -1,3 +1,10 @@ +2005-11-03 Dan Nicolaescu <dann@ics.uci.edu> + + * mh-customize.el (mh-folder-body-face, mh-folder-cur-msg-face) + (mh-folder-cur-msg-number-face, mh-folder-refiled-face) + (mh-folder-to-face): Use the min-colors attribute instead of the + type attribute. + 2005-11-03 Bill Wohler <wohler@newt.com> * mh-customize.el (mh-refile-preserves-sequences-flag)
--- a/lisp/mh-e/mh-customize.el Thu Nov 03 22:05:53 2005 +0000 +++ b/lisp/mh-e/mh-customize.el Thu Nov 03 22:08:39 2005 +0000 @@ -2253,11 +2253,11 @@ (defvar mh-folder-body-face 'mh-folder-body "Face used to highlight body text in MH-Folder buffers.") (defface mh-folder-body - '((((type tty) (class color)) (:foreground "green")) - (((class grayscale) (background light)) (:foreground "DimGray" :italic t)) + '((((class grayscale) (background light)) (:foreground "DimGray" :italic t)) (((class grayscale) (background dark)) (:foreground "LightGray" :italic t)) - (((class color) (background light)) (:foreground "RosyBrown")) - (((class color) (background dark)) (:foreground "LightSalmon")) + (((class color) (min-colors 88) (background light)) (:foreground "RosyBrown")) + (((class color) (min-colors 88) (background dark)) (:foreground "LightSalmon")) + (((class color)) (:foreground "green")) (t (:italic t))) "Face used to highlight body text in MH-Folder buffers." :group 'mh-folder-faces) @@ -2265,14 +2265,14 @@ (defvar mh-folder-cur-msg-face 'mh-folder-cur-msg "Face used for the current message line in MH-Folder buffers.") (defface mh-folder-cur-msg - '((((type tty pc) (class color)) - (:background "LightGreen")) - (((class color) (background light)) + '((((class color) (min-colors 88) (background light)) (:background "LightGreen") ;Use this for solid background colour ;; (:underline t) ;Use this for underlining ) - (((class color) (background dark)) + (((class color) (min-colors 88) (background dark)) (:background "DarkOliveGreen4")) + (((class color)) + (:background "LightGreen")) (t (:underline t))) "Face used for the current message line in MH-Folder buffers." :group 'mh-folder-faces) @@ -2280,11 +2280,11 @@ (defvar mh-folder-cur-msg-number-face 'mh-folder-cur-msg-number "Face used to highlight the current message in MH-Folder buffers.") (defface mh-folder-cur-msg-number - '((((type tty) (class color)) (:foreground "cyan" :weight bold)) - (((class grayscale) (background light)) (:foreground "LightGray" :bold t)) + '((((class grayscale) (background light)) (:foreground "LightGray" :bold t)) (((class grayscale) (background dark)) (:foreground "DimGray" :bold t)) - (((class color) (background light)) (:foreground "Purple")) - (((class color) (background dark)) (:foreground "Cyan")) + (((class color) (min-colors 88) (background light)) (:foreground "Purple")) + (((class color) (min-colors 88) (background dark)) (:foreground "Cyan")) + (((class color)) (:foreground "cyan" :weight bold)) (t (:bold t))) "Face used to highlight the current message in MH-Folder buffers." :group 'mh-folder-faces) @@ -2332,13 +2332,13 @@ (defvar mh-folder-refiled-face 'mh-folder-refiled "Face used to highlight refiled messages in MH-Folder buffers.") (defface mh-folder-refiled - '((((type tty) (class color)) (:foreground "yellow" :weight light)) - (((class grayscale) (background light)) + '((((class grayscale) (background light)) (:foreground "Gray90" :bold t :italic t)) (((class grayscale) (background dark)) (:foreground "DimGray" :bold t :italic t)) - (((class color) (background light)) (:foreground "DarkGoldenrod")) - (((class color) (background dark)) (:foreground "LightGoldenrod")) + (((class color) (min-colors 88) (background light)) (:foreground "DarkGoldenrod")) + (((class color) (min-colors 88) (background dark)) (:foreground "LightGoldenrod")) + (((class color)) (:foreground "yellow" :weight light)) (t (:bold t :italic t))) "Face used to highlight refiled messages in MH-Folder buffers." :group 'mh-folder-faces) @@ -2375,11 +2375,11 @@ (defvar mh-folder-to-face 'mh-folder-to "Face used to highlight the To: string in MH-Folder buffers.") (defface mh-folder-to - '((((type tty) (class color)) (:foreground "green")) - (((class grayscale) (background light)) (:foreground "DimGray" :italic t)) + '((((class grayscale) (background light)) (:foreground "DimGray" :italic t)) (((class grayscale) (background dark)) (:foreground "LightGray" :italic t)) - (((class color) (background light)) (:foreground "RosyBrown")) - (((class color) (background dark)) (:foreground "LightSalmon")) + (((class color) (min-colors 88) (background light)) (:foreground "RosyBrown")) + (((class color) (min-colors 88) (background dark)) (:foreground "LightSalmon")) + (((class color)) (:foreground "green")) (t (:italic t))) "Face used to highlight the To: string in MH-Folder buffers." :group 'mh-folder-faces) @@ -2420,13 +2420,13 @@ (defvar mh-show-cc-face 'mh-show-cc "Face used to highlight cc: header fields.") (defface mh-show-cc - '((((type tty) (class color)) (:foreground "yellow" :weight light)) - (((class grayscale) (background light)) + '((((class grayscale) (background light)) (:foreground "Gray90" :bold t :italic t)) (((class grayscale) (background dark)) (:foreground "DimGray" :bold t :italic t)) - (((class color) (background light)) (:foreground "DarkGoldenrod")) - (((class color) (background dark)) (:foreground "LightGoldenrod")) + (((class color) (min-colors 88) (background light)) (:foreground "DarkGoldenrod")) + (((class color) (min-colors 88) (background dark)) (:foreground "LightGoldenrod")) + (((class color)) (:foreground "yellow" :weight light)) (t (:bold t :italic t))) "Face used to highlight cc: header fields." :group 'mh-show-faces) @@ -2434,11 +2434,11 @@ (defvar mh-show-date-face 'mh-show-date "Face used to highlight the Date: header field.") (defface mh-show-date - '((((type tty) (class color)) (:foreground "green")) + '((((class color) (min-colors 88) (background light)) (:foreground "ForestGreen")) + (((class color) (min-colors 88) (background dark)) (:foreground "PaleGreen")) + (((class color)) (:foreground "green")) (((class grayscale) (background light)) (:foreground "Gray90" :bold t)) (((class grayscale) (background dark)) (:foreground "DimGray" :bold t)) - (((class color) (background light)) (:foreground "ForestGreen")) - (((class color) (background dark)) (:foreground "PaleGreen")) (t (:bold t :underline t))) "Face used to highlight the Date: header field." :group 'mh-show-faces) @@ -2446,11 +2446,11 @@ (defvar mh-show-header-face 'mh-show-header "Face used to deemphasize unspecified header fields.") (defface mh-show-header - '((((type tty) (class color)) (:foreground "green")) + '((((class color) (min-colors 88) (background light)) (:foreground "RosyBrown")) + (((class color) (min-colors 88) (background dark)) (:foreground "LightSalmon")) + (((class color)) (:foreground "green")) (((class grayscale) (background light)) (:foreground "DimGray" :italic t)) (((class grayscale) (background dark)) (:foreground "LightGray" :italic t)) - (((class color) (background light)) (:foreground "RosyBrown")) - (((class color) (background dark)) (:foreground "LightSalmon")) (t (:italic t))) "Face used to deemphasize unspecified header fields." :group 'mh-show-faces)