scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
smtp.scm
View File

@ -125,7 +125,7 @@
(smtp-query (smtp/open host) smtp/vrfy name)) (smtp-query (smtp/open host) smtp/vrfy name))
(define (mail-help host . details) (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 ...) ;;; (smtp-transactions socket ?transaction1 ...)
@ -140,7 +140,7 @@
;;; + TEXT (list of strings that came with the reply). ;;; + TEXT (list of strings that came with the reply).
;;; ;;;
;;; - If the transaction's reply code is 221 or 421 (meaning the socket has ;;; - 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 ;;; SMTP-TRANSACTIONS form returns the CODE and TEXT values for the current
;;; transaction. ;;; transaction.
;;; ;;;