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

Remove SMTP-INTERNALS structure.

This commit is contained in:
sperber 2002-09-02 08:38:50 +00:00
parent 060d0f8076
commit 56cd7c9f2e
1 changed files with 1 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
scheme/packages.scm
View File

@ -44,14 +44,6 @@
parse-smtp-reply parse-smtp-reply
smtp-stuff)) smtp-stuff))
(define-interface smtp-internals-interface
(export read-crlf-line ; These two should be in an
write-crlf ; auxiliary module.
smtp-query
nullary-smtp-command
unary-smtp-command))
(define-interface rfc822-interface (define-interface rfc822-interface
(export read-rfc822-headers (export read-rfc822-headers
read-rfc822-field read-rfc822-field
@ -432,9 +424,7 @@
(open scsh scsh-utilities srfi-13 formats ascii receiving scheme) (open scsh scsh-utilities srfi-13 formats ascii receiving scheme)
(files (lib htmlout))) (files (lib htmlout)))
(define-structures (define-structure smtp smtp-interface
((smtp smtp-interface)
(smtp-internals smtp-internals-interface))
(open scsh ; write-string read-string/partial force-output (open scsh ; write-string read-string/partial force-output
; system-name user-login-name and sockets ; system-name user-login-name and sockets