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

(sendmail-send-it): Use user-mail-address.

parent b78ce8fb
......@@ -522,7 +522,7 @@ the user from the mailer."
;; they put one in themselves.
(goto-char (point-min))
(if (not (re-search-forward "^From:" delimline t))
(let* ((login (user-login-name))
(let* ((login user-mail-address)
(fullname (user-full-name)))
(cond ((eq mail-from-style 'angles)
(insert "From: " fullname)
......
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