From 2e0784250d1c7dedb81a9452877d0461dc720177 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 28 Apr 1999 11:06:13 +0000 Subject: [PATCH] (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'. --- lisp/gnus-vm.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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 -- 1.7.10.4