[Mew-dist 09152] Re: mew-attach-link-message wrong

[Kazu Yamamoto ( 山本和彦 )]

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com>
Subject: [Mew-dist 09087] mew-attach-link-message wrong
Date: Thu, 3 Jun 1999 10:10:48 +0900

> (mew-mode-input-file-name "Copy: " "c:/home/shirai/Mail/inbox/100"
> 			  mew-draft-preserve-dir
> 			  mew-draft-previous-directory "~/")
> =>
> "c:/home/shirai/c:/home/shirai/Mail/inbox/1"
> 
> drive letter が入っているため(？)、こんなふうになってしまい、失
> 敗します。mew-draft-preserve-dir が t だと、その後ボロボロです。^^;

これでいいでしょうか？

(defmacro mew-mode-input-file-name (prompt file preservep previous modedir)
  (` (let (dir ret def)
       (if (file-name-absolute-p (, file))
	   (setq def (mew-convert-to-home-dir (, file)))
	 (if (, preservep)
	     (setq dir (or (, previous) (, modedir)))
	   (setq dir (, modedir)))
	 (setq dir (and dir (file-name-as-directory (, prompt) 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))))
       ret)))

--かず＠リリースは遠い(- -)