From 13da0554f62a88f309b1b79f688b1468420487a4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 28 May 1998 03:49:04 +0000 Subject: [PATCH] (sendmail-send-it): If mail-from-style isn't angles, parens or nil, don't use -f option. --- lisp/mail/sendmail.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 967655e7a2d..b9e8853d00f 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -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 -- 2.39.2