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

Use CRLF-IO in a few more instances.

This commit is contained in:
sperber 2002-09-02 08:39:10 +00:00
parent 56cd7c9f2e
commit 4aa41b038f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/lib/smtp.scm
View File

@ -218,7 +218,9 @@
(else (error "Message must be string or input-port."))) (else (error "Message must be string or input-port.")))
(write-string "\r\n.\r\n" p) (write-crlf p)
(write-char #\. p)
(write-crlf p)
(force-output p) (force-output p)
(handle-smtp-reply socket)))))))) (handle-smtp-reply socket))))))))