[Mew-dist 13755] Re: b50

[Shuichi KITAGUCHI ( 北口修一 )]

北口です。

ずっと ~/.im/Config の Form で %p を使っていて、自分宛てのメールに
"*" が付かないと気持ち悪く感じる体になっていてしまったので、ちょっと
いじってみました。

最終的には、Summary Mode の表示をカスタマイズ可能にした時にやること
なのでしょうが、とりあえず "*" 付けたいよね、ということで。

# さすがにデフォルトで付くのは嫌な人がいるかも...


--- mew-scan.el.original	Mon Jul 31 20:20:53 2000
+++ mew-scan.el	Tue Aug 01 23:19:24 2000
@@ -97,7 +97,7 @@
 	(ct   (or (aref vec 5) ""))
 	(id   (or (aref vec 6) ""))
 	(case-fold-search t)
-	day mon ret1 ret2 func faddr nickname duplicated)
+	day mon ret1 ret2 func faddr nickname duplicated tomyaddr)
     (if (string-match mew-time-rfc-regex s)
 	(progn
 	  (setq day (mew-time-rfc-day))
@@ -119,11 +119,16 @@
       (if (member id mew-scan-ids)
 	  (setq duplicated t)
 	(setq mew-scan-ids (cons id mew-scan-ids))))
+    (if (not (string= to ""))
+	(if (mew-is-my-address mew-regex-my-address-list
+			       (mew-addrstr-parse-address to))
+	    (setq tomyaddr t)))
     (setq ret1
 	  (format "%5s%c%c%02d/%02d %s "
 		  num
 		  (cond
 		   (duplicated ?D)
+		   (tomyaddr ?*)
 		   (t 32))
 		  (cond
 		   (truncated ?T)


--
Shuichi Kitaguchi <kit at example.com>