[mew-dist 28387] メールヘッダの配色

[Kuroishi Mitsuo / 黒石 光雄]

黒石です．

メールヘッダの配色ですが， default の Mew では， google のロゴよろしく
カラフルすぎて，実はあまり好みではありません．

  # あんまり言うと怒られちゃいますが．^^;

.mew-theme.el を頑張って設定したりしたんですが，任意のヘッダに任意の色
を設定するには，結局本体側をいじって実現しました．

  # 参考までに末尾に記載します．

  ## Emacs Lisp 苦手なので，とても大変でした．

よくわかってないのですが，マクロ等を使えば，

  (set-header-{tty,light,dark}-color "X-FooBarBaz" "Red")

みたいな簡単な書式で任意のヘッダの配色を設定できるようになったりします
でしょうか？他の方のご意見も聞きたいところですが，ご検討頂けると嬉しいです．

-- 
Kuroishi Mitsuo


--- mew-vars2.el.orig   2008-04-24 14:22:21.000000000 +0900
+++ mew-vars2.el        2008-04-26 18:56:08.000000000 +0900
@@ -528,8 +528,8 @@ the next version of Mew.")
     ("^Date:$" t
      mew-face-header-important
      mew-face-header-date)
-    ("^Sender:$" t)
-    ("^Reply-To:$" t)
+    ("^Sender:$" nil)
+    ("^Reply-To:$" nil)
     ("^\\(X-Mailer\\|User-Agent\\):$" t)
     ("^X-Mew:$" t
      mew-face-header-important
@@ -546,6 +546,9 @@ the next version of Mew.")
      mew-face-header-xmew
      ("fail" mew-face-header-xmew-bad
       "softfail" mew-face-header-xmew-bad))
+    ("^X-Spam-Flag:$" t
+     mew-face-header-xspamflag
+     mew-face-header-xspamflag)
     ("^Delivered-" nil)
     ("^List-" nil) ;; RFC 2369
 ;;    ("^Content-" t)

--- mew-vars3.el.orig   2008-04-24 14:35:17.000000000 +0900
+++ mew-vars3.el        2008-04-26 18:53:25.000000000 +0900
@@ -98,6 +98,14 @@
   "*Face to highlight the value of X-Mew: in bad cases"
   :group 'mew-highlight)

+(defface mew-face-header-xspamflag
+  '((((class color) (type tty)) (:foreground "red" :bold t))
+    (((class color) (background light)) (:foreground "red" :bold t))
+    (((class color) (background dark))  (:foreground "red" :bold t))
+    (t (:bold t)))
+  "*Face to highlight the value of X-Spam-Flag: in bad cases"
+  :group 'mew-highlight)
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;
 ;;; Highlight body