[Mew-dist 15700] 'C-cC-p'(mew-summary-thread-up) does not arrive at it to the first thread.

[NINOMIYA Hideyuki]

こんばんは	二宮@お四国 です

'C-cC-p' で最初のスレッドに到達できなかったのでパッチです。
# とっても汚い気もしますが自分にはこれが限界でした。

Index: mew-thread.el
===================================================================
RCS file: /tmp/am/da/cvs/mew/mew-thread.el,v
retrieving revision 1.1.1.13
diff -c -F(def -r1.1.1.13 mew-thread.el
*** mew-thread.el	2000/12/28 11:52:56	1.1.1.13
--- mew-thread.el	2000/12/30 13:15:10
*************** (defun mew-summary-thread-up ()
*** 499,515 ****
     (let* ((folder (substring (mew-summary-folder-name 'ext) 1))
  	  (column (mew-summary-scan-form folder 'column))
  	  here)
!      (save-excursion
!        (mew-summary-goto-message)
!        (mew-decode-syntax-delete)
!        (forward-line -1)
!        (if (not (mew-summary-message-number)) (forward-line -1))
!        (catch 'loop
! 	 (while (not (bobp))
! 	   (move-to-column column)
! 	   (if (looking-at mew-thread-indent-regex)
! 	       (forward-line -1)
! 	     (throw 'loop (setq here (point)))))))
       (if here
  	 (progn
  	   (goto-char here)
--- 500,519 ----
     (let* ((folder (substring (mew-summary-folder-name 'ext) 1))
  	  (column (mew-summary-scan-form folder 'column))
  	  here)
!      (if (not (bobp))
! 	 (save-excursion
! 	   (mew-summary-goto-message)
! 	   (mew-decode-syntax-delete)
! 	   (forward-line -1)
! 	   (if (not (mew-summary-message-number)) (forward-line -1))
! 	   (if (bobp) (setq here (point)))
! 	   (catch 'loop
! 	     (while (not (bobp))
! 	       (move-to-column column)
! 	       (if (not (looking-at mew-thread-indent-regex))
! 		   (throw 'loop (setq here (point)))
! 		 (forward-line -1)
! 		 (if (bobp) (throw 'loop (setq here (point)))))))))
       (if here
  	 (progn
  	   (goto-char here)

# offset が出るでしょねぇ ... うまく当たらなかったらすいません m(__)m
---
ICQ UIN:57442553                          二宮 秀幸@愛媛 鬼北 広見町
PGP-Fingerprint:  6C59 EC08 5B23 6490 44D0  7CD3 DA40 219F 7114 8553
PGP-Public-Key:    http://user.shikoku.ne.jp/~nin/pgp/public-key.txt
mailto:nin at example.com   http://user.shikoku.ne.jp/~nin/index.html
mailto:nin at example.com http://home.jp.freebsd.org/~nin/index.html