mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

(smtpmail-via-smtp): Fall back to user-mail-address as sender.

Browse Source
This commit is contained in:
Simon Josefsson 2002-12-15 07:27:08 +00:00
parent 311ff235fa
commit 2410946921
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ChangeLog
View File

@ -1,3 +1,8 @@
2002-11-13 Simon Josefsson <jas@extundo.com>
* mail/smtpmail.el (smtpmail-via-smtp): Fall back to
user-mail-address as sender.
2002-12-09 Markus Rost <rost@math.ohio-state.edu>
* configure.in (*-sunos5*, *-solaris*): Revert previous change -

9
lisp/mail/smtpmail.el
View File

@ -541,7 +541,9 @@ This is relative to `smtpmail-queue-dir'.")
(host (or smtpmail-smtp-server
(error "`smtpmail-smtp-server' not defined")))
(port smtpmail-smtp-service)
(envelope-from (mail-envelope-from))
(envelope-from (or (mail-envelope-from)
smtpmail-mail-address
user-mail-address))
response-code
greeting
process-buffer
@ -691,11 +693,10 @@ This is relative to `smtpmail-queue-dir'.")
"")))
; (smtpmail-send-command process (format "MAIL FROM:%s@%s" (user-login-name) (smtpmail-fqdn)))
(smtpmail-send-command process (format "MAIL FROM: <%s>%s%s"
(or envelope-from
smtpmail-mail-address)
envelope-from
size-part
body-part))
(if (or (null (car (setq response-code (smtpmail-read-response process))))
(not (integerp (car response-code)))
(>= (car response-code) 400))