[mew-dist 18975] Re: 2.0.54

[Hideyuki SHIRAI ( 白井秀行 )]

From: Tatsuya Kinoshita <tats at example.com> さん曰く
Subject: [mew-dist 18973] Re: 2.0.54
Message-ID: <20010918.135643.71086394.05 at example.com>
Date: Tue, 18 Sep 2001 13:56:43 +0900 (JST)

tats> > koga> 問題の場所にカーソルがあると C-xC-x で戻らないんですよね。
tats> > 
tats> > 問題の場所って、(point-max) にいたときですよね。
tats> > 
tats> > koga> これはこれでいいんでしたっけ?
tats> > 
tats> > たしか、よかったと記憶しています。
tats> 
tats> でも、(point-max)にもC-x C-xできるといいな。

じゃ、さっきのはやめて ^^;

-- 
白井秀行 (mailto:shirai at example.com)

Index: mew-sort.el
===================================================================
RCS file: /cvsroot/shirai/mew/mew/mew-sort.el,v
retrieving revision 1.44
diff -c -c -r1.44 mew-sort.el
*** mew-sort.el	2001/09/18 05:04:49	1.44
--- mew-sort.el	2001/09/18 05:07:09
***************
*** 302,308 ****
  			(point-min) 'mew-sort-orig)))
  	     ;; 'mew-sort-orign may start with bob.
  	     (save-excursion
! 	       (goto-char orig)
  	       (beginning-of-line)
  	       (setq orig (point)))
  	     (when orig
--- 302,308 ----
  			(point-min) 'mew-sort-orig)))
  	     ;; 'mew-sort-orign may start with bob.
  	     (save-excursion
! 	       (goto-char (or orig (point-max)))
  	       (beginning-of-line)
  	       (setq orig (point)))
  	     (when orig
***************
*** 311,317 ****
  		;; number. (window-width) is long enough to remove
  		;; it.
  		(remove-text-properties
! 		 orig (+ orig (window-width)) '(mew-sort-orig nil)))
  	       (push-mark orig t t)))
  	   (mew-summary-folder-cache-save)
  	   (set-buffer-modified-p nil)))
--- 311,318 ----
  		;; number. (window-width) is long enough to remove
  		;; it.
  		(remove-text-properties
! 		 orig (min (+ orig (window-width)) (point-max))
! 		 '(mew-sort-orig nil)))
  	       (push-mark orig t t)))
  	   (mew-summary-folder-cache-save)
  	   (set-buffer-modified-p nil)))