Function: gnus-summary-save-in-vm

gnus-summary-save-in-vm is an autoloaded, interactive and byte-compiled function defined in gnus-vm.el.gz.

Signature

(gnus-summary-save-in-vm &optional FOLDER)

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-vm.el.gz
(defun gnus-summary-save-in-vm (&optional folder)
  (interactive nil gnus-article-mode gnus-summary-mode)
  (require 'vm)
  (setq folder
	(gnus-read-save-file-name
	 "Save %s in VM folder:" folder
	 gnus-mail-save-name gnus-newsgroup-name
	 gnus-current-headers 'gnus-newsgroup-last-mail))
  (gnus-eval-in-buffer-window gnus-original-article-buffer
    (save-excursion
      (save-restriction
	(widen)
	(let ((vm-folder (gnus-vm-make-folder)))
	  (vm-save-message folder)
	  (kill-buffer vm-folder))))))