[Mew-dist 13585] Re: 冒険家バージョン

[Kyotaro HORIGUCHI]

堀口です.

At Mon, 10 Jul 2000 12:47:28 +0900, Shun-ichi GOTO <gotoh at example.com> wrote in <20000710.124810.52756770.gotoh at example.com>
> ちなみに私の場合は+inbox だろうがどこだろうが、From: を表示して欲しいと
> 思う人です。自分から出したものだけ特別扱いする、というのは紛らわしいので、
> そういう機能は常にOFFにしています。
> 
> この辺りは人によって欲しい/不要だと違う意見が出てくるのが予想されますね。

  ですね. で, 私は ML 出ない限り To: がうれしい人なのですが, 悲し
いことに To: と Addrbook の相性が悪いようです. この辺を書き換えて
もどうせすぐ folder-config(?) 対応になってしまうのでしょうがとり
あえず.

--- mew-scan.el	Mon Jul 10 21:48:58 2000
+++ mew-scan.el.old	Mon Jul 10 21:14:06 2000
@@ -97,6 +97,5 @@
 	(id   (or (aref vec 6) ""))
 	(case-fold-search t)
-	(from-me nil)
-	day month ret1 ret2 func disp-addr disp-name nickname duplicated)
+	day month ret1 ret2 func faddr nickname duplicated)
     (if (string-match "\\([0-9][0-9]?\\) \\([A-Z][a-z][a-z]\\)" date)
 	(progn
@@ -106,17 +105,12 @@
     (if (string= from "")
 	()
-      (setq disp-name from)
-      (setq disp-addr (mew-addrstr-parse-address disp-name))
+      (setq faddr (mew-addrstr-parse-address from))
       (if (and (not (string= to ""))
-	       (mew-is-my-address mew-regex-my-address-list disp-addr))
-	  (setq from-me t
-		disp-name to
-		disp-addr (mew-addrstr-parse-address to)))
-      (if (and mew-addrbook-for-summary
-	       (setq func (mew-addrbook-func mew-addrbook-for-summary))
-	       (setq nickname (funcall func disp-addr)))
-	  (setq disp-name nickname))
-      (if from-me
-	  (setq disp-name (concat "To:" disp-name))))
+	       (mew-is-my-address mew-regex-my-address-list faddr))
+	  (setq from (concat "To:" (mew-addrstr-parse-address to)))
+	(if (and mew-addrbook-for-summary
+		 (setq func (mew-addrbook-func mew-addrbook-for-summary))
+		 (setq nickname (funcall func faddr)))
+	    (setq from nickname))))
     (if (member id mew-scan-ids)
 	(setq duplicated t)
@@ -136,5 +130,5 @@
 		  (cdr (assoc month mew-month-alist))
 		  (string-to-int day)
-		  (mew-substring disp-name 14) ""))
+		  (mew-substring from 14) ""))
     (setq ret2 (mew-substring subj (- width (string-width ret1) 1)))
     (list ret1 ret2)))

-- 
堀口恭太郎