Mercurial > emacs
changeset 12473:4472a461ab1c
(mail-default-reply-to): Initialize to nil.
(mail-setup): Override it from env var if nil.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 02 Jul 1995 07:26:01 +0000 |
| parents | f92dc5a9194d |
| children | d3223d946163 |
| files | lisp/mail/sendmail.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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)