# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1064739274 0
# Node ID 79320037f627b0299feb108576ac750a4c20f966
# Parent  986ebfa6cdc50be0c24c04977e769cc16a9846f6
(smtpmail-via-smtp): Don't insert a space
between "MAIL FROM:" and "RCPT TO:" and the following address.

diff -r 986ebfa6cdc5 -r 79320037f627 lisp/mail/smtpmail.el
--- a/lisp/mail/smtpmail.el	Sun Sep 28 08:49:44 2003 +0000
+++ b/lisp/mail/smtpmail.el	Sun Sep 28 08:54:34 2003 +0000
@@ -671,7 +671,7 @@
 			  (>= (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 @@
 			 "")
 		     "")))
 ;	      (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 @@
 		  (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))