Lines Matching +refs:gnus +refs:newsgroup +refs:headers
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)
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)
65 gnus-newsgroup-last-folder)
66 gnus-newsgroup-last-folder)
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
91 (setq gnus-newsgroup-last-folder folder)))
93 (defun gnus-Folder-save-name (newsgroup headers &optional last-folder)
95 If variable `gnus-use-long-file-name' is nil, it is +News.group.
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)
105 If variable `gnus-use-long-file-name' is nil, it is +news.group.
109 (if gnus-use-long-file-name
110 newsgroup
111 (gnus-newsgroup-directory-form newsgroup)))))
113 (provide 'gnus-mh)
116 ;;; gnus-mh.el ends here