[Mew-dist 14504] patch for mew-summary-hl

[Shun-ichi TAHARA ( 田原 俊一 )]

mew-summary-hl.el にちょいとパッチを作ってみました。

1. 添付な行用のface (mew-summary-hl-face-attach-{type|color})を追加
2. mew-scan-form-from-me-prefix があったらそっちを使う
   (なかったら従来通り "To:" で引っかける)

b66に付属のmew-summary-hl.el用のパッチになってます。
多分問題ないですが、一応念のため。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
田原 俊一   jado at example.com, shunichi_tahara at example.com
                                  http://flowernet.gr.jp/jado/
FingerPrint: 16 9E 70 3B 05 86 5D 08 - B8 4C 47 3A E7 E9 8E D9
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
-------------- next part --------------
--- mew-summary-hl.el.orig	Wed Feb  2 14:30:44 2000
+++ mew-summary-hl.el	Thu Oct 12 11:52:53 2000
@@ -101,14 +101,18 @@
 (defvar mew-summary-hl-face-body-type 'italic)
 (defvar mew-summary-hl-face-body-color "Grey50")
 
+(defvar mew-summary-hl-face-attach-type 'default)
+(defvar mew-summary-hl-face-attach-color "Grey50")
+
 ;; MUE/MHC などの色づけ用関数を定義する
 (defvar mew-summary-hl-external-function nil)
 
 ;; 内部変数
+(defvar mew-summary-hl-from-me-prefix nil)
 (defvar mew-summary-hl-special-list nil)
 (defvar mew-summary-hl-special-to-list nil)
 (defvar mew-sumamry-hl-face-list
-  '("num" "from" "to" "ml" "special" "subject" "body"))
+  '("num" "from" "to" "ml" "special" "subject" "body" "attach"))
 
 ;; hook の追加
 (add-hook 'mew-summary-mode-hook 'mew-summary-hl-enable)
@@ -159,7 +163,7 @@
 	   (put-text-property (match-beginning 1) (match-end 1)
 			      'face 'mew-summary-hl-face-num)
 	   (setq beg (goto-char (match-end 0)))
-	   (if (looking-at "To:")
+	   (if (looking-at mew-summary-hl-from-me-prefix)
 	       ;; 自分のメール
 	       (if mew-summary-hl-special-to-list
 		   (if (member (mew-buffer-substring beg
@@ -239,7 +243,7 @@
 		    ;; 色づけ対象行でなかったら 'nil' を返してもらう
 		    (funcall mew-summary-hl-external-function))
 	       (put-text-property (point) (progn (end-of-line) (point))
-				  'face 'mew-summary-hl-face-num))))
+				  'face 'mew-summary-hl-face-attach))))
 	 (forward-line)))))
 
 (defun mew-summary-hl-face-setup ()
@@ -311,6 +315,9 @@
 
 ;; Mew が立ち上がったときと "Z" したとき setup する。
 (defadvice mew-addrbook-setup (after hl-setup activate)
+  (if (boundp 'mew-scan-form-from-me-prefix)
+      (setq mew-summary-hl-from-me-prefix mew-scan-form-from-me-prefix)
+    (setq mew-summary-hl-from-me-prefix "To:"))
   (mew-summary-hl-special-setup)
   (mew-summary-hl-face-setup))