diff options
| author | Richard M. Stallman <[email protected]> | 1994-01-01 05:35:38 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1994-01-01 05:35:38 +0000 |
| commit | 18260534da81dfb78170cee4d41843e72053ad8b (patch) | |
| tree | 620e48d5e7b8677f354cebff0b2a2c2bc4afa484 /lisp/gnuspost.el | |
| parent | 3d2e9cea7eb0a9aafebef31302e341bd51c3dca4 (diff) | |
(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 46c4d7a376..5f5d4c4252 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 <[email protected]> -;; 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 |