Mercurial > emacs
changeset 25238:401a07be3a35
(sendmail-send-it): Let mail-specify-envelope-from
control use of -f option.
(mail-specify-envelope-from): New variable.
(mail-from-style): Doc fix.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 10 Aug 1999 17:46:24 +0000 |
| parents | b41874cc353e |
| children | 2903a7401519 |
| files | lisp/mail/sendmail.el |
| diffstat | 1 files changed, 20 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/sendmail.el Tue Aug 10 17:38:19 1999 +0000 +++ b/lisp/mail/sendmail.el Tue Aug 10 17:46:24 1999 +0000 @@ -43,13 +43,30 @@ 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. This is done when the message is initialized, @@ -889,11 +906,8 @@ 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)))