2008年5月 8日

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

黒石です.

メールヘッダの配色ですが, 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

投稿者 xml-rpc : 2008年5月 8日 15:14
役に立ちました?:
過去のフィードバック 平均:(0) 総合:(0) 投票回数:(0)
本記事へのTrackback: http://hoop.euqset.org/blog/mt-tb2006.cgi/72938
トラックバック
コメント
コメントする




画像の中に見える文字を入力してください。