mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(mail-default-reply-to): Initialize to nil.

Browse source 
(mail-setup): Override it from env var if nil.
This commit is contained in:
Richard M. Stallman 1995-07-02 07:26:01 +00:00
parent 28995e6706
commit 235c2d355a
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/mail/sendmail.el
View file

@ -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)