lisp/gnus/gnus-mh.el

0 ;;; gnus-mh.el --- mh-e interface for Gnus
7 ;;	Lars Magne Ingebrigtsen <larsi@gnus.org>
38 (require 'gnus)
41 (require 'gnus-msg)
42 (require 'gnus-sum)
47 (defun gnus-summary-save-article-folder (&optional arg)
48   "Append the current article to an mh folder.
49 If N is a positive number, save the N next articles.
50 If N is a negative number, save the N previous articles.
52 save those articles instead."
54   (require 'gnus-art)
55   (let ((gnus-default-article-saver 'gnus-summary-save-in-folder))
56     (gnus-summary-save-article arg)))
58 (defun gnus-summary-save-in-folder (&optional folder)
59   "Save this article to MH folder (using `rcvstore' in MH library).
60 Optional argument FOLDER specifies folder name."
63   (let ((folder
64 	 (cond ((and (eq folder 'default)
65 		     gnus-newsgroup-last-folder)
66 		gnus-newsgroup-last-folder)
67 	       (folder folder)
68 	       (t (mh-prompt-for-folder
69 		   "Save article in"
70 		   (funcall gnus-folder-save-name gnus-newsgroup-name
71 			    gnus-current-headers gnus-newsgroup-last-folder)
73 	(errbuf (gnus-get-buffer-create " *Gnus rcvstore*"))
80     (with-current-buffer gnus-original-article-buffer
81       (save-restriction
85 	     (point-min) (point-max) "rcvstore" nil errbuf nil folder)
88 	      (message "Article saved in folder: %s" folder)
91     (setq gnus-newsgroup-last-folder folder)))
93 (defun gnus-Folder-save-name (newsgroup headers &optional last-folder)
94   "Generate folder name from NEWSGROUP, HEADERS, and optional LAST-FOLDER.
95 If variable `gnus-use-long-file-name' is nil, it is +News.group.
97   (or last-folder
99 	      (if gnus-use-long-file-name
100 		  (gnus-capitalize-newsgroup newsgroup)
101 		(gnus-newsgroup-directory-form newsgroup)))))
103 (defun gnus-folder-save-name (newsgroup headers &optional last-folder)
104   "Generate folder name from NEWSGROUP, HEADERS, and optional LAST-FOLDER.
105 If variable `gnus-use-long-file-name' is nil, it is +news.group.
107   (or last-folder
109 	      (if gnus-use-long-file-name
111 		(gnus-newsgroup-directory-form newsgroup)))))
113 (provide 'gnus-mh)
116 ;;; gnus-mh.el ends here