mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(smtpmail-via-smtp): Bracket names in FROM and RCPT TO commands.

Browse source
This commit is contained in:
Richard M. Stallman 1996-06-18 22:39:51 +00:00
parent 0e2701ca22
commit b21dc7615e
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/mail/smtpmail.el
View file

@ -267,7 +267,7 @@ don't define this value.")
;; 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 @@ don't define this value.")
;; 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))))