Commit 810163a3 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

(mail-setup): If it's t, set it from envvar REPLYTO.
parent 13595f8b
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment