[Mew-dist 1288] mew-sort unofficial patch (was Re: mew-1.86 & im-46 beta release)

[Hironori]

In the message...
>> From: Hironori Ikura/伊倉 広徳 <hikura at example.com>
>> Subject: Re: [Mew-dist 1271] mew-1.86 & im-46 beta release
>> Date: Wed, 23 Jul 1997 02:59:55 +0900
>> Message-ID: <19970723025955E.hikura at example.com>

> Kazu> (1) mew-sort.el を im-46 に合わせて頂けないでしょうか？ > 加藤さん
hikura> 
hikura> 加藤さんには、確認をとっていないのですが、
hikura> とりあえず、簡単にパッチしてみました。

すみません、field に 'date'を指定した場合の処理が
ちゃんとチェックできてませんでした。
# 実際には、'date' → 'date:' としている特殊条件処理を
# 無くしてしまっていいようです。

あらためて、

hikura>   mew-sort-0.06 の mew-sort.el への patch

だけ送ります。
--
Hironori Ikura <hikura at example.com>
-------------- next part --------------
--- ../mew-1.85/mew-sort.el	Sat Jul  5 00:41:44 1997
+++ mew-sort.el	Wed Jul 23 03:37:28 1997
@@ -47,14 +47,15 @@
 	  (apply 'call-process mew-prog-imsort nil nil nil
 		 (append
 		  (list (concat "--src=" folder)
-			(concat "--datefield="
-				(if (equal field "date") "date:" field)))
+			(concat "--field=" field)
+			"--mode=date")
 		  msgs))
 	;; textfield
 	(apply 'call-process mew-prog-imsort nil nil nil
 	       (append
 		(list (concat "--src=" folder)
-		      (concat "--textfield=" field))
+		      (concat "--field=" field)
+			  "--mode=text")
 		msgs)))
       (message "Sorting %s by %s ... done" folder field)
       (setq mew-summary-buffer-process nil)