[PATCH] Fix smtpmail-via-smtp

[Simon Josefsson]

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