;ELC   
;;; Compiled by amu@quiche-lorraine.mit.edu on Thu Jan  6 19:17:21 2000
;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.3/lisp/gnus-mh.el
;;; in Emacs version 20.4.1
;;; with bytecomp version 2.56
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`gnus-mh.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\207" [require gnus mh-e mh-comp gnus-msg gnus-sum] 2)
#@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	!)\207" [gnus-default-article-saver arg gnus-summary-save-in-folder gnus-summary-save-article] 2 (#$ . 770) "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!\2030 B\2022 rq\210\214~\210\315\216\316ed\317\320\320&\210+\211+\207" [folder gnus-newsgroup-last-folder gnus-folder-save-name gnus-newsgroup-name gnus-current-headers mh-lib mh-find-path default mh-prompt-for-folder "Save article in" t gnus-get-buffer-create " *Gnus rcvstore*" ((byte-code "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)) call-process-region "rcvstore" nil exec-path errbuf gnus-original-article-buffer] 8 (#$ . 1216)])
#@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 (#$ . 2064)])
#@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 (#$ . 2490)])
(provide 'gnus-mh)