[mew-dist 28060] Re: sort problem

[Kazu Yamamoto ( 山本和彦 )]

山本です。

> 昨日の CVS 版で、ローカルフォルダを新しいソートでソートすると、Virtual
> ではソートされて見えるのですが、対応するメッセージが表示されず、= で
> 表示されるリアルの番号のメッセージが表示されるようです。

すいませーん。
以下のパッチで直ると思います。

--かず

Index: mew-sort.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-sort.el,v
retrieving revision 1.100
diff -c -r1.100 mew-sort.el
*** mew-sort.el	12 Feb 2008 08:36:22 -0000	1.100
--- mew-sort.el	15 Feb 2008 08:39:04 -0000
***************
*** 75,83 ****
  
  (defun mew-sort-insert (line msg)
    (insert line)
!   (save-excursion
!     (forward-line -1)
!     (mew-syntax-change-message-number msg)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
--- 75,84 ----
  
  (defun mew-sort-insert (line msg)
    (insert line)
!   (when msg
!     (save-excursion
!       (forward-line -1)
!       (mew-syntax-change-message-number msg))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
***************
*** 89,94 ****
--- 90,98 ----
    (mew-refile-change src dst)
    (mew-summary-sort-move src dst pos lastp))
  
+ (defun mew-summary-sort-move-for-selection (src dst pos &optional lastp)
+   (mew-summary-sort-move src nil pos lastp))
+ 
  ;; If not found, returns nil.
  (defun mew-summary-sort-move (src dst pos &optional lastp)
    (mew-elet
***************
*** 397,403 ****
  	    (mew-erase-buffer)
  	    (mew-elet
  	     (insert (save-excursion (set-buffer buf) (buffer-substring beg end)))
! 	     (mew-sort-files ofolder files idx 'mew-summary-sort-move)
  	     (mew-summary-set-count-line)
  	     (goto-char (point-min))
  	     (message "Sorting %s...done" diag)))
--- 401,407 ----
  	    (mew-erase-buffer)
  	    (mew-elet
  	     (insert (save-excursion (set-buffer buf) (buffer-substring beg end)))
! 	     (mew-sort-files ofolder files idx 'mew-summary-sort-move-for-selection)
  	     (mew-summary-set-count-line)
  	     (goto-char (point-min))
  	     (message "Sorting %s...done" diag)))