From dff35f8603677845e6f25931f7d72ec0b3a22afe Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 9 Oct 2004 20:02:01 +0000
Subject: [PATCH] .

original commit: 266a43bafffc8738446b98dcf7c9b29f145922c8
---
 collects/net/imap.ss | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/collects/net/imap.ss b/collects/net/imap.ss
index 9b6d773296..7e7acd734d 100644
--- a/collects/net/imap.ss
+++ b/collects/net/imap.ss
@@ -10,9 +10,6 @@
                                  net:imap@)
   
   (provide/contract
-   [imap-port-number (case->
-                      (-> number?)
-                      (number? . -> . void?))]
    [imap-get-hierarchy-delimiter (imap-connection? . -> . bytes?)]
    [imap-list-child-mailboxes
     (case->
@@ -32,6 +29,8 @@
    imap-poll
    imap-status
    
+   imap-port-number ; a parameter
+
    imap-new?
    imap-messages
    imap-recent