From 56cd7c9f2ee765dd08c62793af9b37ee291f346d Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Mon, 2 Sep 2002 08:38:50 +0000
Subject: [PATCH] Remove SMTP-INTERNALS structure.

---
 scheme/packages.scm | 12 +-----------
 1 file changed, 1 insertion(+), 11 deletions(-)

diff --git a/scheme/packages.scm b/scheme/packages.scm
index 1890e21..ef531b1 100644
--- a/scheme/packages.scm
+++ b/scheme/packages.scm
@@ -44,14 +44,6 @@
 	  parse-smtp-reply
 	  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
   (export read-rfc822-headers
 	  read-rfc822-field
@@ -432,9 +424,7 @@
   (open scsh scsh-utilities srfi-13 formats ascii receiving scheme)
   (files (lib htmlout)))
 
-(define-structures
-  ((smtp smtp-interface)
-   (smtp-internals smtp-internals-interface))
+(define-structure smtp smtp-interface
 				
   (open scsh			; write-string read-string/partial force-output
 				;   system-name user-login-name and sockets