[Mew-dist 04610] Re: update for mew-summary-sort(-region)

[Masahiro MURATA ( 村田全寛 )]

  村田です。

  b31 では以下のパッチ[Mew-dist 04516]が反映されていませんが，とりあえず
もう1回投げておきます。

> prefix argument 付で mew-summary-sort を実行した場合(すなわち，
> sort-region した場合)に imls が常に "all" で実行されてしまうので，それを
> 修正するパッチです。region の場合は途中から scan するので "update" で
> すよね。

  もちろん，prefix argument なし mew-summary-sort は "all" のままになり
ます。
  今回は以上の他に，mew-summary-sort-fields になぜか X-Sequence はあるの
に，mew-dist で付けられている X-Mail-Count がないので追加しています。

--
村田 全寛 / MURATA Masahiro

-------------- next part --------------
--- ./mew-sort.el.1	Mon Apr 20 15:36:08 1998
+++ ./mew-sort.el	Fri May  8 22:06:18 1998
@@ -12,7 +12,7 @@
 
 (defvar mew-summary-sort-fields
   '(("date" . "date") ("subject") ("from") ("to") ("newsgroups")
-    ("posted" . "date") ("x-sequence" . "num"))
+    ("posted" . "date") ("x-sequence" . "num") ("x-mail-count" . "num"))
   "*List of fields for `mew-summary-sort'.
 Each element is (FIELD-NAME) or (FIELD-NAME . MODE).
 MODE is one of \"date\" (sort by chronological order) or
@@ -58,10 +58,13 @@
       (setq mew-summary-buffer-process nil)
       (let ((buffer-read-only nil))
 	(delete-region (or rbeg (point-min)) (point-max))) ;; for update
-      (mew-summary-scan-body mew-prog-imls
-			     'mew-summary-mode
-			     folder
-			     mew-cs-scan))))
+      (let* ((mew-ask-range nil)
+	     (range (mew-input-range folder)))
+	(mew-summary-scan-body mew-prog-imls
+			       'mew-summary-mode
+			       folder
+			       mew-cs-scan
+			       range)))))
 
 (defun mew-summary-sort (&optional arg)
   (interactive "P")