;ELC ;;; compiled by kwzh@nutrimat.gnu.ai.mit.edu on Wed Jul 17 16:57:02 1996 ;;; from file /gd/gnu/emacs/19.0/lisp/gnus-mh.el ;;; emacs version 19.31.94.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (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 "ÀÁ!ˆÀÂ!ˆÀÃ!ˆÀÄ!‡" [require mh-e mh-comp gnus gnus-msg] 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) "À !)‡" [gnus-summary-save-in-folder gnus-default-article-saver gnus-summary-save-article arg] 2 (#$ . 549) "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) "À ˆ Â=ƒ ƒ ‚% ƒ ‚%ÄÅ #É#ÊË!\fƒ5\f B‚7  Ï ÓÔ\"ÖŽƒZ×!ˆ‚_Ø!ˆŒ~ˆÙŽÚedÛÜÜ &ˆ. ‰+‡" [mh-find-path folder default gnus-newsgroup-last-folder mh-prompt-for-folder "Save article in" gnus-folder-save-name gnus-newsgroup-name gnus-current-headers t get-buffer-create " *Gnus rcvstore*" mh-lib exec-path errbuf selected-window GnusStartBufferWindow gnus-original-article-buffer buf get-buffer-window visible w ((select-window GnusStartBufferWindow)) select-window pop-to-buffer ((byte-code "qˆÁ ÂUƒÃÄ \"ˆ‚ÃÆÇ \"ˆÈ!‡" [errbuf buffer-size 0 message "Article saved in folder: %s" folder "%s" buffer-string kill-buffer] 3)) call-process-region "rcvstore" nil] 8 (#$ . 986)]) #@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) "†Á\nƒÃ\f!‚Å\f!P‡" [last-folder "+" gnus-use-long-file-name gnus-capitalize-newsgroup newsgroup gnus-newsgroup-directory-form] 3 (#$ . 1878)]) #@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) "†Á\nƒ ‚Ä !P‡" [last-folder "+" gnus-use-long-file-name newsgroup gnus-newsgroup-directory-form] 3 (#$ . 2284)]) (provide (quote gnus-mh))