2008年2月15日

[mew-dist 28060] Re: sort problem

山本です。

> 昨日の 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)))

投稿者 xml-rpc : 2008年2月15日 17:39
役に立ちました?:
過去のフィードバック 平均:(0) 総合:(0) 投票回数:(0)
本記事へのTrackback: http://hoop.euqset.org/blog/mt-tb2006.cgi/69726
トラックバック
コメント
コメントする




画像の中に見える文字を入力してください。