[mew-dist 22205] Re: refile (to)

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 22204] Re: refile (to)
Message-ID: <20021107.144849.01449656.kazu at example.com>
Date: Thu, 07 Nov 2002 14:48:49 +0900 (JST)

> sort は破壊的な関数のようです。知らなかった。

# あらまぁ。info を読もう :-)

たった今 check out したものですが、

--- mew-addrbook.el	29 Aug 2002 00:45:04 -0000	1.35
+++ mew-addrbook.el	7 Nov 2002 08:35:42 -0000
@@ -519,8 +519,7 @@
 (defun mew-summary-addrbook-edit ()
   (interactive)
   (let ((file mew-alias-auto-file))
-    (setq mew-alias-auto-alist
-	  (sort mew-alias-auto-alist (lambda (x y) (string< (car x) (car y)))))
+    (setq mew-alias-auto-alist (sort mew-alias-auto-alist 'string<))
     (mew-lisp-save mew-alias-auto-file mew-alias-auto-alist)
     (unless (file-name-absolute-p file)
       (setq file (expand-file-name file mew-conf-path)))

的な変更って、動かないんじゃないでしょうか。

(string< "a" "b") => t
(string< '("a" "A") '("b" "B"))
   => entered--Lisp error: (wrong-type-argument stringp ("a" "A"))

になりますよ。

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