imap: privatizing the non-api words

diff --git a/extra/imap/imap.factor b/extra/imap/imap.factor
index dba00786e1d3ecca14c593b19ff6398b87676607..7fd0ab86ebc2ed994aceb8f9537f07408fc16868 100644 (file)
--- a/extra/imap/imap.factor
+++ b/extra/imap/imap.factor
@@ -32,6 +32,8 @@ CONSTANT: IMAP4_SSL_PORT 993
         read-hms " " expect readln parse-rfc822-gmt-offset <timestamp>
     ] with-string-reader  ;
 
+<PRIVATE
+
 : >utf7imap4 ( str -- str' )
     utf7imap4 encode >string ;
 
@@ -100,6 +102,8 @@ CONSTANT: IMAP4_SSL_PORT 993
         first 1 tail values first2 [ " " split ] dip string>number swap 2array
     ] map ;
 
+PRIVATE>
+
 ! Constructor
 : <imap4ssl> ( host -- imap4 )
     IMAP4_SSL_PORT <inet> <secure> binary <client> drop