[mew-dist 26390] mew-summary-input-file-name()

[Hideyuki SHIRAI ( 白井秀行 )]

mew-summary-save() などで使用している mew-summary-input-file-name()
ですが、ぼくはよくこういうことをやります。

・summary で "y"
・minibuffer で "File: ~/tmp/hoge.xls" と聞かれる。
・そのままなら問題ないが、違うディレクトリにセーブしたいので、
  C-a C-k したあと、ディレクトリ入力。(*1)
・すでに、もとのファイル名が hoge.xls だと忘れているので途方にく
  れる。

# 実際は、途方にくれたときに ret して
# mew-summary-previous-directory を覚え込ませて、もう一度最初か
# らやり直すのですが。。。

というわけで、mew-mode-input-file-name で file が指定されていた
ら、(*1) のディレクトリだけのときに勝手に展開しちゃっても良いと
思います。

Index: mew-minibuf.el
===================================================================
RCS file: /cvsmew/mew/mew-minibuf.el,v
retrieving revision 1.125
diff -u -u -r1.125 mew-minibuf.el
--- mew-minibuf.el	26 May 2005 06:15:48 -0000	1.125
+++ mew-minibuf.el	31 May 2005 03:26:14 -0000
@@ -862,6 +862,8 @@
      (setq ret (mew-input-file-name ,prompt def))
      (if ,preservep
 	 (setq ,previous (file-name-directory (mew-convert-to-home-dir ret))))
+     (if (and ,file (file-directory-p ret))
+	 (setq ret (expand-file-name (file-name-nondirectory ,file) ret)))
      ret))
 
 (defun mew-summary-input-file-name (&optional prompt file)

-- 
白井秀行 (mailto:shirai at example.com)