# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 835137591 0
# Node ID ad4f0ac5e7efd35d3e2b6494ce453a591bea3afd
# Parent  6f41e17b3452e137da1a1ae096c72cd068fae973
(smtpmail-via-smtp): Bracket names in FROM and RCPT TO commands.

diff -r 6f41e17b3452 -r ad4f0ac5e7ef lisp/mail/smtpmail.el
--- a/lisp/mail/smtpmail.el	Tue Jun 18 22:38:23 1996 +0000
+++ b/lisp/mail/smtpmail.el	Tue Jun 18 22:39:51 1996 +0000
@@ -267,7 +267,7 @@
 
 	    ;; MAIL FROM: <sender>
 ;	    (smtpmail-send-command process (format "MAIL FROM:%s@%s" (user-login-name) (smtpmail-fqdn)))
-	    (smtpmail-send-command process (format "MAIL FROM:%s" user-mail-address))
+	    (smtpmail-send-command process (format "MAIL FROM: <%s>" user-mail-address))
 
 	    (if (or (null (car (setq response-code (smtpmail-read-response process))))
 		    (not (integerp (car response-code)))
@@ -278,7 +278,7 @@
 	    ;; RCPT TO: <recipient>
 	    (let ((n 0))
 	      (while (not (null (nth n recipient)))
-		(smtpmail-send-command process (format "RCPT TO: %s" (nth n recipient)))
+		(smtpmail-send-command process (format "RCPT TO: <%s>" (nth n recipient)))
 		(setq n (1+ n))
 
 		(if (or (null (car (setq response-code (smtpmail-read-response process))))