[Mew-dist 06206] region sort

[Akihiro Motoki]

元木です。

region を指定して sort する際に、markがついているメッセージがあると
sort 後の Summary バッファの表示がずれてしまうバグがありましたので、
その修正です。

mew-summary-sort-subr に渡す引数をregionの先頭の message number を
わたすことで、表示のずれをなくしました。

＃これは region sort のパッチを作った僕の実装ミスですね(^^;;
＃このメールが届く前に 1.93 release が出ないことを祈るのみ。

では。
-------------- next part --------------
--- mew-sort.el.dist	Mon Aug 24 23:45:37 1998
+++ mew-sort.el	Sun Aug 30 00:59:15 1998
@@ -10,14 +10,15 @@
 
 (require 'mew)
 
-(defun mew-summary-sort-subr (msgs &optional method rbeg)
+(defun mew-summary-sort-subr (msgs &optional method from)
   (if (not (mew-summary-exclusive-p))
       ()
     (mew-mark-clean)
     (let* ((folder (buffer-name))
 	   (field-mode (mew-input-sort-key))
 	   (field (car field-mode))
-	   (mode (cdr field-mode)))
+	   (mode (cdr field-mode))
+	   rbeg)
       (if (not (listp msgs)) (setq msgs (list msgs)))
       (setq mew-summary-buffer-process t)
       (message "Sorting %s by %s (%s mode) ... " folder field mode)
@@ -30,6 +31,8 @@
 	     (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
       (let ((buffer-read-only nil))
 	(delete-region (or rbeg (point-min)) (point-max))) ;; for update
       (mew-summary-scan-body mew-prog-imls
@@ -66,8 +69,7 @@
 		   (mew-summary-message-number))))
        (goto-char (min r1 r2))
        (beginning-of-line)
-       (setq rbeg (point)) ;; get region beginning point
-       (mew-summary-sort-subr (concat from "-" to) method rbeg)))))
+       (mew-summary-sort-subr (concat from "-" to) method from)))))
 
 (defun mew-summary-mark-sort (&optional r1 r2)
   (interactive)
-------------- next part --------------
━━━━━━━━━━━━………‥・・ ・ 　・　．
  元木 顕弘 / Akihiro Motoki                　　・      ☆
　E-mail: mokkun at example.com                    　・　  .
  URL: http://www.bigfoot.com/~mokkun/              ・・