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

[Kyotaro HORIGUCHI]

堀口です.

At Mon, 10 Jul 2000 22:25:45 +0900, Shun-ichi GOTO <gotoh at example.com> wrote in <20000710.222626.124631675.gotoh at example.com>
> >>>>> at Mon, 10 Jul 2000 21:53:59 +0900
> > この辺りは人によって欲しい/不要だと違う意見が出てくるのが予想されますね。
> 堀口>   ですね. で, 私は ML 出ない限り To: がうれしい人なのですが, 悲し
>                             ~~~~~~
> ## FreeWnn + tamago を使ってらっしゃる? (^^;

 IME98(Wnn-bind)のせいです(きっぱり)

# でも本当は私のせいです^^;

> # こういったところはカスタマイズの要求が一番多い場所だと思うのですが、
> # あまり本質的ではない事もあり、悩ましいですよね。

 あまり本質的でない上に面倒.. でも使うときには一番気になったりす
るんですよね.

 今気になっているのは 8000通あるフォルダで mewls が scanfolder し
てる(んだと思う)なが〜い時間. Mew のフォルダに行けない;_;

> 堀口> --- mew-scan.el	Mon Jul 10 21:48:58 2000
> 堀口> +++ mew-scan.el.old	Mon Jul 10 21:14:06 2000
> 
> いやん、逆向きですよ(^^;

 うげ. では + と - を読み替えて... ではアレなので済みませんが逆逆
パッチをつけます.

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




# いやぁ.. diff なんて使ったの久しぶりなもんで :-p

## ..などととりあえず言い訳などしてみる..

-- 
堀口恭太郎