[Mew-dist 16864] Re: b113

[Kazu Yamamoto ( 山本和彦 )]

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com>
Subject: [Mew-dist 16859] Re: b113

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

これはどうしてでしょう？

> 白井> # sort してあるともっといいかも。

> こんな↓感じかしら。この方が edit しやすいですよ。
> !     (setq alias-list (sort (mapcar 'car mew-alias-auto-alist) 'string<))
> !     (while alias-list
> !       (when (setq match (assoc (car alias-list) mew-alias-auto-alist))
> ! 	(setq alias-alist (cons match alias-alist)))
> !       (setq alias-list (cdr alias-list)))

string< を使うのではなく、car を string< で比較する関数を定義しましょ
う。すると、リストをたどる作業は不要になります。

--かず