We need specify only mode "i" on IMAP socket.

1 files changed, 1 insertions, 1 deletions

diff --git a/auth.txr b/auth.txr
index 86cec41..08e984c 100644
--- a/auth.txr
+++ b/auth.txr
@@ -19,7 +19,7 @@
 @    (require (sasl-auth userid password))
 @  (elif (eq auth :imap))
 @    (try)
-@      (bind s @(let ((sock (open-socket af-inet sock-stream "r+ib")))
+@      (bind s @(let ((sock (open-socket af-inet sock-stream "i")))
                   (sock-connect sock (new sockaddr-in
                                           addr inaddr-loopback
                                           port 143))