Mercurial > emacs

changeset 8972:ad8f1cea49cc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail-default-reply-to): Initialize to t. (mail-setup): If it's t, set it from envvar REPLYTO.
author Richard M. Stallman <rms@gnu.org>
date Wed, 21 Sep 1994 18:26:57 +0000
parents 69ac91e85d1e
children 99d8538efe2f
files lisp/mail/sendmail.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/sendmail.el	Wed Sep 21 17:02:10 1994 +0000
+++ b/lisp/mail/sendmail.el	Wed Sep 21 18:26:57 1994 +0000
@@ -59,7 +59,7 @@
 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 @@
 	      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