[Mew-dist 1479] Re: Mew 1.88 & im-55

[Takaaki MORIYAMA]

# Wed, 06 Aug 1997 15:41:59 +0900 に, 山本和彦  さんが
# [Mew-dist 1466] Mew 1.88 & im-55 について書きました... 

森山@立命館です. 

> 旅立つ前にユーザを同期を取った方がいいと思うようになったので、Mew 1.88 
> と IM 55 を beta リリースします。

Mew 1.88の虫取り(だと思う)です. 

@を付けたメイルをM-tでuumergeする場合, 
  Directory : ~/inbox
のようにuumerge後のファイルを保存するdirectoryを聞いてきます. 
directoryのデフォルト値は該当メイルのあるフォルダ名になっていますが, 
そのままリターンだけを押してもhome directoryに展開してしまいます. 

そこで, mew-minibuf.elのmew-input-directory-nameを次のパッチのように
変更した方がいいのではないかと思います. 

-------------------------------ここから-------------------------------
--- mew-minibuf.el.orig	Thu Aug  7 17:52:26 1997
+++ mew-minibuf.el	Thu Aug  7 18:04:33 1997
@@ -154,7 +154,8 @@
     ))
 
 (defun mew-input-directory-name ()
-  (let ((dir (expand-file-name (read-file-name "Directory : " nil "~" t))))
+  (let* ((insert-default-directory t)
+	 (dir (expand-file-name (read-file-name "Directory : " nil nil t))))
     (if (file-directory-p dir)
 	dir
       (message "%s is not directory" dir)
-------------------------------ここまで-------------------------------

-----
  森山 高明 (^^)/○〜○
  mailto: taka at example.com