insert leading blank in MAIL-HELP's details

This commit is contained in:
interp 2002-04-02 20:18:40 +00:00
parent 437ff2dd56
commit aa1785587b
1 changed files with 2 additions and 2 deletions

View File

@ -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.
;;;