;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (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 (#$ . 194)) (byte-code "\204\3021 \205\303\304!0\210\202\210\305\207" [gnus-vm-inhibit-window-system window-system (error) require win-vm nil] 2) #@25 (fn &optional BUFFER) (defalias 'gnus-vm-make-folder #[256 "\301\302!\210\211\206 p\303\304!edq\210\305#\210eb\210\306\307!\203*\310\311\312 P!\210\2023\313\314\312 \315\261\210\316\317\320\321#\203B\310\322!\210\2023db\210\315c\210\323 \210\207" [gnus-newsgroup-name require vm 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] 10 (#$ . 488)]) #@272 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. (fn &optional ARG) (defalias 'gnus-summary-save-article-vm #[256 "\301\302!\210\303\304!)\207" [gnus-default-article-saver require gnus-art gnus-summary-save-in-vm gnus-summary-save-article] 3 (#$ . 1014) ["P" (gnus-article-mode gnus-summary-mode)]]) #@25 (fn &optional FOLDER) (defalias 'gnus-summary-save-in-vm #[256 "\304\305!\210\306\307 \n\310&\262\311 \312\313\"\314\315\"\216\211\203+\316!\210\317!q\210\202/\320!\210\212\214~\210\321 \322!\210\323!\262+\207" [gnus-mail-save-name gnus-newsgroup-name gnus-current-headers gnus-original-article-buffer require vm gnus-read-save-file-name "Save %s in VM folder:" gnus-newsgroup-last-mail selected-window gnus-get-buffer-window visible make-closure #[0 "\301\300!\207" [V0 select-window] 2] select-window window-buffer pop-to-buffer gnus-vm-make-folder vm-save-message kill-buffer] 8 (#$ . 1525) [nil (gnus-article-mode gnus-summary-mode)]]) (provide 'gnus-vm)