.

original commit: 41b2d831b9f4764d759b1630ab2c6d7dfcdb58bd

collects/net/imap.ss

@@ -1,11 +1,42 @@
 
 (module imap mzscheme
-  (require (lib "unitsig.ss"))
+  (require (lib "unitsig.ss")
+           (lib "contract.ss"))
   
-  (require "imap-sig.ss")
-  (require "imap-unit.ss")
+  (require "imap-sig.ss"
+           "imap-unit.ss")
   
   (define-values/invoke-unit/sig net:imap^
                                  net:imap@)
   
-  (provide-signature-elements 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))