[Mew-dist 14346] Re: b64

[Ninomiya Hideyuki]

こんにちは	二宮@お四国 です

山本 和彦 様 は Mon, 2 Oct 2000 13:06:37 +0900 頃に
    Subject:    [Mew-dist 14340] Re: b64
    Message-Id: <20001002.130457.41683022.kazu at example.com>
        に於いて以下のようにおっしゃっていました。
※都合により手を加えさせていただく事が有ります。御了承下さいマセヽ...
かず> From: Ninomiya Hideyuki <nin at example.com>
かず> Subject: [Mew-dist 14332] Re: b64
かず> 
かず> > (1) '?' --> pick pattern: to=mew-dist
かず> >     としてから 'M-n' すると、keyword に "to=mew-dist" というのが
かず> >     入ります。当然、"to=mew-dist" という文字列は mail 中に無いので、
かず> >     "not found" と言われてしまいます。
かず> 
かず> 今はできませんが、
かず> 	to=mew-dist && from=kazu 
かず> という検索キーの場合、どこを切り出すのですか？

なるほど〜...そこまで考えていませんでした。

かず> 仕様を複雑にしたくないので、「ユーザが勝手に編集してね」
かず> というポリシーをとっています。

に沿って、'?' or 'C-u?' 後の 'M-n' で keyword を変更しなくて良いか
聴くように(*1)して

*1 'M-n' --> keyword: "to=mew-dist" is ok ? (y or n)
                 (y)--> そのまま実行
		 (n)--> keyword: to=mew-dist <変更する>

かず> > (2) いったん * mark を消し、pick or grep しなおした際。
かず> >     keyword に新しい pick or grep pattern が入らずに、以前の
かず> >     keyword のままである。
かず> >     pick or grep しなおした際には、keyword を新しい pattern に
かず> >     変更すべきだと思います。
かず> 
かず> そうかもしれません。

こっちもしました。
b64 の mew-pick.el へのパッチです。

Index: mew-pick.el
===================================================================
RCS file: /tmp/am/od/cvs/mew/mew-pick.el,v
retrieving revision 0.2
diff -c -r0.2 mew-pick.el
*** mew-pick.el	2000/09/29 14:09:39	0.2
--- mew-pick.el	2000/10/02 08:45:13
***************
*** 25,30 ****
--- 25,31 ----
       (if arg
  	 (setq msgs (mew-summary-pick-with-external folder pattern))
         (setq msgs (mew-summary-pick-with-imls folder pattern)))
+      (setq mew-summary-buffer-find-keyword nil)
       (message "Picking messages in %s ... done" folder)
       (if (null msgs)
  	 (message "No message to be marked.")
***************
*** 115,124 ****
  	 (key mew-summary-buffer-find-keyword)
  	 (mark (mew-summary-get-mark))
  	 (search t) end top )
!     (if (or arg (not (stringp key)))
  	(progn
  	  (setq key (read-string
! 		     "Keyword: " (or (car mew-input-pick-pattern-hist) key)))
  	  (setq mew-summary-buffer-find-keyword key)))
      (cond
       ((and (equal mew-mark-review mark)
--- 116,131 ----
  	 (key mew-summary-buffer-find-keyword)
  	 (mark (mew-summary-get-mark))
  	 (search t) end top )
!     (if (not (stringp key))
  	(progn
+ 	  (setq key (car mew-input-pick-pattern-hist))
+ 	  (if (or (not (stringp key))
+ 		  (not (y-or-n-p (format "Keyword: \"%s\" is ok ? " key))))
+ 	      (setq arg t))))
+     (if arg
+ 	(progn
  	  (setq key (read-string
! 		     "Keyword: " (or key (car mew-input-pick-pattern-hist))))
  	  (setq mew-summary-buffer-find-keyword key)))
      (cond
       ((and (equal mew-mark-review mark)

# 英語のメッセージが変なのはご愛敬...
---
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