From 9a770b7dbeafc359b394580fb9ae1cfb5b108a54 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Thu, 29 Apr 2004 22:54:11 +0000
Subject: [PATCH] .

original commit: 41b2d831b9f4764d759b1630ab2c6d7dfcdb58bd
---
 collects/net/imap.ss | 47 ++++++++++++++++++++++++++++++++++++--------
 1 file changed, 39 insertions(+), 8 deletions(-)

diff --git a/collects/net/imap.ss b/collects/net/imap.ss
index 5c3bb9ef4d..dbd6aff693 100644
--- a/collects/net/imap.ss
+++ b/collects/net/imap.ss
@@ -1,11 +1,42 @@
 
 (module imap mzscheme
-  (require (lib "unitsig.ss"))
-
-  (require "imap-sig.ss")
-  (require "imap-unit.ss")
-
+  (require (lib "unitsig.ss")
+           (lib "contract.ss"))
+  
+  (require "imap-sig.ss"
+           "imap-unit.ss")
+  
   (define-values/invoke-unit/sig net:imap^
-    net:imap@)
-
-  (provide-signature-elements net:imap^))
+                                 net:imap@)
+  
+  (provide/contract
+   [imap-port-number (case->
+                      (-> number?)
+                      (number? . -> . void?))]
+   [imap-get-hierarchy-delimiter (imap-connection? . -> . bytes?)]
+   [imap-list-child-mailboxes
+    (case->
+     (imap-connection? (union false? bytes?) . -> . (listof (list/p (listof symbol?) bytes?)))
+     (imap-connection? (union false? bytes?) (union false? bytes?)
+                       . -> .
+                       (listof (list/p (listof symbol?) bytes?))))])
+   
+  (provide
+   imap-connection?
+   imap-connect imap-connect*
+   imap-disconnect
+   imap-force-disconnect
+   imap-reselect
+   imap-examine
+   imap-noop
+   imap-status
+   
+   imap-get-messages
+   imap-copy imap-append
+   imap-store imap-flag->symbol symbol->imap-flag
+   imap-expunge
+   
+   imap-mailbox-exists?
+   imap-create-mailbox
+   
+   imap-mailbox-flags))
\ No newline at end of file