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

[Kazu Yamamoto ( 山本和彦 )]

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com>
Subject: [Mew-dist 09155] Re: mew-attach-link-message wrong
Date: Fri, 4 Jun 1999 16:27:42 +0900

> 普通の "c" とか "l" だと file が nil でエラーになるような気がし
> たら、やっぱりエラーになりましたが、"y" は OK です。

これで、どうでしょう？

(defmacro mew-mode-input-file-name (prompt file preservep previous modedir)
  (` (let (dir ret def)
       (if (and (, file) (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 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)))

--かず