mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

* lisp/gnus/gnus-vm.el (vm-mode, vm-save-message):

Browse Source 
Declare rather than autoload.
This commit is contained in:
Glenn Morris 2018-03-23 16:12:13 -04:00
parent 901f13122f
commit aa83340fd4
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/gnus/gnus-vm.el
View File

@ -37,9 +37,6 @@
(eval-when-compile (eval-when-compile
(require 'cl)) (require 'cl))
(autoload 'vm-mode "vm")
(autoload 'vm-save-message "vm")
(defvar gnus-vm-inhibit-window-system nil (defvar gnus-vm-inhibit-window-system nil
"Inhibit loading `win-vm' if using a window-system. "Inhibit loading `win-vm' if using a window-system.
Has to be set before gnus-vm is loaded.") Has to be set before gnus-vm is loaded.")
@ -49,6 +46,8 @@ Has to be set before gnus-vm is loaded.")
(when window-system (when window-system
(require 'win-vm)))) (require 'win-vm))))
(declare-function vm-mode "ext:vm" (&optional read-only))
(defun gnus-vm-make-folder (&optional buffer) (defun gnus-vm-make-folder (&optional buffer)
(require 'vm) (require 'vm)
(let ((article (or buffer (current-buffer))) (let ((article (or buffer (current-buffer)))
@ -81,6 +80,8 @@ save those articles instead."
(let ((gnus-default-article-saver 'gnus-summary-save-in-vm)) (let ((gnus-default-article-saver 'gnus-summary-save-in-vm))
(gnus-summary-save-article arg))) (gnus-summary-save-article arg)))
(declare-function vm-save-message "ext:vm-save" (folder &optional count))
(defun gnus-summary-save-in-vm (&optional folder) (defun gnus-summary-save-in-vm (&optional folder)
(interactive) (interactive)
(require 'vm) (require 'vm)