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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cc62088e73d482c178f01366543988a911918016..0a6e225725f88c897c49935c973831fddb8f0dfd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+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.

diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index 35c01201b3ce55a464b9416be7b6b74877cd46ca..c9bfce7f4007422137e8ebbf4575a5e46b524051 100644 (file)
--- 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))