[Mew-dist 2215] Re: sort

[Takashi P.KATOH]

かとぺ です。

From: SAKAI Kiyotaka <ksakai at example.com>
Subject: [Mew-dist 2198] Re: sort
>> mew での Subject の [Mew-dist 1000]の部分でのソート方法を教えてくださ
>> い。
>> ＃ Subjectソートの方法が変わったのですね。
> [Mew-dist 2139] のパッチを当てるのがいいと思います。

あのパッチで一箇所見落している部分がありました。

-    'mode;s;date;' => "Set sort mode to date, num or text.",
+    'mode;s;date;' => "Set sort mode to date, num, text or ml.",

として下さい。
# コメントの部分なので当てなくても動きますが。

せっかくなので mew-sort.el 用のパッチも流します。

-- 
  東北大学大学院 情報科学研究科 白鳥研究室    加藤 貴司
  p-katoh at example.com / Takashi P.KATOH
  http://www.shiratori.riec.tohoku.ac.jp/~p-katoh/MAIL/

-------------- next part --------------
--- mew/mew-sort.el	Thu Sep 18 10:30:52 1997
+++ mew-sort.el	Mon Sep 22 15:28:15 1997
@@ -7,10 +7,10 @@
 ;;;
 ;;; Author:  Takashi P.KATOH <p-katoh at example.com>
 ;;; Created: Feb  6, 1996
-;;; Revised: Sep 18, 1997
+;;; Revised: Sep 22, 1997
 ;;;
 
-(defconst mew-sort-version "mew-sort.el version 0.10")
+(defconst mew-sort-version "mew-sort.el version 0.11")
 
 (require 'mew)
 
@@ -21,10 +21,11 @@
 Each element is (FIELD-NAME) or (FIELD-NAME . MODE).
 MODE is one of \"date\" (sort by chronological order) or
                \"num\"  (sort by numerical order) or
-               \"text\" (sort by alphabetical order).
+               \"text\" (sort by alphabetical order) or
+               \"ml\"   (modify subject).
 (nil means \"text\").")
 
-(defvar mew-sort-modes '("date" "num" "text"))
+(defvar mew-sort-modes '("date" "num" "text" "ml"))
 (defvar mew-summary-sort-last-field "date")
 
 (defun mew-summary-sort-subr (msgs &optional method)
@@ -49,7 +50,7 @@
 	()
       (mew-mark-clean-up)
       (setq mew-summary-buffer-process t)
-      (message "Sorting %s by %s (mode=%s) ... " folder field mode)
+      (message "Sorting %s by %s (%s mode) ... " folder field mode)
       (apply 'call-process mew-prog-imsort nil nil nil
 	     (append
 	      (list (concat "--src=" folder)