[mew-dist 18905] Re: sort again

[Kazu Yamamoto ( 山本和彦 )]

From: Tatsuya Kinoshita <tats at example.com>
Subject: [mew-dist 18898] Re: sort again

> 例1: 2でC-SPC、5まで移動、C-u S、とすると、2から4の行がregionとして
>      sortされ、C-x C-xでは、元の行は5ですが、4のsort先の行に移って
>      しまいます。
> 
> 私は上記の二つの例について、どちらもC-x C-xで5に移ってほしいと思っ
> ています。(そのように動作するパッチを添付します)

OK です。ただ、このパッチだとプログラムの意図が伝わらないコードになっ
ている気がします。以下でどうでしょう？

--かず

Index: mew-sort.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-sort.el,v
retrieving revision 1.30
diff -c -r1.30 mew-sort.el
*** mew-sort.el	2001/09/12 11:35:20	1.30
--- mew-sort.el	2001/09/12 23:39:53
***************
*** 242,251 ****
  	 ;; *c: break condition, src is looped!
  	 ;;     files[src] is 31 (new tmp file)
  	 ;;
! 	 (when (and (not mew-sort-debug) (not (eobp)))
! 	   (beginning-of-line)
! 	   (mew-elet
! 	    (put-text-property (point) (1+ (point)) 'mew-sort-orig t)))
  	 (if region (narrow-to-region (car region) (cdr region)))
  	 (let* ((dir (mew-expand-folder folder))
  		(default-directory dir)
--- 242,253 ----
  	 ;; *c: break condition, src is looped!
  	 ;;     files[src] is 31 (new tmp file)
  	 ;;
! 	 (unless mew-sort-debug
! 	   (if arg (forward-line))
! 	   (unless (eobp)
! 	     (beginning-of-line)
! 	     (mew-elet
! 	      (put-text-property (point) (1+ (point)) 'mew-sort-orig t))))
  	 (if region (narrow-to-region (car region) (cdr region)))
  	 (let* ((dir (mew-expand-folder folder))
  		(default-directory dir)