Commit a8df98fd authored by Eli Zaretskii's avatar Eli Zaretskii

(smtpmail-via-smtp): Don't insert a space

between "MAIL FROM:" and "RCPT TO:" and the following address.
parent 57fff5de
2003-09-28 Jesper Harder <harder@ifa.au.dk> (tiny change)
* mail/smtpmail.el (smtpmail-via-smtp): Don't insert a space
between "MAIL FROM:" and "RCPT TO:" and the following address.
2003-09-28 Jesper Harder <harder@ifa.au.dk> (tiny change)
* textmodes/text-mode.el (paragraph-indent-minor-mode): Doc fix.
......
......@@ -671,7 +671,7 @@ This is relative to `smtpmail-queue-dir'.")
(>= (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 @@ This is relative to `smtpmail-queue-dir'.")
"")
"")))
; (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 @@ This is relative to `smtpmail-queue-dir'.")
(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))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment