;;; gnus-vm.el --- vm interface for Gnus
-;; Copyright (C) 1994,95,96 Free Software Foundation, Inc.
+;; Copyright (C) 1994,95,96,97 Free Software Foundation, Inc.
;; Author: Per Persson <pp@gnu.ai.mit.edu>
;; Keywords: news, mail
;;; Commentary:
-;; Major contributors:
+;; Major contributors:
;; Christian Limpach <Christian.Limpach@nice.ch>
-;; Some code stolen from:
+;; Some code stolen from:
;; Rick Sladkey <jrs@world.std.com>
;;; Code:
(require 'message)
(require 'gnus)
(require 'gnus-msg)
-(require 'gnus-load)
(eval-when-compile
(autoload 'vm-mode "vm")
(or gnus-vm-inhibit-window-system
(condition-case nil
- (if window-system
- (require 'win-vm))
+ (when window-system
+ (require 'win-vm))
(error nil)))
-(if (not (featurep 'vm))
- (load "vm"))
+(when (not (featurep 'vm))
+ (load "vm"))
(defun gnus-vm-make-folder (&optional buffer)
(let ((article (or buffer (current-buffer)))
(insert "\n")
(vm-mode)
tmp-folder))
-
+
(defun gnus-summary-save-article-vm (&optional arg)
"Append the current article to a vm folder.
If N is a positive number, save the N next articles.
(setq folder
(cond ((eq folder 'default) default-name)
(folder folder)
- (t (gnus-read-save-file-name
- "Save article in VM folder:" default-name))))
- (make-directory (file-name-directory folder) t)
+ (t (gnus-read-save-file-name
+ "Save %s in VM folder:" default-name))))
+ (gnus-make-directory (file-name-directory folder))
(set-buffer gnus-original-article-buffer)
(save-excursion
(save-restriction