Mercurial > emacs

changeset 22273:1ad8bfc81600

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 91aa269656e4
children f0cd03a7dac9
files lisp/mail/sendmail.el
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
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