X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-vm.el;h=27371511e891e57fa230b095ad34754ee3787234;hb=8047583c8c86a5c6a61bddc27b391042e39e1ce5;hp=8cb2569d9ca4b72f6a6127022abfaca2ea9fdb47;hpb=cbecffc284dbd3a6447253cfb0d8eb61026c5d17;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-vm.el b/lisp/gnus-vm.el
index 8cb2569..2737151 100644
--- a/lisp/gnus-vm.el
+++ b/lisp/gnus-vm.el
@@ -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>
@@ -31,11 +33,13 @@
 
 ;;; 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