X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-vm.el;h=27371511e891e57fa230b095ad34754ee3787234;hb=8047583c8c86a5c6a61bddc27b391042e39e1ce5;hp=40123c4fefbe4bb280ca083f2d340e4fe2880e7b;hpb=2e0784250d1c7dedb81a9452877d0461dc720177;p=elisp%2Fgnus.git- diff --git a/lisp/gnus-vm.el b/lisp/gnus-vm.el index 40123c4..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 ;; Katsumi Yamaoka @@ -31,10 +33,11 @@ ;;; 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")) @@ -46,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*")) @@ -161,4 +164,4 @@ save those articles instead." (provide 'gnus-vm) -;;; gnus-vm.el ends here. +;;; gnus-vm.el ends here