1;;; gnus-mh.el --- mh-e interface for Gnus 2 3;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 4;; 2004, 2005, 2006, 2007 Free Software Foundation, Inc. 5 6;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> 7;; Lars Magne Ingebrigtsen <larsi@gnus.org> 8;; Keywords: news 9 10;; This file is part of GNU Emacs. 11 12;; GNU Emacs is free software; you can redistribute it and/or modify 13;; it under the terms of the GNU General Public License as published by 14;; the Free Software Foundation; either version 2, or (at your option) 15;; any later version. 16 17;; GNU Emacs is distributed in the hope that it will be useful, 18;; but WITHOUT ANY WARRANTY; without even the implied warranty of 19;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 20;; GNU General Public License for more details. 21 22;; You should have received a copy of the GNU General Public License 23;; along with GNU Emacs; see the file COPYING. If not, write to the 24;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, 25;; Boston, MA 02110-1301, USA. 26 27;;; Commentary: 28 29;;; Send mail using mh-e. 30 31;; The following mh-e interface is all cooperative works of 32;; tanaka@flab.fujitsu.CO.JP (TANAKA Hiroshi), kawabe@sra.CO.JP 33;; (Yoshikatsu Kawabe), and shingu@casund.cpr.canon.co.jp (Toshiaki 34;; SHINGU). 35 36;;; Code: 37 38(require 'gnus) 39(require 'mh-e) 40(require 'mh-comp) 41(require 'gnus-msg) 42(require 'gnus-sum) 43 44(eval-when-compile 45 (defvar mh-lib-progs)) 46 47(defun gnus-summary-save-article-folder (&optional arg) 48 "Append the current article to an mh folder. 49If N is a positive number, save the N next articles. 50If N is a negative number, save the N previous articles. 51If N is nil and any articles have been marked with the process mark, 52save those articles instead." 53 (interactive "P") 54 (require 'gnus-art) 55 (let ((gnus-default-article-saver 'gnus-summary-save-in-folder)) 56 (gnus-summary-save-article arg))) 57 58(defun gnus-summary-save-in-folder (&optional folder) 59 "Save this article to MH folder (using `rcvstore' in MH library). 60Optional argument FOLDER specifies folder name." 61 ;; Thanks to yuki@flab.Fujitsu.JUNET and ohm@kaba.junet. 62 (mh-find-path) 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) 72 t)))) 73 (errbuf (gnus-get-buffer-create " *Gnus rcvstore*")) 74 ;; Find the rcvstore program. 75 (exec-path (cond 76 ((and (boundp 'mh-lib-progs) mh-lib-progs) 77 (cons mh-lib-progs exec-path)) 78 (mh-lib (cons mh-lib exec-path)) 79 (t exec-path)))) 80 (with-current-buffer gnus-original-article-buffer 81 (save-restriction 82 (widen) 83 (unwind-protect 84 (call-process-region 85 (point-min) (point-max) "rcvstore" nil errbuf nil folder) 86 (set-buffer errbuf) 87 (if (zerop (buffer-size)) 88 (message "Article saved in folder: %s" folder) 89 (message "%s" (buffer-string))) 90 (kill-buffer errbuf)))) 91 (setq gnus-newsgroup-last-folder folder))) 92 93(defun gnus-Folder-save-name (newsgroup headers &optional last-folder) 94 "Generate folder name from NEWSGROUP, HEADERS, and optional LAST-FOLDER. 95If variable `gnus-use-long-file-name' is nil, it is +News.group. 96Otherwise, it is like +news/group." 97 (or last-folder 98 (concat "+" 99 (if gnus-use-long-file-name 100 (gnus-capitalize-newsgroup newsgroup) 101 (gnus-newsgroup-directory-form newsgroup))))) 102 103(defun gnus-folder-save-name (newsgroup headers &optional last-folder) 104 "Generate folder name from NEWSGROUP, HEADERS, and optional LAST-FOLDER. 105If variable `gnus-use-long-file-name' is nil, it is +news.group. 106Otherwise, it is like +news/group." 107 (or last-folder 108 (concat "+" 109 (if gnus-use-long-file-name 110 newsgroup 111 (gnus-newsgroup-directory-form newsgroup))))) 112 113(provide 'gnus-mh) 114 115;;; arch-tag: 2d5696d3-b363-48e5-8749-c256be56acca 116;;; gnus-mh.el ends here 117