[Mew-dist 09087] mew-attach-link-message wrong

[Hideyuki SHIRAI ( 白井秀行 )]

白井です。

mew-attach-link-message が動きません。すちゃらかな file 名が出て
来ます。UNIX だとそれでも救われるみたいなのですが、Windows だと

(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 だと、その後ボロボロです。^^;

附属のパッチの様に mew-minibuf.el の

(defmacro mew-mode-input-file-name (prompt file preservep previous modedir)

の中で

(concat dir (, file))

しているところを、expand-file-name() に変えれば動くのですが、こ
の macro は、もともと path の付いている file という引数を想定し
ていないようなので、副作用が心配です。

-------------- next part --------------
--- mew-minibuf.el.orig	Tue May 18 21:14:31 1999
+++ mew-minibuf.el	Thu Jun  3 09:58:14 1999
@@ -275,14 +275,20 @@
   (` (if (, preservep)
 	 (let (dir ret)	 
 	   (setq dir (file-name-as-directory (or (, previous) (, modedir))))
-	   (setq ret (mew-input-file-name (, prompt) (concat dir (, file))))
+	   (setq ret (mew-input-file-name
+		      (, prompt)
+		      (if (, file)
+			  (expand-file-name (, file) dir)
+			dir)))
 	   (setq (, previous)
 		 (file-name-directory (mew-convert-to-home-dir ret)))
 	   ret)
        (mew-input-file-name
 	(, prompt)
-	(concat (and (, modedir) (file-name-as-directory (, modedir)))
-		(, file))))))
+	(if (, file)
+	    (expand-file-name (, file)
+			      (and (, modedir) (file-name-as-directory (, modedir))))
+	  (and (, modedir) (file-name-as-directory (, modedir))))))))
 
 (defun mew-summary-input-file-name (&optional prompt file)
   (mew-mode-input-file-name prompt file mew-summary-preserve-dir