[Mew-dist 06399] Re: region sort

[Takashi P.KATOH]

From: Akihiro Motoki <mokkun at example.com>
Subject: [Mew-dist 06206] region sort
> region を指定して sort する際に、markがついているメッセージがあると
> sort 後の Summary バッファの表示がずれてしまうバグがありましたので、
> その修正です。

- narrow-to-region してると悲しくなる問題
  (narrow-to-region したまま全体を scan したりする)
- mew-summary-sort-subrで from が optional なのに、from がな
  いと正しく動作しない (ので mew-summary-mark-sort が上手く
  いかない) 問題

を修正する (ように見える) パッチです。
あくまで応急処置です。

sort-region まわりはまだ問題 (and/or 改善の余地) がありそう
なので、時間を見つけてちゃんと書き直します。

# (narrow-to-region (point) (point)) が上手くいかないのは何
# 故だろう？

-- 
かとぺ / 加藤 貴司

--- mew/mew-sort.el	Mon Aug 31 12:38:13 1998
+++ mew-sort.el	Thu Sep 10 23:47:23 1998
@@ -31,8 +31,10 @@
 	     (append mew-prog-im-arg msgs)) ;; xxx
       (message "Sorting %s by %s ... done" folder field)
       (setq mew-summary-buffer-process nil)
-      (mew-summary-jump-message from)
-      (setq rbeg (point)) ;; beginning of region
+      (if from 
+	  (progn (mew-summary-jump-message from)
+		 (setq rbeg (point)))) ;; beginning of region
+      (widen)
       (let ((buffer-read-only nil))
 	(delete-region (or rbeg (point-min)) (point-max))) ;; for update
       (mew-summary-scan-body mew-prog-imls