[mew-dist 18881] Re: sort again

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 18875] sort again
Message-ID: <20010911.203714.68538766.kazu at example.com>
Date: Tue, 11 Sep 2001 20:37:14 +0900 (JST)

kazu> Sort に関し
kazu> 	- 桁溢への対応
kazu> 	- point-min and C-xC-x
kazu> を実装しました。

うぅ、(_ _)

	    ((<= pos beg)
	     (setq line (buffer-substring beg end))
	     (goto-char end)
	     (delete-region beg end)
	     (save-excursion
	       (goto-char pos)
	       (insert (mew-sort-adjust-number form dst line)))
	     (point))

でエンバグしてしまったようです。;_;
ここ↑の部分だけもと↓に戻すと発生しません。

 	    ((<= pos beg)
 	     (setq line (buffer-substring beg end))
 	     (delete-region beg end)
 	     (goto-char pos)
 	     (insert (mew-sort-adjust-number form dst line))
 	     end)

# 5 の行に注目 ;_;

   1 M09/06/1999   5k Kazu Yamamoto (山本和彦) [mew-release 00008] [Mew-dist 10583]
   2  09/06/1999   2k Masachika ISHIZUKA       [Mew-dist 10584] How to create MIME 
   3  09/06/1999   3k shuhei YAMAGUCHI (山口修 [Mew-dist 10587] Auto learning when 
   5  09/06/1999   3k Yuichi TANAKA            [Mew-dist 10585] Does the scan forma
   4  09/06/1999   3k Yoshihiko Eguchi (江口   [Mew-dist 10586] Re: How to create M

考えた抜いた結果、変になるのは、(= pos beg) のときでして、

	   (cond
 	    ((< pos beg)
 	     (setq line (buffer-substring beg end))
 	     (goto-char end)
 	     (delete-region beg end)
 	     (save-excursion
 	       (goto-char pos)
 	       (insert (mew-sort-adjust-number form dst line)))
 	     (point))
 	    ((= pos beg)
 	     (setq line (buffer-substring beg end))
 	     (delete-region beg end)
	     (goto-char pos)
	     (insert (mew-sort-adjust-number form dst line))
	     (point))
	    (t
	     ....

としたら大丈夫です。何回も申し訳ないです。

-- 
白井秀行＠けど、すでに頭が動いていないので、検証よろしく ^^;;;