[Mew-dist 14347] Re: b64

[Ninomiya Hideyuki]

二宮 秀幸 は Mon, 2 Oct 2000 17:50:02 +0900 頃に
    Subject:    [Mew-dist 14346] Re: b64
    Message-Id: <20001002.174900.115916555.nin at example.com>
れお> b64 の mew-pick.el へのパッチです。

これだと 'C-uM-n' の時まずいですねっ

以下出直しです。b64 に対するパッチ

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 09:24:45
***************
*** 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 (or arg (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)