From 235c2d355a852d960ee2253d615d449b65b524e2 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 2 Jul 1995 07:26:01 +0000 Subject: [PATCH] (mail-default-reply-to): Initialize to nil. (mail-setup): Override it from env var if nil. --- lisp/mail/sendmail.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 2.39.2