[Mew-dist 17457] Re: move D mark Was

[NINOMIYA Hideyuki]

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

山本 和彦 様 は Mon, 21 May 2001 15:42:04 +0900 頃に
    Subject: [Mew-dist 17449] Re: move D mark Was
    Message-Id: <20010521.154214.125106308.kazu at example.com>
        に於いて以下のようにおっしゃっていました。
※都合により手を加えさせていただく事が有ります。御了承下さいマセヽ...
かず> From: NINOMIYA Hideyuki <nin at example.com>
かず> Subject: [Mew-dist 17448] Re: move D mark Was

かず> > それならば、デフォルトなマークを設定する変数としては
かず> > mew-default-mark-walk の様な変数を使用し、mew-mark-walk の方は
かず> > ユーザは直接いじらないようにしてはどうでしょうか
かず> 
かず> どうして気がひけているかというと、mew-mark-walk は僕が定義した
かず> 変数ではないので、どんな影響が出るか分らないからです。
かず> 
かず> といっておけば、だれかからフォローがあるでしょう。:)

grep してみたらあまり広範囲な影響はなさそうだったのでちょっとやって
みました。


Index: mew-mark.el
===================================================================
RCS file: /tmp/am/da/cvs/mew/mew-mark.el,v
retrieving revision 1.21
diff -c -F(def.* -r1.21 mew-mark.el
*** mew-mark.el	2001/05/18 05:23:00	1.21
--- mew-mark.el	2001/05/21 09:56:47
*************** (defun mew-summary-undo-all ()
*** 551,557 ****
    "Cancel all marks according to what you input."
    (interactive)
    (let ((char (mew-input-mark)))
!     (if char (mew-mark-undo-mark char))))
  
  (defun mew-mark-undo-mark (mark &optional no-msg)
    "Undo MARK on the entire buffer.
--- 551,557 ----
    "Cancel all marks according to what you input."
    (interactive)
    (let ((char (mew-input-mark)))
!     (if (and (not (eq char mew-mark-tmp)) char) (mew-mark-undo-mark char))))
  
  (defun mew-mark-undo-mark (mark &optional no-msg)
    "Undo MARK on the entire buffer.
*************** (defun mew-summary-clean-msgs (src dels)
*** 903,909 ****
  
  (defun mew-summary-set-walk-mark ()
    (let ((char (mew-input-mark)))
!     (if char (setq mew-mark-walk char))))
  
  (defun mew-summary-down-mark (mark)
    (forward-line)
--- 903,914 ----
  
  (defun mew-summary-set-walk-mark ()
    (let ((char (mew-input-mark)))
!     (cond
!      ((eq char mew-mark-tmp)
!       (setq mew-mark-walk mew-mark-default-walk)
!       (message "target mark was changed to default(%s)."
! 	       (char-to-string mew-mark-walk)))
!      (char (setq mew-mark-walk char)))))
  
  (defun mew-summary-down-mark (mark)
    (forward-line)
Index: mew-minibuf.el
===================================================================
RCS file: /tmp/am/da/cvs/mew/mew-minibuf.el,v
retrieving revision 1.15
diff -c -F(def.* -r1.15 mew-minibuf.el
*** mew-minibuf.el	2001/05/18 05:23:00	1.15
--- mew-minibuf.el	2001/05/21 09:56:48
*************** (defun mew-input-mark ()
*** 414,425 ****
  	  (message "Input mark : ")
  	  (setq cursor-in-echo-area t)
  	  (setq char (read-char))
! 	  (message "Input mark : %s" (char-to-string char)))
        (setq cursor-in-echo-area ociea))
!     (if (mew-markdb-by-mark char)
! 	char
!       (message "Mark %c is not supported" char)
!       nil)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
--- 414,427 ----
  	  (message "Input mark : ")
  	  (setq cursor-in-echo-area t)
  	  (setq char (read-char))
! 	  (if (not (eq char ?\r))
! 	      (message "Input mark : %s" (char-to-string char))))
        (setq cursor-in-echo-area ociea))
!     (cond
!      ((eq char ?\r) mew-mark-tmp)
!      ((mew-markdb-by-mark char) char)
!      (t (message "Mark %c is not supported" char)
! 	nil))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
Index: mew-vars2.el
===================================================================
RCS file: /tmp/am/da/cvs/mew/mew-vars2.el,v
retrieving revision 1.14
diff -c -F(def.* -r1.14 mew-vars2.el
*** mew-vars2.el	2001/05/09 16:20:21	1.14
--- mew-vars2.el	2001/05/21 09:56:48
*************** (defvar mew-mark-delete ?D)
*** 27,34 ****
  (defvar mew-mark-unlink ?X)
  (defvar mew-mark-refile ?o)
  (defvar mew-mark-tmp    ?\0) ;; temporary use only.
! (defvar mew-mark-collect mew-mark-review)
! (defvar mew-mark-walk    mew-mark-review)
  (defvar mew-mark-show-list (list mew-mark-review))
  
  (defvar mew-summary-mark-undo-marks
--- 27,35 ----
  (defvar mew-mark-unlink ?X)
  (defvar mew-mark-refile ?o)
  (defvar mew-mark-tmp    ?\0) ;; temporary use only.
! (defvar mew-mark-collect      mew-mark-review)
! (defvar mew-mark-default-walk mew-mark-review)
! (defvar mew-mark-walk         mew-mark-default-walk)
  (defvar mew-mark-show-list (list mew-mark-review))
  
  (defvar mew-summary-mark-undo-marks


こんな感じでどうでしょう?
--─
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