(sendmail-send-it): Let mail-specify-envelope-from

control use of -f option.
(mail-specify-envelope-from): New variable.
(mail-from-style): Doc fix.

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index ac5d946d3057b121312a60c82fe60c363945544f..3d0800478853b494e15c3b774ce350e50202c3cb 100644 (file)
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -43,12 +43,29 @@ If `parens', they look like:
        king@grassland.com (Elvis Parsley)
 If `angles', they look like:
        Elvis Parsley <king@grassland.com>
-If `system-default', Rmail allows the system to insert its default From field."
+If `system-default', allows the mailer to insert its default From field
+derived from the envelope-from address.
+
+In old versions of Emacs, the `system-default' setting also caused
+Emacs to pass the proper email address from `user-mail-address'
+to the mailer to specify the envelope-from address.  But that is now
+controlled by a separate variable, `mail-specify-envelope-from'."
   :type '(choice (const nil) (const parens) (const angles)
                 (const system-default))
   :version "20.3"
   :group 'sendmail)
 
+;;;###autoload
+(defcustom mail-specify-envelope-from t "\
+  "*If non-nil, specify the envelope-from address when sending mail.
+The value used to specify it is whatever is found in `user-mail-address'.
+
+On most systems, specifying the envelope-from address
+is a privileged operation."
+  :version "21.1"
+  :type 'boolean
+  :group 'sendmail)
+
 ;;;###autoload
 (defcustom mail-self-blind nil "\
 *Non-nil means insert BCC to self in messages to be sent.
@@ -889,11 +906,8 @@ See also the function `select-message-coding-system'.")
                                        sendmail-program
                                      "/usr/lib/sendmail")
                                    nil errbuf nil "-oi")
-                             ;; Always specify who from,
-                             ;; since some systems have broken sendmails.
-                             ;; unless user has said no.
-                             (if (memq mail-from-style '(angles parens nil))
-                                 (list "-f" user-mail-address))
+                             (and mail-specify-envelope-from 
+                                  (list "-f" user-mail-address))
 ;;;                          ;; Don't say "from root" if running under su.
 ;;;                          (and (equal (user-real-login-name) "root")
 ;;;                               (list "-f" (user-login-name)))