[mew-dist 20020] pick in $inbox

[Ryota HIROSE]

$inboxでpick(?)が動作しなかったのでパッチです。

ryt

Index: mew-pick.el
===================================================================
RCS file: /cvsmew/mew/mew-pick.el,v
retrieving revision 1.11
diff -c -r1.11 mew-pick.el
*** mew-pick.el	2001/10/31 09:45:01	1.11
--- mew-pick.el	2002/01/08 00:15:30
***************
*** 22,33 ****
     (let ((folder (mew-summary-folder-name))
  	 (pattern (if arg (mew-input-grep-pattern) (mew-input-pick-pattern)))
  	 (preline 0)
! 	 msgs msgsback threadmsgs total linenum)
       (mew-sinfo-set-find-key nil) ;; force to ask a user
       (message "Picking messages in %s..." folder)
       (if arg
! 	 (setq msgs (mew-summary-pick-with-external folder pattern))
!        (setq msgs (mew-summary-pick-with-mewls folder pattern)))
       (setq msgsback msgs)
       (message "Picking messages in %s...done" folder)
       (if (null msgs)
--- 22,34 ----
     (let ((folder (mew-summary-folder-name))
  	 (pattern (if arg (mew-input-grep-pattern) (mew-input-pick-pattern)))
  	 (preline 0)
! 	 msgs msgsback threadmsgs total linenum rfld)
       (mew-sinfo-set-find-key nil) ;; force to ask a user
       (message "Picking messages in %s..." folder)
+      (setq rfld (if (mew-folder-popp folder) (mew-expand-folder folder) folder))
       (if arg
! 	 (setq msgs (mew-summary-pick-with-external rfld pattern))
!        (setq msgs (mew-summary-pick-with-mewls rfld pattern)))
       (setq msgsback msgs)
       (message "Picking messages in %s...done" folder)
       (if (null msgs)