diff --git a/smtp.scm b/smtp.scm index 7d7fc6b..fe13a72 100644 --- a/smtp.scm +++ b/smtp.scm @@ -125,7 +125,7 @@ (smtp-query (smtp/open host) smtp/vrfy name)) (define (mail-help host . details) - (smtp-query (smtp/open host) smtp/help (apply string-append details))) + (smtp-query (smtp/open host) smtp/help (apply string-append (cons " " details)))) ;;; (smtp-transactions socket ?transaction1 ...) @@ -140,7 +140,7 @@ ;;; + TEXT (list of strings that came with the reply). ;;; ;;; - If the transaction's reply code is 221 or 421 (meaning the socket has -;;; been closed), then the transaction sequence is is aborted, and the +;;; been closed), then the transaction sequence is aborted, and the ;;; SMTP-TRANSACTIONS form returns the CODE and TEXT values for the current ;;; transaction. ;;;