From 92d71a4a3bb9b8fce612cd958645799f5b6cc776 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Thu, 16 Jan 2014 22:14:27 +0100
Subject: [PATCH] imap: privatizing the non-api words

---
 extra/imap/imap.factor | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/extra/imap/imap.factor b/extra/imap/imap.factor
index dba00786e1..7fd0ab86eb 100644
--- 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