mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
control use of -f option.
(mail-specify-envelope-from): New variable.
(mail-from-style): Doc fix.
This commit is contained in:
Karl Heuer 1999-08-10 17:46:24 +00:00
parent 86a4c778b5
commit 32afb7445f
1 changed files with 20 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

26
lisp/mail/sendmail.el
View file

@ -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)))