[Mew-dist 16866] Re: b113

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [Mew-dist 16864] Re: b113
Message-ID: <20010316.173903.74193985.kazu at example.com>
Date: Fri, 16 Mar 2001 17:39:05 +0900

kazu> > 白井> で mew-alias-auto-alist を save してから edit 出来た方がうれしい
kazu> > 白井> と思います。
kazu> 
kazu> これはどうしてでしょう？

○ 初めてメールを送った foo at example.com さんの alias をすぐ抹消したい。

○ 初めてメールを送った foo at example.com さんの alias を foo から
 hoge に変えたい。
  
などの用途では、mew-alias-auto-alist に foo at example.com は登録されて
いるけど、mew-alias-auto-file には書き込まれていないですよね。だ
から、単に mew-alias-auto-file を開いただけだとだめでしょ。

しかも、write-hook で動く mew-summary-addrbook-read-buffer() で
は、file から mew-alias-auto-alist を再構築するので、ちょっと
edit して save すると、

○ まだ mew-alias-auto-file に保存されていない、初めてメールを送っ
 た(とっても大切な) taisetsu at example.com さんの alist は消えてしまう。

という問題もあったりします。(こっちの方が大きな問題だけど)


kazu> > 白井> # sort してあるともっといいかも。
kazu> 
kazu> > こんな↓感じかしら。この方が edit しやすいですよ。
kazu> > !     (setq alias-list (sort (mapcar 'car mew-alias-auto-alist) 'string<))
kazu> > !     (while alias-list
kazu> > !       (when (setq match (assoc (car alias-list) mew-alias-auto-alist))
kazu> > ! 	(setq alias-alist (cons match alias-alist)))
kazu> > !       (setq alias-list (cdr alias-list)))
kazu> 
kazu> string< を使うのではなく、car を string< で比較する関数を定義しましょ
kazu> う。すると、リストをたどる作業は不要になります。

それは、考えたんだけど。。。

# だって、お仕事忙しくてお昼休中にはここまでしか出来なかったんだ
# もん。;_;

-- 
白井秀行 (mailto:shirai at example.com)