;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; 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!\210\300\305!\210\306\307\310\311\312\313\314\315\316\317& \207" [require gnus mh-e mh-comp gnus-msg gnus-sum custom-declare-variable gnus-rcvstore-options nil "Options that are passed to rcvstore, or nil.\nThese are used when saving articles to an MH folder." :version "26.1" :group gnus-article :type (repeat string)] 10) #@253 Append the current article to an mh 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-folder #[(&optional arg) "\302\303!\210\304\305 !)\207" [gnus-default-article-saver arg require gnus-art gnus-summary-save-in-folder gnus-summary-save-article] 2 (#$ . 793) "P"]) #@114 Save this article to MH folder (using `rcvstore' in MH library). Optional argument FOLDER specifies folder name. (defalias 'gnus-summary-save-in-folder #[(&optional folder) "\306 \210\307=\203 \203 \202\"\203\202\"\310\311\n \f #\312#\313\314!\315\305!\2036 \2036 B\202E\203CB\202Erq\210\214~\210\316\216\317\320ed\321\322\322& \210+\211+\207" [folder gnus-newsgroup-last-folder gnus-folder-save-name gnus-newsgroup-name gnus-current-headers mh-lib-progs mh-find-path default mh-prompt-for-folder "Save article in" t gnus-get-buffer-create " *Gnus rcvstore*" boundp #[nil "q\210\302 \303U\203\304\305 \"\210\202\304\306\307 \"\210\310!\207" [errbuf folder buffer-size 0 message "Article saved in folder: %s" "%s" buffer-string kill-buffer] 3] apply call-process-region "rcvstore" nil exec-path mh-lib errbuf gnus-original-article-buffer gnus-rcvstore-options] 10 (#$ . 1269)]) #@173 Generate folder name from NEWSGROUP, HEADERS, and optional LAST-FOLDER. If variable `gnus-use-long-file-name' is nil, it is +News.group. Otherwise, it is like +news/group. (defalias 'gnus-Folder-save-name #[(newsgroup headers &optional last-folder) "\206\303 \203\304\n!\202\305\n!P\207" [last-folder gnus-use-long-file-name newsgroup "+" gnus-capitalize-newsgroup gnus-newsgroup-directory-form] 3 (#$ . 2199)]) #@173 Generate folder name from NEWSGROUP, HEADERS, and optional LAST-FOLDER. If variable `gnus-use-long-file-name' is nil, it is +news.group. Otherwise, it is like +news/group. (defalias 'gnus-folder-save-name #[(newsgroup headers &optional last-folder) "\206\303 \203 \n\202\304\n!P\207" [last-folder gnus-use-long-file-name newsgroup "+" gnus-newsgroup-directory-form] 3 (#$ . 2625)]) (provide 'gnus-mh)