From: yamaoka <yamaoka>
Date: Wed, 28 Apr 1999 11:06:13 +0000 (+0000)
Subject: (gnus-summary-save-in-vm): Use `vm-read-file-name' instead of `read-file-name'.
X-Git-Tag: t-gnus-6_10_063-03~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2e0784250d1c7dedb81a9452877d0461dc720177;p=elisp%2Fgnus.git-

(gnus-summary-save-in-vm): Use `vm-read-file-name' instead of `read-file-name'.
This allows to use the optional sixth argument HISTORY for the various
environments.
(gnus-summary-save-article-vm): Ditto.
(TopLevel): Autoload "vm" for the function `vm-read-file-name'.
---

diff --git a/lisp/gnus-vm.el b/lisp/gnus-vm.el
index 8cb2569..40123c4 100644
--- a/lisp/gnus-vm.el
+++ b/lisp/gnus-vm.el
@@ -36,6 +36,7 @@
 (eval-when-compile
   (require 'cl)
   (autoload 'vm-mode "vm")
+  (autoload 'vm-read-file-name "vm")
   (autoload 'vm-save-message "vm"))
 
 (when (not (featurep 'vm))
@@ -89,7 +90,7 @@ save those articles instead."
      (list
       prefix-arg
       (unless (zerop articles)
-	(read-file-name
+	(vm-read-file-name
 	 (format
 	  "Save %s in VM folder: "
 	  (cond ((eq 1 articles)
@@ -132,9 +133,9 @@ save those articles instead."
   (interactive
    (let (default-folder)
      (setq default-folder (or (car vm-folder-history) vm-primary-inbox))
-     (list (read-file-name "Save this article in VM folder: "
-			   (if default-folder "" vm-folder-directory)
-			   nil nil default-folder 'vm-folder-history))))
+     (list (vm-read-file-name "Save this article in VM folder: "
+			      (if default-folder "" vm-folder-directory)
+			      nil nil default-folder 'vm-folder-history))))
   (unless (interactive-p)
     (setq folder (or folder gnus-summary-save-article-vm-folder)))
   (unless folder