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

[Hideyuki SHIRAI ( 白井秀行 )]

From: KOIE Hidetaka (鯉江英隆) <hide at example.com> さん曰く
Subject: [mew-dist 26411] Re: mew-summary-input-file-name()
Message-ID: <20050608.165112.193684593.hide at example.com>
Date: Wed, 08 Jun 2005 16:51:12 +0900 (JST)

>   | > というわけで、mew-mode-input-file-name で file が指定されていた
>   | > ら、(*1) のディレクトリだけのときに勝手に展開しちゃっても良いと
>   | > 思います。
>   | 
>   | マージしました。
> 
> mew-summary-preserve-dir を t に設定しているのですが
> save でディレクトリだけを入力すると
> mew-summary-previous-directory に1段上のディレクトリが
> 記憶されてしまうので
> previousに記憶する前に展開したほうがよいとおもいます。

あれれ？そんなことはない、と思ったのですが、"~/tmp" で入力をやめ
るか、"~/tmp/" まで入力してあるかの違いかしら。

# ぼくは後者です。

鯉江さんのだと、file のある無しで挙動が変わるから、

> 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 ,preservep
    (setq ,previous (file-name-directory
		     (mew-convert-to-home-dir
		      (if (file-directory-p ret)
			  (file-name-as-directory ret)
			ret)))))

が良いと思います。

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