| Server IP : 217.160.0.212 / Your IP : 216.73.216.203 Web Server : Apache System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/gnus/ |
Upload File : |
;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\306\307\310\311\312DD\313\314\315\316\317\320\321& \207" [require gnus mh-e mh-comp gnus-msg gnus-sum custom-declare-variable gnus-rcvstore-options funcall function #[0 "\300\207" [nil] 1 ""] "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) #@273 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. (fn &optional ARG) (defalias 'gnus-summary-save-article-folder #[256 "\301\302!\210\303\304!)\207" [gnus-default-article-saver require gnus-art gnus-summary-save-in-folder gnus-summary-save-article] 3 (#$ . 519) ["P" (gnus-summary-mode)]]) #@137 Save this article to MH folder (using `rcvstore' in MH library). Optional argument FOLDER specifies folder name. (fn &optional FOLDER) (defalias 'gnus-summary-save-in-folder #[256 "\306 \210\211\307=\203 \203 \202\" \211\203 \211\202\" \310\311 \n #\312#\313\314!\315\304!\2035 \f\2035 \f B\202B \203A B\202B rq\210\214~\210\316\317#\216\320\321ed\322\323\323 & \210+\211)\207" [gnus-newsgroup-last-folder gnus-folder-save-name gnus-newsgroup-name gnus-current-headers mh-lib-progs exec-path mh-find-path default mh-prompt-for-folder "Save article in" t gnus-get-buffer-create " *Gnus rcvstore*" boundp make-closure #[0 "\301q\210\302 \303U\203 \304\305\300\"\210\202 \304\306\307 \"\210\310\301!\207" [V0 V1 buffer-size 0 message "Article saved in folder: %s" "%s" buffer-string kill-buffer] 3] apply call-process-region "rcvstore" nil mh-lib gnus-original-article-buffer gnus-rcvstore-options] 13 (#$ . 1021)]) #@219 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. (fn NEWSGROUP HEADERS &optional LAST-FOLDER) (defalias 'gnus-Folder-save-name #[770 "\211\206 \301\203 \302!\202 \303!P\207" [gnus-use-long-file-name "+" gnus-capitalize-newsgroup gnus-newsgroup-directory-form] 6 (#$ . 1968)]) #@219 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. (fn NEWSGROUP HEADERS &optional LAST-FOLDER) (defalias 'gnus-folder-save-name #[770 "\211\206 \301\203 \202 \302!P\207" [gnus-use-long-file-name "+" gnus-newsgroup-directory-form] 6 (#$ . 2381)]) (provide 'gnus-mh)