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)))