[Mew-dist 272] Re: [Q]refile

[SAKAI Kiyotaka]

>> In article <199611280529.FAA08782 at example.com>, Ichiro - ○ す - Suzuki <suzuki1 at example.com> writes:

>   mew は、0.8 位からずーっと使っているのですが、いつの頃からか、refile 
> 時の mini buffer におけるフォルダ入力で、M-p が使えなくなりました。

"o" で複数の folder を指定できるように変更したときからでしょう。

>   通常は、mew-auto-folder-alist に定義しているので、あまり問題はないの
> ですが、 mail を整理している時にこの定義とは違ったフォルダに refile し
> たい場合があります。

>   g とかは使えるのですが、o でも使える様にするには、どうすれはいいので
> しょう。どなたか教えて頂けせんか。

このパッチでどうですか？
-- 
酒井 清隆 (E-mail: ksakai at example.com)

-------------- next part --------------
===================================================================
RCS file: RCS/mew.el,v
retrieving revision 1.1
diff -u -r1.1 mew.el
--- mew.el	1996/12/12 11:22:38	1.1
+++ mew.el	1996/12/12 11:35:28
@@ -741,6 +741,8 @@
   (define-key mew-folder-map "\r"   'exit-minibuffer)
   (define-key mew-folder-map "\n"   'exit-minibuffer)
   (define-key mew-folder-map "\C-g" 'abort-recursive-edit)
+  (define-key mew-folder-map "\M-p" 'previous-history-element)
+  (define-key mew-folder-map "\M-n" 'next-history-element)
   )
 
 ;;;
@@ -1267,7 +1269,9 @@
     (setq folders
 	  (read-from-minibuffer (format "Folder name (%s): " default)
 				(or string "+")
-				mew-folder-map))
+				mew-folder-map
+				nil
+				"+"))
     (if (or (string= folders "") (string= folders "+"))
 	(setq folders default))
     (mapcar (function directory-file-name)