# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 896327344 0
# Node ID 1ad8bfc816001333b216da4f1988e775f274c6bd
# Parent  91aa269656e4c325901f688e96864f17f4f37789
(sendmail-send-it):
If mail-from-style isn't angles, parens or nil, don't use -f option.

diff -r 91aa269656e4 -r 1ad8bfc81600 lisp/mail/sendmail.el
--- 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