Permalink
Browse files

[fix] imapClient: Scrapped SELECT/EXAMINE on login and implemented se…

…parate SELECT/EXAMINE commands.
  • Loading branch information...
1 parent 997d860 commit c077cc131bff20d22e9a9b50c5688a4bfcd56284 @nrs135 nrs135 committed with Aqua-Ye Apr 2, 2012
Showing with 138 additions and 108 deletions.
  1. +4 −6 libnet/imapClient.ml
  2. +106 −90 libnet/imapClientCore.proto
  3. +15 −3 opabsl/mlbsl/bslMail.ml
  4. +13 −9 stdlib/web/mail/email.opa
View
@@ -23,11 +23,9 @@ module ICC = ImapClientCore
let mail_recv_aux ?client_certificate ?verify_params ?(secure=false) sched
~addr ?(port=993)
- ~mailbox ?readonly ~username ~password
+ ~username ~password
?(commands=[]) cont ?err_cont () =
- let mail = { ICC.mailbox=mailbox;
- readonly=Option.default false readonly;
- username=username;
+ let mail = { ICC.username=username;
password=password;
commands=commands;
status={ ICC.flags=""; exists=(-1); recent=(-1); oks=[]; rwstatus="" };
@@ -71,9 +69,9 @@ let mail_recv_aux ?client_certificate ?verify_params ?(secure=false) sched
let mail_recv ?client_certificate ?verify_params ?secure sched
~addr ?port
- ~mailbox ?readonly ~username ~password ?commands
+ ~username ~password ?commands
(cont:ICC.results -> unit) ?err_cont () =
mail_recv_aux ?client_certificate ?verify_params ?secure sched
~addr ?port
- ~mailbox ?readonly ~username ~password ?commands
+ ~username ~password ?commands
cont ?err_cont ()
Oops, something went wrong.

0 comments on commit c077cc1

Please sign in to comment.