;ELC ;;; compiled by kwzh@nutrimat.gnu.ai.mit.edu on Wed Jul 17 16:50:09 1996 ;;; from file /gd/gnu/emacs/19.0/lisp/gnus-vm.el ;;; emacs version 19.31.94.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (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 "!!!!" [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 (#$ . 552)) (byte-code " Ï!!" [gnus-vm-inhibit-window-system nil (byte-code "!" [window-system require win-vm] 2) ((error)) featurep vm load "vm"] 3) (defalias 'gnus-vm-make-folder #[(&optional buffer) "p!ed q\f #eb!, P!6 б#E!6dbc ," [buffer generate-new-buffer " *tmp-folder*" end start tmp-folder article insert-buffer-substring looking-at "^\\(From [^ ]+ \\).*$" replace-match "\\1" current-time-string "From " gnus-newsgroup-name " " "\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) " !)" [gnus-summary-save-in-vm gnus-default-article-saver gnus-summary-save-article arg] 2 (#$ . 1276) "P"]) (defalias 'gnus-summary-save-in-vm #[(&optional folder) " \n # =\f  \f\" !! q~  ! !+ )" [gnus-mail-save-name gnus-newsgroup-name gnus-current-headers gnus-newsgroup-last-mail default-name folder default gnus-read-save-file-name "Save article in VM folder:" gnus-make-directory file-name-directory gnus-original-article-buffer gnus-vm-make-folder vm-folder vm-save-message kill-buffer] 4 nil nil]) (provide (quote gnus-vm))