mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00
Code Issues Releases Activity

(mail-specify-envelope-from): Doc fix.

Browse Source 
(mail-envelope-from): New user option.
(sendmail-send-it): Use it.
This commit is contained in:
Gerd Moellmann 2001-07-06 10:31:11 +00:00
parent 68372be176
commit c1a1fd6070
2 changed files with 20 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2001-07-06 Simon Josefsson <jas@extundo.com>
* mail/sendmail.el (mail-specify-envelope-from): Doc fix.
(mail-envelope-from): New user option.
(sendmail-send-it): Use it.
2001-07-06 Vinicius Jose Latorre <vinicius@cpqd.com.br>
* ps-print.el: Use locale dependant date to print date in header. Doc

19
lisp/mail/sendmail.el
View File

@ -67,7 +67,8 @@ controlled by a separate variable, `mail-specify-envelope-from'."
;;;###autoload
(defcustom mail-specify-envelope-from nil
"*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'.
The value used to specify it is whatever is found in
`mail-envelope-from', with `user-mail-address' as fallback.
On most systems, specifying the envelope-from address
is a privileged operation."
@ -75,6 +76,14 @@ is a privileged operation."
:type 'boolean
:group 'sendmail)
(defcustom mail-envelope-from nil
"*If non-nil, designate the envelope-from address when sending mail.
If this is nil while `mail-specify-envelope-from' is non-nil, the
content of `user-mail-address' is used."
: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.
@ -801,8 +810,7 @@ external program defined by `sendmail-program'."
(mailbuf (current-buffer))
(program (if (boundp 'sendmail-program)
sendmail-program
"/usr/lib/sendmail"))
(originator user-mail-address))
"/usr/lib/sendmail")))
(unwind-protect
(save-excursion
(set-buffer tembuf)
@ -968,8 +976,9 @@ external program defined by `sendmail-program'."
(append (list (point-min) (point-max)
program
nil errbuf nil "-oi")
(and mail-specify-envelope-from
(list "-f" originator))
(and mail-specify-envelope-from
(list "-f" (or mail-envelope-from
user-mail-address)))
;;; ;; Don't say "from root" if running under su.
;;; (and (equal (user-real-login-name) "root")
;;; (list "-f" (user-login-name)))