[Mew-dist 04516] update for mew-summary-sort(-region)

[Masahiro MURATA ( 村田全寛 )]

  村田@So-netです。

  [Mew-dist 04382] のパッチが取り込まれたかどうかは分かりませんが，
prefix argument 付で mew-summary-sort を実行した場合(すなわち，
sort-region した場合)に imls が常に "all" で実行されてしまうので，それを
修正するパッチです。region の場合は update ですよね。
  以下のパッチでは，mew-ask-range を nil にして mew-input-range を呼ぶと
いう姑息な方法にしてしまいました。
# mew-input-range の引数に completing-read しないものを追加した方がスマー
# トかもしれない。

--
村田 全寛 / MURATA Masahiro

-------------- next part --------------
--- ./mew-sort.el.1	Mon Apr 20 15:36:08 1998
+++ ./mew-sort.el	Wed May  6 10:44:47 1998
@@ -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))
+	(mew-summary-scan-body mew-prog-imls
+			       'mew-summary-mode
+			       folder
+			       mew-cs-scan
+			       (mew-input-range folder)
+			       )))))
 
 (defun mew-summary-sort (&optional arg)
   (interactive "P")