Mercurial > emacs
diff lisp/mail/sendmail.el @ 22273:1ad8bfc81600
(sendmail-send-it):
If mail-from-style isn't angles, parens or nil, don't use -f option.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 28 May 1998 03:49:04 +0000 |
parents | 863230e3e248 |
children | 54bd3424441d |
line wrap: on
line diff
--- a/lisp/mail/sendmail.el Thu May 28 01:16:21 1998 +0000 +++ b/lisp/mail/sendmail.el Thu May 28 03:49:04 1998 +0000 @@ -846,10 +846,12 @@ 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