1 ;;; Mail reply commands for GNUS newsreader
2 ;; Copyright (C) 1990 Masanobu UMEDA
3 ;; $Header: gnusmail.el,v 1.1 90/03/23 13:24:39 umerin Locked $
5 ;; This file is part of GNU Emacs.
7 ;; GNU Emacs is distributed in the hope that it will be useful,
8 ;; but WITHOUT ANY WARRANTY. No author or distributor
9 ;; accepts responsibility to anyone for the consequences of using it
10 ;; or for whether it serves any particular purpose or works at all,
11 ;; unless he says so in writing. Refer to the GNU Emacs General Public
12 ;; License for full details.
14 ;; Everyone is granted permission to copy, modify and redistribute
15 ;; GNU Emacs, but only under the conditions described in the
16 ;; GNU Emacs General Public License. A copy of this license is
17 ;; supposed to have been given to you along with GNU Emacs so you
18 ;; can know your rights and responsibilities. It should be in a
19 ;; file named COPYING. Among other things, the copyright notice
20 ;; and this notice must be preserved on all copies.
24 ;; Provides mail reply and mail other window command using usual mail
25 ;; interface and mh-e interface.
27 ;; To use MAIL: set the variables gnus-mail-reply-method and
28 ;; gnus-mail-other-window-method to gnus-mail-reply-using-mail and
29 ;; gnus-mail-other-window-using-mail, respectively.
31 ;; To use MH-E: set the variables gnus-mail-reply-method and
32 ;; gnus-mail-other-window-method to gnus-mail-reply-using-mhe and
33 ;; gnus-mail-other-window-using-mhe, respectively.
35 (autoload 'news-mail-reply "rnewspost")
36 (autoload 'news-mail-other-window "rnewspost")
38 (autoload 'mh-send "mh-e")
39 (autoload 'mh-send-other-window "mh-e")
40 (autoload 'mh-find-path "mh-e")
41 (autoload 'mh-yank-cur-msg "mh-e")
43 ;;; Mail reply commands of GNUS Subject Mode
45 (defun gnus-Subject-mail-reply (yank)
46 "Reply mail to news author.
47 If prefix arg YANK is non-nil, original article is yanked automatically.
48 Customize the variable `gnus-mail-reply-method' to use another mailer."
50 (gnus-Subject-select-article)
51 (switch-to-buffer gnus-Article-buffer)
53 (delete-other-windows)
54 (bury-buffer gnus-Article-buffer)
55 (funcall gnus-mail-reply-method yank))
57 (defun gnus-Subject-mail-reply-with-original ()
58 "Reply mail to news author with original article."
60 (gnus-Subject-mail-reply t))
62 (defun gnus-Subject-mail-other-window ()
63 "Compose mail in other window.
64 Customize the variable `gnus-mail-other-window-method' to use another mailer."
66 (gnus-Subject-select-article)
67 (switch-to-buffer gnus-Article-buffer)
69 (delete-other-windows)
70 (bury-buffer gnus-Article-buffer)
71 (funcall gnus-mail-other-window-method))
74 ;;; Send mail using sendmail mail mode.
76 (defun gnus-mail-reply-using-mail (&optional yank)
77 "Compose reply mail using mail.
78 Optional argument YANK means yank original article."
80 (gnus-overload-functions)
83 (goto-char (point-max))
84 (mail-yank-original nil)
88 (defun gnus-mail-other-window-using-mail ()
89 "Compose mail other window using mail."
90 (news-mail-other-window)
91 (gnus-overload-functions))
94 ;;; Send mail using mh-e.
96 ;; The following mh-e interface is all cooperative works of
97 ;; tanaka@flab.fujitsu.CO.JP (TANAKA Hiroshi), kawabe@sra.CO.JP
98 ;; (Yoshikatsu Kawabe), and shingu@casund.cpr.canon.co.jp (Toshiaki
101 (defun gnus-mail-reply-using-mhe (&optional yank)
102 "Compose reply mail using mh-e.
103 Optional argument YANK means yank original article.
104 The command \\[mh-yank-cur-msg] yanks the original message into current buffer."
105 ;; First of all, prepare mhe mail buffer.
106 (let (from cc subject date to reply-to (buffer (current-buffer)))
108 (gnus-Article-show-all-headers) ;I don't think this is really needed.
109 (setq from (gnus-fetch-field "from")
110 subject (let ((subject (gnus-fetch-field "subject")))
112 (not (string-match "^[Rr][Ee]:.+$" subject)))
113 (concat "Re: " subject) subject))
114 reply-to (gnus-fetch-field "reply-to")
115 cc (gnus-fetch-field "cc")
116 date (gnus-fetch-field "date"))
117 (setq mh-show-buffer buffer)
118 (setq to (or reply-to from))
120 (mh-send to (or cc "") subject)
125 (substring from 0 (string-match " *at \\| *@ \\| *(\\| *<" from))
126 "'s message of " date)))
127 (setq mh-sent-from-folder buffer)
128 (setq mh-sent-from-msg 1)
130 ;; Then, yank original article if requested.
132 (let ((last (point)))
137 (defun gnus-mail-other-window-using-mhe ()
138 "Compose mail other window using MH-E Mail."
139 (let ((to (read-string "To: "))
140 (cc (read-string "Cc: "))
141 (subject (read-string "Subject: " (gnus-fetch-field "subject"))))
142 (gnus-Article-show-all-headers) ;I don't think this is really needed.
143 (setq mh-show-buffer (current-buffer))
145 (mh-send-other-window to cc subject)
146 (setq mh-sent-from-folder (current-buffer))
147 (setq mh-sent-from-msg 1)))