[Mew-dist 17003] mew-face-header-date

[Takashi SATOH]

さとーと申します。

個人的に mew-face-header-date を定義して、Date: の value にも
色を付けて使っているのですが、本体にとりこんでいただけないで
しょうか。


diff -c -r mew-1.95b117.orig/mew-theme.el mew-1.95b117/mew-theme.el
*** mew-1.95b117.orig/mew-theme.el	Fri Mar 30 23:27:06 2001
--- mew-1.95b117/mew-theme.el	Tue Apr  3 09:18:27 2001
***************
*** 19,24 ****
--- 19,29 ----
      (((class color) (background light)) (:foreground "DarkViolet" :bold t))
      (((class color) (background dark))  (:foreground "violet" :bold t))
      (t (:bold t))))
+  '(mew-face-header-date
+    ((((class color) (type tty)) (:bold t))
+     (((class color) (background light)) (:foreground "gray50" :bold t))
+     (((class color) (background dark))  (:foreground "gray50" :bold t))
+     (t (:bold t))))
   '(mew-face-header-key
     ((((class color) (type tty)) (:foreground "green" :bold t))
      (((class color) (background light)) (:foreground "ForestGreen" :bold t))
diff -c -r mew-1.95b117.orig/mew-vars2.el mew-1.95b117/mew-vars2.el
*** mew-1.95b117.orig/mew-vars2.el	Sun Apr  1 09:33:46 2001
--- mew-1.95b117/mew-vars2.el	Tue Apr  3 09:18:51 2001
***************
*** 492,497 ****
--- 492,501 ----
    "*Face to highlight the value of To:"
    :group 'mew-highlight)
  
+ (defface mew-face-header-date nil
+   "*Face to highlight the value of Date:"
+   :group 'mew-highlight)
+ 
  (defface mew-face-header-key nil
    "*Face to highlight by default"
    :group 'mew-highlight)
***************
*** 584,590 ****
      ("^Newsgroups:$" t
       mew-face-header-important
       mew-face-header-to)
!     ("^Date:$" t)
      ("^Reply-To:$" t)
      ("^X-Mailer:$" t)
      ("^X-Mew:$" t
--- 588,596 ----
      ("^Newsgroups:$" t
       mew-face-header-important
       mew-face-header-to)
!     ("^Date:$" t
!      mew-face-header-key
!      mew-face-header-date)
      ("^Reply-To:$" t)
      ("^X-Mailer:$" t)
      ("^X-Mew:$" t