Remove some out-of-date comments.
This commit is contained in:
parent
65279a42e9
commit
b60335d2cd
|
@ -29,17 +29,6 @@
|
|||
;;; of addresses.
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
;;; Mail message to recipients in list TO-LIST. Message handed off to server
|
||||
;;; running on HOST; default is the local host. Returns two values: code and
|
||||
;;; text-list. However, if only problem with message is that some recipients
|
||||
;;; were rejected, sendmail sends to the rest of the recipients, and the
|
||||
;;; partial-success return is [700 loser-alist] where loser-alist
|
||||
;;; is a list whose elements are of the form (loser-recipient code . text) --
|
||||
;;; that is, for each recipient refused by the server, you get the error
|
||||
;;; data sent back for that guy. The success check is (< code 400).
|
||||
;;;
|
||||
;;; BODY is a list of strings or an input port.
|
||||
|
||||
(define (smtp-send-mail from to-list headers body . maybe-host)
|
||||
(call-with-current-continuation
|
||||
(lambda (bailout)
|
||||
|
|
Loading…
Reference in New Issue