Mercurial > emacs

comparison lisp/gnus/gnus-vm.el @ 31716:9968f55ad26e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update to emacs-21-branch of the Gnus CVS repository.
author Gerd Moellmann <gerd@gnu.org>
date Tue, 19 Sep 2000 13:37:09 +0000
parents cbe304a26771
children 6c93e7d6a930
comparison
equal deleted inserted replaced
31715:7c896543d225 31716:9968f55ad26e
1 ;;; gnus-vm.el --- vm interface for Gnus 1 ;;; gnus-vm.el --- vm interface for Gnus
2 ;; Copyright (C) 1994,95,96,97,98 Free Software Foundation, Inc.
3 2
4 ;; Author: Per Persson <pp@gnu.org> 3 ;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000
4 ;; Free Software Foundation, Inc.
5
6 ;; Author: Per Persson <pp@gnu.ai.mit.edu>
5 ;; Keywords: news, mail 7 ;; Keywords: news, mail
6 8
7 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
8 10
9 ;; GNU Emacs is free software; you can redistribute it and/or modify 11 ;; GNU Emacs is free software; you can redistribute it and/or modify
34 (require 'message) 36 (require 'message)
35 (require 'gnus) 37 (require 'gnus)
36 (require 'gnus-msg) 38 (require 'gnus-msg)
37 39
38 (eval-when-compile 40 (eval-when-compile
41 (require 'cl)
39 (autoload 'vm-mode "vm") 42 (autoload 'vm-mode "vm")
40 (autoload 'vm-save-message "vm") 43 (autoload 'vm-save-message "vm")
41 (autoload 'vm-forward-message "vm") 44 (autoload 'vm-forward-message "vm")
42 (autoload 'vm-reply "vm") 45 (autoload 'vm-reply "vm")
43 (autoload 'vm-mail "vm")) 46 (autoload 'vm-mail "vm"))
44 47
45 (defvar gnus-vm-inhibit-window-system nil 48 (defvar gnus-vm-inhibit-window-system nil
46 "Inhibit loading `win-vm' if using a window-system. 49 "Inhibit loading `win-vm' if using a window-system.
47 Has to be set before gnus-vm is loaded.") 50 Has to be set before gnus-vm is loaded.")
48 51
49 (or gnus-vm-inhibit-window-system 52 (unless gnus-vm-inhibit-window-system
50 (condition-case nil 53 (ignore-errors
51 (when window-system 54 (when window-system
52 (require 'win-vm)) 55 (require 'win-vm))))
53 (error nil)))
54 56
55 (when (not (featurep 'vm)) 57 (when (not (featurep 'vm))
56 (load "vm")) 58 (load "vm"))
57 59
58 (defun gnus-vm-make-folder (&optional buffer) 60 (defun gnus-vm-make-folder (&optional buffer)