diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-09-21 18:26:57 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-09-21 18:26:57 +0000 |
| commit | 810163a3aaba4fe1d99cbfef852f61df890dd927 (patch) | |
| tree | db3e78ac5cdac87409ea3f4577eb4a2d5b6371c0 /lisp | |
| parent | 13595f8b9c284b38b331e3334a3ff27152f1d395 (diff) | |
| download | emacs-810163a3aaba4fe1d99cbfef852f61df890dd927.tar.gz | |
(mail-default-reply-to): Initialize to t.
(mail-setup): If it's t, set it from envvar REPLYTO.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/sendmail.el | 4 |
1 files changed, 3 insertions, 1 deletions
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 |