[Mew-dist 15283] Re: about 'i' in ++inbox(thread) after 'C-cC-b'

SAKAI Kiyotaka ksakai at example.com
2000年 12月 5日 (火) 10:39:42 JST


>> In article <20001205.010754.71084564.nin at example.com>, NINOMIYA Hideyuki <nin at example.com> writes:

> 1). thread な ++inbox 上で 'i' します。
>     +inbox に移って inc が実行されます。
> 2). +inbox で 'C-cC-b' すると。。。
>     thread 作りなおされずに ++inbox の 1 の時の場所に移る。。。

> +inbox と ++inbox に矛盾が...

> この場合の動作はどうあるべきなのでしょうか ?

thread を作り直して元の位置に移動というのは実装が大変だと思いますので、
警告を表示して C-cC-b を無効にするというのが妥当なところではないでしょ
うか。

一応、そうするためのパッチを付けておきます。
-- 
酒井 清隆 (E-mail: ksakai at example.com)


===================================================================
RCS file: RCS/mew-scan.el,v
retrieving revision 1.1
diff -c -r1.1 mew-scan.el
*** mew-scan.el	2000/12/05 01:26:16	1.1
--- mew-scan.el	2000/12/05 01:32:52
***************
*** 328,340 ****
    "Get back to the position before typing '\\<mew-summary-mode-map>\\[mew-summary-get]'."
    (interactive)
    (mew-summary-only
!    (and (member (mew-summary-folder-name 'ext) mew-inbox-folders)
! 	;; can be used in +inbox only
! 	(marker-position mew-summary-inbox-position) ;; marker is valid
! 	(or (equal (current-buffer)
! 		   (marker-buffer mew-summary-inbox-position))
! 	    (switch-to-buffer (marker-buffer mew-summary-inbox-position)))
! 	(goto-char (marker-position mew-summary-inbox-position)))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
--- 328,344 ----
    "Get back to the position before typing '\\<mew-summary-mode-map>\\[mew-summary-get]'."
    (interactive)
    (mew-summary-only
!    (let* ((folder (mew-summary-folder-name 'ext))
! 	  (vfolder (concat "+" folder))
! 	  (mbuffer (marker-buffer mew-summary-inbox-position)))
!      (if (equal (get-buffer vfolder) mbuffer)
! 	 (message "Virtual buffer should be updated")
!        (and (member folder mew-inbox-folders)
! 	    ;; can be used in +inbox only
! 	    (marker-position mew-summary-inbox-position) ;; marker is valid
! 	    (or (equal (current-buffer) mbuffer)
! 		(switch-to-buffer mbuffer))
! 	    (goto-char (marker-position mew-summary-inbox-position)))))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;





Mew-dist メーリングリストの案内