diff options
| author | Richard M. Stallman | 1995-07-02 07:26:01 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-07-02 07:26:01 +0000 |
| commit | 235c2d355a852d960ee2253d615d449b65b524e2 (patch) | |
| tree | f6ffdb2826062a59d65f406df5a348f6f0727fc7 | |
| parent | 28995e670654d1e2924a476fdd45aaad23b0a2ce (diff) | |
| download | emacs-235c2d355a852d960ee2253d615d449b65b524e2.tar.gz emacs-235c2d355a852d960ee2253d615d449b65b524e2.zip | |
(mail-default-reply-to): Initialize to nil.
(mail-setup): Override it from env var if nil.
| -rw-r--r-- | lisp/mail/sendmail.el | 4 |
1 files 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'.") | |||
| 71 | This can be an inbox file or an Rmail file.") | 71 | This can be an inbox file or an Rmail file.") |
| 72 | 72 | ||
| 73 | ;;;###autoload | 73 | ;;;###autoload |
| 74 | (defvar mail-default-reply-to t | 74 | (defvar mail-default-reply-to nil |
| 75 | "*Address to insert as default Reply-to field of outgoing messages.") | 75 | "*Address to insert as default Reply-to field of outgoing messages.") |
| 76 | 76 | ||
| 77 | ;;;###autoload | 77 | ;;;###autoload |
| @@ -210,7 +210,7 @@ actually occur.") | |||
| 210 | mail-aliases t)))) | 210 | mail-aliases t)))) |
| 211 | 211 | ||
| 212 | (defun mail-setup (to subject in-reply-to cc replybuffer actions) | 212 | (defun mail-setup (to subject in-reply-to cc replybuffer actions) |
| 213 | (if (eq mail-default-reply-to t) | 213 | (or mail-default-reply-to |
| 214 | (setq mail-default-reply-to (getenv "REPLYTO"))) | 214 | (setq mail-default-reply-to (getenv "REPLYTO"))) |
| 215 | (sendmail-synch-aliases) | 215 | (sendmail-synch-aliases) |
| 216 | (if (eq mail-aliases t) | 216 | (if (eq mail-aliases t) |