Skip to content

GitLab

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

(sendmail-send-it): 

If mail-from-style isn't angles, parens or nil, don't use -f option.
parent fb597fe8
Hide whitespace changes
Inline Side-by-side
Showing with 6 additions and 4 deletions
lisp/mail/sendmail.el
View file @ 13da0554
......@@ -846,10 +846,12 @@ the user from the mailer."
nil errbuf nil "-oi")
;; Always specify who from,
;; since some systems have broken sendmails.
(list "-f" (user-login-name))
;;; ;; Don't say "from root" if running under su.
;;; (and (equal (user-real-login-name) "root")
;;; (list "-f" (user-login-name)))
;; unless user has said no.
(if (memq mail-from-style '(angles parens nil))
(list "-f" (user-login-name)))
;;; ;; Don't say "from root" if running under su.
;;; (and (equal (user-real-login-name) "root")
;;; (list "-f" (user-login-name)))
(and mail-alias-file
(list (concat "-oA" mail-alias-file)))
(if mail-interactive
......
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