From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 21 Sep 1994 18:26:57 +0000 (+0000)
Subject: (mail-default-reply-to): Initialize to t.
X-Git-Tag: emacs-19.34~6882
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=810163a3aaba4fe1d99cbfef852f61df890dd927;p=emacs.git

(mail-default-reply-to): Initialize to t.
(mail-setup): If it's t, set it from envvar REPLYTO.
---

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 6d4764d64d7..952724892b3 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -59,7 +59,7 @@ The headers are be delimited by a line which is `mail-header-separator'.")
 Do not use an rmail file here!  Instead, use its inbox file.")
 
 ;;;###autoload
-(defvar mail-default-reply-to nil
+(defvar mail-default-reply-to t
   "*Address to insert as default Reply-to field of outgoing messages.")
 
 ;;;###autoload
@@ -174,6 +174,8 @@ actually occur.")
 	      mail-aliases t))))
 
 (defun mail-setup (to subject in-reply-to cc replybuffer actions)
+  (if (eq mail-default-reply-to t)
+      (setq mail-default-reply-to (getenv "REPLYTO")))
   (synch-mail-aliases)
   (if (eq mail-aliases t)
       (progn