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)) |
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)) |
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)) |