From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 2 Jul 1995 07:26:01 +0000 (+0000)
Subject: (mail-default-reply-to): Initialize to nil.
X-Git-Tag: emacs-19.34~3386
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=235c2d355a852d960ee2253d615d449b65b524e2;p=emacs.git

(mail-default-reply-to): Initialize to nil.
(mail-setup): Override it from env var if nil.
---

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index f54b52cb4b5..437f3b8c2b4 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -71,7 +71,7 @@ match the variable `mail-header-separator'.")
 This can be an inbox file or an Rmail file.")
 
 ;;;###autoload
-(defvar mail-default-reply-to t
+(defvar mail-default-reply-to nil
   "*Address to insert as default Reply-to field of outgoing messages.")
 
 ;;;###autoload
@@ -210,7 +210,7 @@ actually occur.")
 	      mail-aliases t))))
 
 (defun mail-setup (to subject in-reply-to cc replybuffer actions)
-  (if (eq mail-default-reply-to t)
+  (or mail-default-reply-to
       (setq mail-default-reply-to (getenv "REPLYTO")))
   (sendmail-synch-aliases)
   (if (eq mail-aliases t)