/[emacs]/emacs/lisp/mail/smtpmail.el
ViewVC logotype

Diff of /emacs/lisp/mail/smtpmail.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.60 by miles, Mon Sep 1 15:45:32 2003 UTC revision 1.61 by eliz, Sun Sep 28 08:54:34 2003 UTC
# Line 671  This is relative to `smtpmail-queue-dir' Line 671  This is relative to `smtpmail-queue-dir'
671                            (>= (car response-code) 400))                            (>= (car response-code) 400))
672                        (throw 'done nil))))                        (throw 'done nil))))
673    
674              ;; MAIL FROM: <sender>              ;; MAIL FROM:<sender>
675              (let ((size-part              (let ((size-part
676                     (if (or (member 'size supported-extensions)                     (if (or (member 'size supported-extensions)
677                             (assoc 'size supported-extensions))                             (assoc 'size supported-extensions))
# Line 706  This is relative to `smtpmail-queue-dir' Line 706  This is relative to `smtpmail-queue-dir'
706                           "")                           "")
707                       "")))                       "")))
708  ;             (smtpmail-send-command process (format "MAIL FROM:%s@%s" (user-login-name) (smtpmail-fqdn)))  ;             (smtpmail-send-command process (format "MAIL FROM:%s@%s" (user-login-name) (smtpmail-fqdn)))
709                (smtpmail-send-command process (format "MAIL FROM: <%s>%s%s"                (smtpmail-send-command process (format "MAIL FROM:<%s>%s%s"
710                                                       envelope-from                                                       envelope-from
711                                                       size-part                                                       size-part
712                                                       body-part))                                                       body-part))
# Line 717  This is relative to `smtpmail-queue-dir' Line 717  This is relative to `smtpmail-queue-dir'
717                    (throw 'done nil)                    (throw 'done nil)
718                  ))                  ))
719    
720              ;; RCPT TO: <recipient>              ;; RCPT TO:<recipient>
721              (let ((n 0))              (let ((n 0))
722                (while (not (null (nth n recipient)))                (while (not (null (nth n recipient)))
723                  (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))))
724                  (setq n (1+ n))                  (setq n (1+ n))
725    
726                  (setq response-code (smtpmail-read-response process))                  (setq response-code (smtpmail-read-response process))

Legend:
Removed from v.1.60  
changed lines
  Added in v.1.61

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26