diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2003-09-28 08:55:50 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2003-09-28 08:55:50 +0000 |
| commit | a8df98fd8b8894623d6ff29dfd6f96bff306b14b (patch) | |
| tree | 90568cd34d5766b0bcbe5d3bb4f0420bf81eea95 /lisp/mail | |
| parent | 57fff5de663515ea95e25d10eb838929cbda4ad6 (diff) | |
| download | emacs-a8df98fd8b8894623d6ff29dfd6f96bff306b14b.tar.gz | |
(smtpmail-via-smtp): Don't insert a space
between "MAIL FROM:" and "RCPT TO:" and the following address.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/smtpmail.el | 8 |
1 files changed, 4 insertions, 4 deletions
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: <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)) |