From: Eli Zaretskii Date: Sun, 28 Sep 2003 08:55:50 +0000 (+0000) Subject: (smtpmail-via-smtp): Don't insert a space X-Git-Tag: ttn-vms-21-2-B4~8720 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a8df98fd8b8894623d6ff29dfd6f96bff306b14b;p=emacs.git (smtpmail-via-smtp): Don't insert a space between "MAIL FROM:" and "RCPT TO:" and the following address. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cc62088e73d..0a6e225725f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-09-28 Jesper Harder (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 (tiny change) * textmodes/text-mode.el (paragraph-indent-minor-mode): Doc fix. diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 35c01201b3c..c9bfce7f400 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -671,7 +671,7 @@ This is relative to `smtpmail-queue-dir'.") (>= (car response-code) 400)) (throw 'done nil)))) - ;; MAIL FROM: + ;; MAIL FROM: (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: + ;; RCPT TO: (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))