diff --git a/scheme/lib/smtp.scm b/scheme/lib/smtp.scm
index 03a5a52..89d366f 100644
--- a/scheme/lib/smtp.scm
+++ b/scheme/lib/smtp.scm
@@ -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)