[mew-dist 18936] Re: sort again

[Tatsuya Kinoshita]

In message [mew-dist 18930], on Fri, 14 Sep 2001,
Kazu Yamamoto (山本和彦) <kazu at example.com> wrote:

> >   * begとendが同じ位置(たとえば5と5)のとき、rangeが`5-4'というふう
> >     に表示されてしまいます。エラーでなく、sortせずに正常終了するこ
> >     とは良いと思います。
> > 
> >   * no regionのときのエラーが、mew-input-sort-keyのうしろになってし
> >     まっています。sort keyを聞くまでもなくエラーにする方がよさそう
> 
> 直しました。

はい。動作確認できました。

しかし、別のバグが見つかりました。属性'mew-sort-origが削除されずに
残ってしまう場合がある、というものです。バッファの先頭にカーソルを
置いて、同じ種類のsortを2回以上行えば再現できます。

バッファの先頭に属性'mew-sort-origがある場合、バッファの先頭から
next-single-property-changeすると、1ではなく2が返るのです。(属性が
「変化」するのは1から2に移るときだから)

ほかにもnext-single-property-changeを使っている個所があるようですが、
mew-summary-sort以外は追えていません。
 
-- 
木下達也
-------------- next part --------------

 This patch is written by Tatsuya Kinoshita.  Copyright is disclaimed.

--- mew/mew-sort.el	Fri Sep 14 12:47:35 2001
+++ mew-tats/mew-sort.el	Fri Sep 14 14:53:58 2001
@@ -301,12 +301,13 @@
 	   (let ((orig (next-single-property-change
 			(point-min) 'mew-sort-orig)))
 	     (when orig
+	       (beginning-of-line)
 	       (mew-elet
 		;; 'mew-sort-orig is copied onto the entire message
 		;; number. (window-width) is long enough to remove
 		;; it.
 		(remove-text-properties
-		 orig (+ orig (window-width)) '(mew-sort-orig nil)))
+		 (point) (+ (point) (window-width)) '(mew-sort-orig nil)))
 	       (push-mark orig t t)))
 	   (mew-summary-folder-cache-save)
 	   (set-buffer-modified-p nil)))