diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-06-18 22:39:51 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-06-18 22:39:51 +0000 |
| commit | 6ccd86c7e1df17076309db156bad524f781fc5d1 (patch) | |
| tree | 2afe8f671849c3e95e827d1bfe66266dbecbbfca /lisp | |
| parent | dc1dcea9e4922387778b4020eff2543bf6440fc8 (diff) | |
| download | emacs-6ccd86c7e1df17076309db156bad524f781fc5d1.tar.gz | |
(smtpmail-via-smtp): Bracket names in FROM and RCPT TO commands.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/smtpmail.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 88042b9555f..00e07e9c059 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -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)))) |