[Mew-dist 06304] external-body の save directory

[Hideyuki SHIRAI ( 白井秀行 )]

白井です。

# release おめでとうございます。

release 案内のメールの external-body を get していて、ふと気づい
たのですが、付属のパッチのようにしたほうが mew-summary-save など
とインタフェースが共通化できて自然なんじゃないかなぁ、と感じました。

--- mew-ext.el.orig	Mon Aug 24 23:45:15 1998
+++ mew-ext.el	Sat Sep 05 22:10:23 1998
@@ -319,7 +319,9 @@
       (setq remotefile (format "/%s@%s:%s" username site filepath))
       (setq localfile (mew-input-file-name 
 		       "Save to: "
-		       (format "%s%s" default-directory name)))
+		       (format "%s%s"
+			       (file-name-as-directory mew-save-dir)
+			       name)))
       (setq lfname (file-name-nondirectory localfile))
       (if (file-exists-p localfile)
 	  (if (y-or-n-p (format "%s exists. Overwrite? " lfname))
@@ -367,7 +369,9 @@
 	(setq url (format "ftp://%s/%s" site filepath)))
       (setq localfile (mew-input-file-name 
 		       "Save to: "
-		       (format "%s%s" default-directory name)))
+		       (format "%s%s"
+			       (file-name-as-directory mew-save-dir)
+			       name)))
       (setq lfname (file-name-nondirectory localfile))
       (if (file-exists-p localfile)
 	  (if (y-or-n-p (format "%s exists. Overwrite? " lfname))