;;; 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))
(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*"))
(list
prefix-arg
(unless (zerop articles)
- (read-file-name
+ (vm-read-file-name
(format
"Save %s in VM folder: "
(cond ((eq 1 articles)
(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
(provide 'gnus-vm)
-;;; gnus-vm.el ends here.
+;;; gnus-vm.el ends here