;ELC   
;;; Compiled by amu@quiche-lorraine.mit.edu on Thu Jan  6 19:17:45 2000
;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.3/lisp/gnus-vm.el
;;; in Emacs version 20.4.1
;;; with bytecomp version 2.56
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`gnus-vm.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require sendmail message gnus gnus-msg] 2)
#@92 Inhibit loading `win-vm' if using a window-system.
Has to be set before gnus-vm is loaded.
(defvar gnus-vm-inhibit-window-system nil (#$ . 751))
(byte-code "\204	 \301\302\303\217\210\304\305!\204 \306\307!\210\301\207" [gnus-vm-inhibit-window-system #1=#:G82058 (byte-code "\203 \301\302!\210\301\207" [window-system require win-vm] 2) ((error)) featurep vm load "vm"] 3)
(defalias 'gnus-vm-make-folder #[(&optional buffer) "\206 p\306\307!edq\210\310\f\n	#\210eb\210\311\312!\203* \313\314\315 P!\210\2023 \316\317\315 \320\261\210\321\322\323\324#\203B \313\325!\210\2023 db\210\320c\210\326 \210,\207" [buffer end start tmp-folder article gnus-newsgroup-name generate-new-buffer " *tmp-folder*" insert-buffer-substring looking-at "^\\(From [^ ]+ \\).*$" replace-match "\\1" current-time-string "From " " " "\n" re-search-forward "\n\nFrom " nil t "\n\n>From " vm-mode] 5])
#@252 Append the current article to a vm folder.
If N is a positive number, save the N next articles.
If N is a negative number, save the N previous articles.
If N is nil and any articles have been marked with the process mark,
save those articles instead.
(defalias 'gnus-summary-save-article-vm #[(&optional arg) "\302\303	!)\207" [gnus-default-article-saver arg gnus-summary-save-in-vm gnus-summary-save-article] 2 (#$ . 1649) "P"])
(defalias 'gnus-summary-save-in-vm #[(&optional folder) "\306\307	\n\310&\311 \312\313\"\314\216\203, \315!\210\316!q\210\2021 \317!\210\212\214~\210\320 \321!\210\322!.\207" [folder gnus-mail-save-name gnus-newsgroup-name gnus-current-headers #1=#:GnusStartBufferWindow gnus-original-article-buffer gnus-read-save-file-name "Save %s in VM folder:" gnus-newsgroup-last-mail selected-window get-buffer-window visible ((select-window #1#)) select-window window-buffer pop-to-buffer gnus-vm-make-folder vm-save-message kill-buffer #2=#:buf #3=#:w vm-folder] 7 nil nil])
(provide 'gnus-vm)