# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 804669961 0
# Node ID 4472a461ab1c8c70ec0ad9c1ca1abb779a647ed5
# Parent  f92dc5a9194d9426f3b669df472cc5e7b0d51a69
(mail-default-reply-to): Initialize to nil.
(mail-setup): Override it from env var if nil.

diff -r f92dc5a9194d -r 4472a461ab1c lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Sun Jul 02 06:08:48 1995 +0000
+++ b/lisp/mail/sendmail.el	Sun Jul 02 07:26:01 1995 +0000
@@ -71,7 +71,7 @@
 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 @@
 	      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)