[mew-dist 26411] Re: mew-summary-input-file-name()

[KOIE Hidetaka ( 鯉江英隆 )]

  Message-Id: <20050602.143207.65716150.kazu at example.com>
  Date:       Thu, 02 Jun 2005 14:32:07 +0900 (JST)
  From:       Kazu Yamamoto (山本和彦) <kazu at example.com>
  Subject:    [mew-dist 26396] Re: mew-summary-input-file-name()

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

mew-summary-preserve-dir を t に設定しているのですが
save でディレクトリだけを入力すると
mew-summary-previous-directory に1段上のディレクトリが
記憶されてしまうので
previousに記憶する前に展開したほうがよいとおもいます。

Index: mew-minibuf.el
===================================================================
RCS file: /cvsmew/mew/mew-minibuf.el,v
retrieving revision 1.126
diff -p -u -r1.126 mew-minibuf.el
--- mew-minibuf.el	2 Jun 2005 05:32:27 -0000	1.126
+++ mew-minibuf.el	8 Jun 2005 07:45:03 -0000
@@ -860,10 +860,10 @@ it is deleted automatically."
        (setq dir (and dir (file-name-as-directory dir)))
        (setq def (concat dir ,file)))
      (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)))
+     (if ,preservep
+	 (setq ,previous (file-name-directory (mew-convert-to-home-dir ret))))
      ret))
 
 (defun mew-summary-input-file-name (&optional prompt file)

--
鯉江英隆 <hide at example.com>