diff options
| author | Richard M. Stallman | 1996-06-18 22:39:51 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-06-18 22:39:51 +0000 |
| commit | b21dc7615e87908d113de43a4bce299beb7ba3a5 (patch) | |
| tree | 789c3f44f022099132c10718219f3c36178e4d24 | |
| parent | 0e2701ca22814e2024715bc8f09805992ef5ce5e (diff) | |
| download | emacs-b21dc7615e87908d113de43a4bce299beb7ba3a5.tar.gz emacs-b21dc7615e87908d113de43a4bce299beb7ba3a5.zip | |
(smtpmail-via-smtp): Bracket names in FROM and RCPT TO commands.
| -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.") | |||
| 267 | 267 | ||
| 268 | ;; MAIL FROM: <sender> | 268 | ;; MAIL FROM: <sender> |
| 269 | ; (smtpmail-send-command process (format "MAIL FROM:%s@%s" (user-login-name) (smtpmail-fqdn))) | 269 | ; (smtpmail-send-command process (format "MAIL FROM:%s@%s" (user-login-name) (smtpmail-fqdn))) |
| 270 | (smtpmail-send-command process (format "MAIL FROM:%s" user-mail-address)) | 270 | (smtpmail-send-command process (format "MAIL FROM: <%s>" user-mail-address)) |
| 271 | 271 | ||
| 272 | (if (or (null (car (setq response-code (smtpmail-read-response process)))) | 272 | (if (or (null (car (setq response-code (smtpmail-read-response process)))) |
| 273 | (not (integerp (car response-code))) | 273 | (not (integerp (car response-code))) |
| @@ -278,7 +278,7 @@ don't define this value.") | |||
| 278 | ;; RCPT TO: <recipient> | 278 | ;; RCPT TO: <recipient> |
| 279 | (let ((n 0)) | 279 | (let ((n 0)) |
| 280 | (while (not (null (nth n recipient))) | 280 | (while (not (null (nth n recipient))) |
| 281 | (smtpmail-send-command process (format "RCPT TO: %s" (nth n recipient))) | 281 | (smtpmail-send-command process (format "RCPT TO: <%s>" (nth n recipient))) |
| 282 | (setq n (1+ n)) | 282 | (setq n (1+ n)) |
| 283 | 283 | ||
| 284 | (if (or (null (car (setq response-code (smtpmail-read-response process)))) | 284 | (if (or (null (car (setq response-code (smtpmail-read-response process)))) |