Current File : //usr/local/share/emacs/27.2/lisp/gnus/gnus-vm.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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 (#$ . 518))
(byte-code "\204 \3021 \205 \303\304!0\202 \210\202 \210\305\207" [gnus-vm-inhibit-window-system window-system (error) require win-vm nil] 2)
(defalias 'gnus-vm-make-folder #[(&optional buffer) "\306\307!\210\206 p\310\311!ed q\210\312\f\n #\210eb\210\313\314!\203. \315\316\317 P!\210\2027 \320
\321\317 \322\261\210\323\324\325\326#\203F \315\327!\210\2027 db\210\322c\210\330 \210 ,\207" [buffer end start tmp-folder article 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] 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!\210\304\305 !)\207" [gnus-default-article-saver arg require gnus-art gnus-summary-save-in-vm gnus-summary-save-article] 2 (#$ . 1357) "P"])
(defalias 'gnus-summary-save-in-vm #[(&optional folder) "\306\307!\210\310\311 \n \312&\313
\314\315\" \316\216\2030 \317!\210\320!q\210\2025 \321!\210\212\214~\210\322 \323!\210\324!.\207" [folder gnus-mail-save-name gnus-newsgroup-name gnus-current-headers #1=#:GnusStartBufferWindow 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 #[nil "\301!\207" [#1# select-window] 2] 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)
Mini Shell