[Emacs-diffs] Changes to emacs/lisp/mail/smtpmail.el

[Eli Zaretskii]

Index: emacs/lisp/mail/smtpmail.el
diff -c emacs/lisp/mail/smtpmail.el:1.60 emacs/lisp/mail/smtpmail.el:1.61
*** emacs/lisp/mail/smtpmail.el:1.60    Mon Sep  1 11:45:32 2003
--- emacs/lisp/mail/smtpmail.el Sun Sep 28 04:54:34 2003
***************
*** 671,677 ****
                          (>= (car response-code) 400))
                      (throw 'done nil))))
  
!           ;; MAIL FROM: <sender>
            (let ((size-part
                   (if (or (member 'size supported-extensions)
                           (assoc 'size supported-extensions))
--- 671,677 ----
                          (>= (car response-code) 400))
                      (throw 'done nil))))
  
!           ;; MAIL FROM:<sender>
            (let ((size-part
                   (if (or (member 'size supported-extensions)
                           (assoc 'size supported-extensions))
***************
*** 706,712 ****
                         "")
                     "")))
  ;           (smtpmail-send-command process (format "MAIL FROM:address@hidden" 
(user-login-name) (smtpmail-fqdn)))
!             (smtpmail-send-command process (format "MAIL FROM: <%s>%s%s"
                                                       envelope-from
                                                     size-part
                                                     body-part))
--- 706,712 ----
                         "")
                     "")))
  ;           (smtpmail-send-command process (format "MAIL FROM:address@hidden" 
(user-login-name) (smtpmail-fqdn)))
!             (smtpmail-send-command process (format "MAIL FROM:<%s>%s%s"
                                                       envelope-from
                                                     size-part
                                                     body-part))
***************
*** 717,726 ****
                  (throw 'done nil)
                ))
  
!           ;; 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))))
                (setq n (1+ n))
  
                (setq response-code (smtpmail-read-response process))
--- 717,726 ----
                  (throw 'done nil)
                ))
  
!           ;; 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))))
                (setq n (1+ n))
  
                (setq response-code (smtpmail-read-response process))