(smtpmail-via-smtp): Don't insert a space

between "MAIL FROM:" and "RCPT TO:" and the following address.

2 files changed, 9 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cc62088e73d..0a6e225725f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2003-09-28  Jesper Harder  <harder@ifa.au.dk>  (tiny change)
 
+        * mail/smtpmail.el (smtpmail-via-smtp): Don't insert a space
+        between "MAIL FROM:" and "RCPT TO:" and the following address.
+
+2003-09-28  Jesper Harder  <harder@ifa.au.dk>  (tiny change)
+
         * textmodes/text-mode.el (paragraph-indent-minor-mode): Doc fix.
 
 2003-09-28  David Ponce  <david@dponce.com>
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index 35c01201b3c..c9bfce7f400 100644
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -671,7 +671,7 @@ This is relative to `smtpmail-queue-dir'.")
                           (>= (car response-code) 400))
                       (throw 'done nil))))
 
-            ;; MAIL FROM: <sender>
+            ;; MAIL FROM:<sender>
             (let ((size-part
                    (if (or (member 'size supported-extensions)
                            (assoc 'size supported-extensions))
@@ -706,7 +706,7 @@ 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"
+              (smtpmail-send-command process (format "MAIL FROM:<%s>%s%s"
                                                      envelope-from
                                                      size-part
                                                      body-part))
@@ -717,10 +717,10 @@ This is relative to `smtpmail-queue-dir'.")
                   (throw 'done nil)
                 ))
 
-            ;; RCPT TO: <recipient>
+            ;; RCPT TO:<recipient>
             (let ((n 0))
               (while (not (null (nth n recipient)))
-                (smtpmail-send-command process (format "RCPT TO: <%s>" (smtpmail-maybe-append-domain (nth n recipient))))
+                (smtpmail-send-command process (format "RCPT TO:<%s>" (smtpmail-maybe-append-domain (nth n recipient))))
                 (setq n (1+ n))
 
                 (setq response-code (smtpmail-read-response process))