diff options
author | Richard M. Stallman <rms@gnu.org> | 1994-01-01 05:35:38 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1994-01-01 05:35:38 +0000 |
commit | a51a61a0da0b1332722f06a0093bf6b5dcf2ae39 (patch) | |
tree | 0f76d50f437ceee5ab8e0eaf504248b1366659e9 /lisp/=gnuspost.el | |
parent | e5bd53196749c23045f79775fc9a21b89cc80fbf (diff) | |
download | emacs-a51a61a0da0b1332722f06a0093bf6b5dcf2ae39.tar.gz |
(gnus-news-reply): Handle reply-to field.
Diffstat (limited to 'lisp/=gnuspost.el')
-rw-r--r-- | lisp/=gnuspost.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/=gnuspost.el b/lisp/=gnuspost.el index 46c4d7a3761..5f5d4c42526 100644 --- a/lisp/=gnuspost.el +++ b/lisp/=gnuspost.el @@ -3,7 +3,6 @@ ;; Copyright (C) 1989, 1990, 1993 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> -;; Version: $Header: /home/fsf/rms/e19/lisp/RCS/gnuspost.el,v 1.16 1993/11/22 06:44:12 rms Exp $ ;; Keywords: news ;; This file is part of GNU Emacs. @@ -244,6 +243,8 @@ original message into it." (search-forward "\n\n") (point))))) (setq from (mail-fetch-field "from")) + ;; Get reply-to working corrrectly for gnus-auto-mail-to-author (jpm) + (setq reply-to (mail-fetch-field "reply-to")) (setq news-reply-yank-from from) (setq subject (mail-fetch-field "subject")) (setq date (mail-fetch-field "date")) @@ -310,11 +311,12 @@ original message into it." (mail-position-on-field "FCC") (insert gnus-author-copy))) ;; Insert To: FROM field, which is expected to mail the - ;; message to the author of the article too. - (if (and gnus-auto-mail-to-author from) + ;; message to the author of the article too. Use Reply-To + ;; field like gnus-mail-reply-using-m* (jpm). + (if (and gnus-auto-mail-to-author (or reply-to from)) (progn (goto-char (point-min)) - (insert "To: " from "\n"))) + (insert "To: " (or reply-to from) "\n"))) (goto-char (point-max))) ;; Yank original article automatically. (if yank |