[Mew-dist 04450] mew-save-dir for uudecode and unshar

[Masahiro MURATA ( 村田全寛 )]

  村田@神戸です。

  mew-summary-uudecode や mew-summary-unshar も mew-save-dir で指定した
ディレクトリに decode(save) したいと思うのは私だけでしょうか。簡単なもの
ですが，1.93b28 に対するパッチを添付しておきます。

--
村田 全寛 / MURATA Masahiro

-------------- next part --------------
--- ./mew-summary.el.1	Tue Apr 21 09:51:30 1998
+++ ./mew-summary.el	Tue Apr 21 09:53:04 1998
@@ -1586,7 +1586,8 @@
       (if (not (y-or-n-p (format "Execute %s for these messages? " 
 				 mew-prog-unshar)))
 	  ()
-	(setq dir (mew-input-directory-name))
+	(setq dir (mew-input-directory-name
+		   (file-name-as-directory mew-save-dir)))
 	(while fld-msg
 	  (setq files (cons (mew-expand-folder
 			     (car (car fld-msg))
@@ -1616,7 +1617,8 @@
       (if (not (y-or-n-p (format "Execute %s for these messages? "
 				 mew-prog-uumerge)))
 	  ()
-	(setq dir (mew-input-directory-name))
+	(setq dir (mew-input-directory-name
+		   (file-name-as-directory mew-save-dir)))
 	(while fld-msg
 	  (setq files (cons (mew-expand-folder
 			     (car (car fld-msg))
--- ./mew-minibuf.el.1	Tue Apr 21 09:51:44 1998
+++ ./mew-minibuf.el	Tue Apr 21 09:52:21 1998
@@ -154,8 +154,8 @@
     (expand-file-name (read-file-name msg file file))
     ))
 
-(defun mew-input-directory-name ()
-  (let ((dir (expand-file-name (read-file-name "Directory : " nil nil t))))
+(defun mew-input-directory-name (&optional default)
+  (let ((dir (expand-file-name (read-file-name "Directory : " default nil t))))
     (if (file-directory-p dir)
 	dir
       (message "%s is not directory" dir)