[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH] Fix smtpmail-via-smtp
From: |
Simon Josefsson |
Subject: |
[PATCH] Fix smtpmail-via-smtp |
Date: |
Wed, 13 Nov 2002 10:26:43 +0100 |
User-agent: |
Gnus/5.090008 (Oort Gnus v0.08) Emacs/21.2.92 (i686-pc-linux-gnu) |
It seems feedmail.el calls smtpmail-via-smtp directly, not via
smtpmail-send-it, causing smtpmail-mail-address to never be set. This
patch makes it falls back on user-mail-address in this case. I will
commit this shortly unless someone objects.
2002-11-13 Simon Josefsson <address@hidden>
* mail/smtpmail.el (smtpmail-via-smtp): Fall back to
user-mail-address as sender.
--- smtpmail.el.~1.50.~ 2002-10-11 04:18:20.000000000 +0200
+++ smtpmail.el 2002-11-13 10:23:22.000000000 +0100
@@ -540,7 +540,9 @@
(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
@@ -690,8 +692,7 @@
"")))
; (smtpmail-send-command process (format "MAIL FROM:address@hidden"
(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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [PATCH] Fix smtpmail-via-smtp,
Simon Josefsson <=