Mercurial > emacs

changeset 15453:ad4f0ac5e7ef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(smtpmail-via-smtp): Bracket names in FROM and RCPT TO commands.
author Richard M. Stallman <rms@gnu.org>
date Tue, 18 Jun 1996 22:39:51 +0000
parents 6f41e17b3452
children 85313b347ed9
files lisp/mail/smtpmail.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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))))