Mercurial > emacs
changeset 52642:79320037f627
(smtpmail-via-smtp): Don't insert a space
between "MAIL FROM:" and "RCPT TO:" and the following address.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sun, 28 Sep 2003 08:54:34 +0000 |
| parents | 986ebfa6cdc5 |
| children | 9409b212e89c |
| files | lisp/mail/smtpmail.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/smtpmail.el Sun Sep 28 08:49:44 2003 +0000 +++ b/lisp/mail/smtpmail.el Sun Sep 28 08:54:34 2003 +0000 @@ -671,7 +671,7 @@ (>= (car response-code) 400)) (throw 'done nil)))) - ;; MAIL FROM: <sender> + ;; MAIL FROM:<sender> (let ((size-part (if (or (member 'size supported-extensions) (assoc 'size supported-extensions)) @@ -706,7 +706,7 @@ "") ""))) ; (smtpmail-send-command process (format "MAIL FROM:%s@%s" (user-login-name) (smtpmail-fqdn))) - (smtpmail-send-command process (format "MAIL FROM: <%s>%s%s" + (smtpmail-send-command process (format "MAIL FROM:<%s>%s%s" envelope-from size-part body-part)) @@ -717,10 +717,10 @@ (throw 'done nil) )) - ;; RCPT TO: <recipient> + ;; RCPT TO:<recipient> (let ((n 0)) (while (not (null (nth n recipient))) - (smtpmail-send-command process (format "RCPT TO: <%s>" (smtpmail-maybe-append-domain (nth n recipient)))) + (smtpmail-send-command process (format "RCPT TO:<%s>" (smtpmail-maybe-append-domain (nth n recipient)))) (setq n (1+ n)) (setq response-code (smtpmail-read-response process))