Feedback from the t-gnus-6_15 branch.
[elisp/gnus.git-] / lisp / gnus-vm.el
index 8cb2569..2737151 100644 (file)
@@ -1,5 +1,7 @@
 ;;; gnus-vm.el --- vm interface for Gnus
-;; Copyright (C) 1994,95,96,97,98,99 Free Software Foundation, Inc.
+
+;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
+;;     Free Software Foundation, Inc.
 
 ;; Author: Per Persson <pp@gnu.ai.mit.edu>
 ;;         Katsumi Yamaoka <yamaoka@jpl.org>
 
 ;;; Code:
 
+(eval-when-compile (require 'cl))
+
 (require 'gnus-art)
 
 (eval-when-compile
-  (require 'cl)
   (autoload 'vm-mode "vm")
+  (autoload 'vm-read-file-name "vm")
   (autoload 'vm-save-message "vm"))
 
 (when (not (featurep 'vm))
@@ -45,7 +49,7 @@
 (defvar vm-folder-history)
 (defvar vm-primary-inbox)
 (defvar vm-use-toolbar)
-  
+
 (defun gnus-vm-make-folder (&optional buffer)
   (let ((article (or buffer (current-buffer)))
        (tmp-folder (generate-new-buffer " *tmp-folder*"))
@@ -89,7 +93,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 +136,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
@@ -160,4 +164,4 @@ save those articles instead."
 
 (provide 'gnus-vm)
 
-;;; gnus-vm.el ends here.
+;;; gnus-vm.el ends here