1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-14 09:39:42 +00:00
emacs/lisp/gnusmail.el

221 lines
7.3 KiB
EmacsLisp
Raw Normal View History

1992-05-30 23:12:08 +00:00
;;; gnusmail.el --- mail reply commands for GNUS newsreader
1993-05-16 22:58:52 +00:00
;; Copyright (C) 1990, 1993 Free Software Foundation, Inc.
1992-07-22 04:22:42 +00:00
1994-07-01 00:40:46 +00:00
;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp>
1992-07-17 08:15:29 +00:00
;; Keywords: news
1992-07-16 21:47:34 +00:00
1991-03-05 18:44:14 +00:00
;; This file is part of GNU Emacs.
1992-06-10 21:41:54 +00:00
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
1992-07-16 21:47:34 +00:00
;; the Free Software Foundation; either version 2, or (at your option)
1992-06-10 21:41:54 +00:00
;; any later version.
1991-03-05 18:44:14 +00:00
;; GNU Emacs is distributed in the hope that it will be useful,
1992-06-10 21:41:54 +00:00
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
1991-03-05 18:44:14 +00:00
1992-06-10 21:41:54 +00:00
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
1991-03-05 18:44:14 +00:00
1992-07-16 21:47:34 +00:00
;;; Commentary:
1991-03-05 18:44:14 +00:00
;; Provides mail reply and mail other window command using usual mail
;; interface and mh-e interface.
;;
;; To use MAIL: set the variables gnus-mail-reply-method and
;; gnus-mail-other-window-method to gnus-mail-reply-using-mail and
;; gnus-mail-other-window-using-mail, respectively.
;;
;; To use MH-E: set the variables gnus-mail-reply-method and
;; gnus-mail-other-window-method to gnus-mail-reply-using-mhe and
;; gnus-mail-other-window-using-mhe, respectively.
1992-07-16 21:47:34 +00:00
;;; Code:
(require 'gnus)
1991-03-05 18:44:14 +00:00
(autoload 'news-mail-reply "rnewspost")
(autoload 'news-mail-other-window "rnewspost")
(autoload 'mh-send "mh-e")
(autoload 'mh-send-other-window "mh-e")
(autoload 'mh-find-path "mh-e")
(autoload 'mh-yank-cur-msg "mh-e")
1993-05-16 22:58:52 +00:00
;;; Mail reply commands of GNUS Summary Mode
1991-03-05 18:44:14 +00:00
1993-05-16 22:58:52 +00:00
(defun gnus-summary-reply (yank)
1991-03-05 18:44:14 +00:00
"Reply mail to news author.
1993-05-16 22:58:52 +00:00
If prefix argument YANK is non-nil, original article is yanked automatically.
Customize the variable gnus-mail-reply-method to use another mailer."
1991-03-05 18:44:14 +00:00
(interactive "P")
1993-05-16 22:58:52 +00:00
;; Bug fix by jbw@bigbird.bu.edu (Joe Wells)
;; Stripping headers should be specified with mail-yank-ignored-headers.
(gnus-summary-select-article t t)
(switch-to-buffer gnus-article-buffer)
1991-03-05 18:44:14 +00:00
(widen)
(delete-other-windows)
1993-05-16 22:58:52 +00:00
(bury-buffer gnus-article-buffer)
1991-03-05 18:44:14 +00:00
(funcall gnus-mail-reply-method yank))
1993-05-16 22:58:52 +00:00
(defun gnus-summary-reply-with-original ()
"Reply mail to news author with original article.
Customize the variable gnus-mail-reply-method to use another mailer."
1991-03-05 18:44:14 +00:00
(interactive)
1993-05-16 22:58:52 +00:00
(gnus-summary-reply t))
1991-03-05 18:44:14 +00:00
1993-05-16 22:58:52 +00:00
(defun gnus-summary-mail-forward ()
"Forward the current message to another user.
Customize the variable gnus-mail-forward-method to use another mailer."
(interactive)
(gnus-summary-select-article)
(switch-to-buffer gnus-article-buffer)
(widen)
(delete-other-windows)
(bury-buffer gnus-article-buffer)
(funcall gnus-mail-forward-method))
(defun gnus-summary-mail-other-window ()
1991-03-05 18:44:14 +00:00
"Compose mail in other window.
1993-05-16 22:58:52 +00:00
Customize the variable gnus-mail-other-window-method to use another mailer."
1991-03-05 18:44:14 +00:00
(interactive)
1993-05-16 22:58:52 +00:00
(gnus-summary-select-article)
(switch-to-buffer gnus-article-buffer)
1991-03-05 18:44:14 +00:00
(widen)
(delete-other-windows)
1993-05-16 22:58:52 +00:00
(bury-buffer gnus-article-buffer)
1991-03-05 18:44:14 +00:00
(funcall gnus-mail-other-window-method))
;;; Send mail using sendmail mail mode.
(defun gnus-mail-reply-using-mail (&optional yank)
"Compose reply mail using mail.
Optional argument YANK means yank original article."
(news-mail-reply)
(gnus-overload-functions)
(if yank
(mail-yank-original nil)))
1991-03-05 18:44:14 +00:00
1993-05-16 22:58:52 +00:00
(defun gnus-mail-forward-using-mail ()
"Forward the current message to another user using mail."
;; This is almost a carbon copy of rmail-forward in rmail.el.
(let ((forward-buffer (current-buffer))
(subject
(concat "[" gnus-newsgroup-name "] "
;;(mail-strip-quoted-names (gnus-fetch-field "From")) ": "
(or (gnus-fetch-field "Subject") ""))))
;; If only one window, use it for the mail buffer.
;; Otherwise, use another window for the mail buffer
;; so that the Rmail buffer remains visible
;; and sending the mail will get back to it.
(if (if (one-window-p t)
(mail nil nil subject)
(mail-other-window nil nil subject))
(save-excursion
(goto-char (point-max))
(insert "------- Start of forwarded message -------\n")
(insert-buffer forward-buffer)
(goto-char (point-max))
(insert "------- End of forwarded message -------\n")
;; You have a chance to arrange the message.
(run-hooks 'gnus-mail-forward-hook)
))))
1991-03-05 18:44:14 +00:00
(defun gnus-mail-other-window-using-mail ()
"Compose mail other window using mail."
(news-mail-other-window)
(gnus-overload-functions))
;;; Send mail using mh-e.
;; The following mh-e interface is all cooperative works of
;; tanaka@flab.fujitsu.CO.JP (TANAKA Hiroshi), kawabe@sra.CO.JP
;; (Yoshikatsu Kawabe), and shingu@casund.cpr.canon.co.jp (Toshiaki
;; SHINGU).
(defun gnus-mail-reply-using-mhe (&optional yank)
"Compose reply mail using mh-e.
Optional argument YANK means yank original article.
1993-05-16 22:58:52 +00:00
The command \\[mh-yank-cur-msg] yank the original message into current buffer."
1991-03-05 18:44:14 +00:00
;; First of all, prepare mhe mail buffer.
(let (from cc subject date to reply-to (buffer (current-buffer)))
(save-restriction
1993-05-16 22:58:52 +00:00
(gnus-article-show-all-headers) ;I don't think this is really needed.
1991-03-05 18:44:14 +00:00
(setq from (gnus-fetch-field "from")
subject (let ((subject (or (gnus-fetch-field "subject")
"(None)")))
1991-03-05 18:44:14 +00:00
(if (and subject
(not (string-match "^[Rr][Ee]:.+$" subject)))
(concat "Re: " subject) subject))
reply-to (gnus-fetch-field "reply-to")
cc (gnus-fetch-field "cc")
date (gnus-fetch-field "date"))
(setq mh-show-buffer buffer)
(setq to (or reply-to from))
(mh-find-path)
(mh-send to (or cc "") subject)
(save-excursion
(mh-insert-fields
"In-reply-to:"
(concat
(substring from 0 (string-match " *at \\| *@ \\| *(\\| *<" from))
"'s message of " date)))
(setq mh-sent-from-folder buffer)
(setq mh-sent-from-msg 1)
))
;; Then, yank original article if requested.
(if yank
(let ((last (point)))
(mh-yank-cur-msg)
(goto-char last)
)))
1993-05-16 22:58:52 +00:00
;; gnus-mail-forward-using-mhe is contributed by Jun-ichiro Itoh
;; <itojun@ingram.mt.cs.keio.ac.jp>
(defun gnus-mail-forward-using-mhe ()
"Forward the current message to another user using mh-e."
;; First of all, prepare mhe mail buffer.
(let ((to (read-string "To: "))
(cc (read-string "Cc: "))
(buffer (current-buffer))
subject)
;;(gnus-article-show-all-headers)
(setq subject
(concat "[" gnus-newsgroup-name "] "
;;(mail-strip-quoted-names (gnus-fetch-field "From")) ": "
(or (gnus-fetch-field "subject") "")))
(setq mh-show-buffer buffer)
(mh-find-path)
(mh-send to (or cc "") subject)
(save-excursion
(goto-char (point-max))
(insert "\n------- Forwarded Message\n\n")
(insert-buffer buffer)
(goto-char (point-max))
(insert "\n------- End of Forwarded Message\n")
(setq mh-sent-from-folder buffer)
(setq mh-sent-from-msg 1))))
1991-03-05 18:44:14 +00:00
(defun gnus-mail-other-window-using-mhe ()
1993-05-16 22:58:52 +00:00
"Compose mail other window using mh-e."
1991-03-05 18:44:14 +00:00
(let ((to (read-string "To: "))
(cc (read-string "Cc: "))
(subject (read-string "Subject: " (gnus-fetch-field "subject"))))
1993-05-16 22:58:52 +00:00
(gnus-article-show-all-headers) ;I don't think this is really needed.
1991-03-05 18:44:14 +00:00
(setq mh-show-buffer (current-buffer))
(mh-find-path)
(mh-send-other-window to cc subject)
(setq mh-sent-from-folder (current-buffer))
(setq mh-sent-from-msg 1)))
1992-03-16 20:39:07 +00:00
(provide 'gnusmail)
1992-05-30 23:12:08 +00:00
;;; gnusmail.el ends here