···

       
138
       
 
       
      | Ok conn ->

     

       
139
       
 
       
          (* Get the primary account ID *)

     

       
140
       
 
       
          let primary_account_id = 

     

       
141
       
-
       
            let mail_capability = Jmap_mail.Capability.to_string (Jmap_mail.Capability.Mail Mail) in

     

       
142
       
 
       
            match List.assoc_opt mail_capability conn.session.primary_accounts with

     

       
143
       
 
       
            | Some id -> id

     

       
144
       
 
       
            | None -> 

     

···

       
138
       
 
       
      | Ok conn ->

     

       
139
       
 
       
          (* Get the primary account ID *)

     

       
140
       
 
       
          let primary_account_id = 

     

       
141
       
+
       
            let mail_capability = Jmap_mail.Capability.to_string Jmap_mail.Capability.Mail in

     

       
142
       
 
       
            match List.assoc_opt mail_capability conn.session.primary_accounts with

     

       
143
       
 
       
            | Some id -> id

     

       
144
       
 
       
            | None -> 

     

···

       
2
       
 
       


     

       
3
       
 
       
(** Module for managing JMAP Mail-specific capability URIs *)

     

       
4
       
 
       
module Capability = struct

     

       
5
       
-
       
  (** Mail capability types *)

     

       
6
       
-
       
  type mail = Mail

     

       
7
       
-
       


     

       
8
       
 
       
  (** Mail capability URI *)

     

       
9
       
 
       
  let mail_uri = "urn:ietf:params:jmap:mail"

     

       
10
       
 
       


     

       
11
       
-
       
  (** Convert mail capability to URI string *)

     

       
12
       
-
       
  let string_of_mail = function

     

       
13
       
-
       
    | Mail -> mail_uri

     

       
14
       
-
       


     

       
15
       
-
       
  (** Parse a string to mail capability *)

     

       
16
       
-
       
  let mail_of_string = function

     

       
17
       
-
       
    | s when s = mail_uri -> Some Mail

     

       
18
       
-
       
    | _ -> None

     

       
19
       
-
       


     

       
20
       
-
       
  (** Submission capability types *)

     

       
21
       
-
       
  type submission = Submission

     

       
22
       
-
       


     

       
23
       
 
       
  (** Submission capability URI *)

     

       
24
       
 
       
  let submission_uri = "urn:ietf:params:jmap:submission"

     

       
25
       
 
       


     

       
26
       
-
       
  (** Convert submission capability to URI string *)

     

       
27
       
-
       
  let string_of_submission = function

     

       
28
       
-
       
    | Submission -> submission_uri

     

       
29
       
-
       


     

       
30
       
-
       
  (** Parse a string to submission capability *)

     

       
31
       
-
       
  let submission_of_string = function

     

       
32
       
-
       
    | s when s = submission_uri -> Some Submission

     

       
33
       
-
       
    | _ -> None

     

       
34
       
-
       


     

       
35
       
-
       
  (** Vacation response capability types *)

     

       
36
       
-
       
  type vacation_response = VacationResponse

     

       
37
       
-
       


     

       
38
       
 
       
  (** Vacation response capability URI *)

     

       
39
       
 
       
  let vacation_response_uri = "urn:ietf:params:jmap:vacationresponse"

     

       
40
       
 
       


     

       
41
       
-
       
  (** Convert vacation response capability to URI string *)

     

       
42
       
-
       
  let string_of_vacation_response = function

     

       
43
       
-
       
    | VacationResponse -> vacation_response_uri

     

       
44
       
-
       


     

       
45
       
-
       
  (** Parse a string to vacation response capability *)

     

       
46
       
-
       
  let vacation_response_of_string = function

     

       
47
       
-
       
    | s when s = vacation_response_uri -> Some VacationResponse

     

       
48
       
-
       
    | _ -> None

     

       
49
       
-
       


     

       
50
       
 
       
  (** All mail extension capability types *)

     

       
51
       
 
       
  type t =

     

       
52
       
-
       
    | Mail of mail

     

       
53
       
-
       
    | Submission of submission

     

       
54
       
-
       
    | VacationResponse of vacation_response

     

       
55
       
-
       
    | Extension of string

     

       
56
       
 
       


     

       
57
       
 
       
  (** Convert capability to URI string *)

     

       
58
       
 
       
  let to_string = function

     

       
59
       
-
       
    | Mail m -> string_of_mail m

     

       
60
       
-
       
    | Submission s -> string_of_submission s

     

       
61
       
-
       
    | VacationResponse v -> string_of_vacation_response v

     

       
62
       
 
       
    | Extension s -> s

     

       
63
       
 
       


     

       
64
       
 
       
  (** Parse a string to a capability *)

     

       
65
       
 
       
  let of_string s =

     

       
66
       
-
       
    match mail_of_string s with

     

       
67
       
-
       
    | Some m -> Mail m

     

       
68
       
-
       
    | None ->

     

       
69
       
-
       
        match submission_of_string s with

     

       
70
       
-
       
        | Some s -> Submission s

     

       
71
       
-
       
        | None ->

     

       
72
       
-
       
            match vacation_response_of_string s with

     

       
73
       
-
       
            | Some v -> VacationResponse v

     

       
74
       
-
       
            | None -> Extension s

     

       
75
       
 
       


     

       
76
       
 
       
  (** Check if a capability is a standard mail capability *)

     

       
77
       
 
       
  let is_standard = function

     

       
78
       
-
       
    | Mail _ | Submission _ | VacationResponse _ -> true

     

       
79
       
 
       
    | Extension _ -> false

     

       
80
       
 
       


     

       
81
       
 
       
  (** Check if a capability string is a standard mail capability *)

     

       
82
       
 
       
  let is_standard_string s =

     

       
83
       
-
       
    match of_string s with

     

       
84
       
-
       
    | Extension _ -> false

     

       
85
       
-
       
    | _ -> true

     

       
86
       
 
       


     

       
87
       
 
       
  (** Create a list of capability strings *)

     

       
88
       
 
       
  let strings_of_capabilities capabilities =

     
···

       
1297
       
 
       
let get_mailboxes conn ~account_id =

     

       
1298
       
 
       
  let request = {

     

       
1299
       
 
       
    using = [

     

       
1300
       
-
       
      Jmap.Capability.to_string (Jmap.Capability.Core Core);

     

       
1301
       
-
       
      Capability.to_string (Capability.Mail Mail)

     

       
1302
       
 
       
    ];

     

       
1303
       
 
       
    method_calls = [

     

       
1304
       
 
       
      {

     
···

       
1346
       
 
       
let get_mailbox conn ~account_id ~mailbox_id =

     

       
1347
       
 
       
  let request = {

     

       
1348
       
 
       
    using = [

     

       
1349
       
-
       
      Jmap.Capability.to_string (Jmap.Capability.Core Core);

     

       
1350
       
-
       
      Capability.to_string (Capability.Mail Mail)

     

       
1351
       
 
       
    ];

     

       
1352
       
 
       
    method_calls = [

     

       
1353
       
 
       
      {

     
···

       
1393
       
 
       
  (* First query the emails in the mailbox *)

     

       
1394
       
 
       
  let query_request = {

     

       
1395
       
 
       
    using = [

     

       
1396
       
-
       
      Jmap.Capability.to_string (Jmap.Capability.Core Core);

     

       
1397
       
-
       
      Capability.to_string (Capability.Mail Mail)

     

       
1398
       
 
       
    ];

     

       
1399
       
 
       
    method_calls = [

     

       
1400
       
 
       
      {

     
···

       
1431
       
 
       
             if List.length email_ids > 0 then

     

       
1432
       
 
       
               let get_request = {

     

       
1433
       
 
       
                 using = [

     

       
1434
       
-
       
                   Jmap.Capability.to_string (Jmap.Capability.Core Core);

     

       
1435
       
-
       
                   Capability.to_string (Capability.Mail Mail)

     

       
1436
       
 
       
                 ];

     

       
1437
       
 
       
                 method_calls = [

     

       
1438
       
 
       
                   {

     
···

       
1488
       
 
       
let get_email conn ~account_id ~email_id =

     

       
1489
       
 
       
  let request = {

     

       
1490
       
 
       
    using = [

     

       
1491
       
-
       
      Jmap.Capability.to_string (Jmap.Capability.Core Core);

     

       
1492
       
-
       
      Capability.to_string (Capability.Mail Mail)

     

       
1493
       
 
       
    ];

     

       
1494
       
 
       
    method_calls = [

     

       
1495
       
 
       
      {

     

···

       
2
       
 
       


     

       
3
       
 
       
(** Module for managing JMAP Mail-specific capability URIs *)

     

       
4
       
 
       
module Capability = struct

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
5
       
 
       
  (** Mail capability URI *)

     

       
6
       
 
       
  let mail_uri = "urn:ietf:params:jmap:mail"

     

       
7
       
 
       


     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
8
       
 
       
  (** Submission capability URI *)

     

       
9
       
 
       
  let submission_uri = "urn:ietf:params:jmap:submission"

     

       
10
       
 
       


     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
11
       
 
       
  (** Vacation response capability URI *)

     

       
12
       
 
       
  let vacation_response_uri = "urn:ietf:params:jmap:vacationresponse"

     

       
13
       
 
       


     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
14
       
 
       
  (** All mail extension capability types *)

     

       
15
       
 
       
  type t =

     

       
16
       
+
       
    | Mail            (** Mail capability *)

     

       
17
       
+
       
    | Submission      (** Submission capability *)

     

       
18
       
+
       
    | VacationResponse (** Vacation response capability *)

     

       
19
       
+
       
    | Extension of string (** Custom extension *)

     

       
20
       
 
       


     

       
21
       
 
       
  (** Convert capability to URI string *)

     

       
22
       
 
       
  let to_string = function

     

       
23
       
+
       
    | Mail -> mail_uri

     

       
24
       
+
       
    | Submission -> submission_uri

     

       
25
       
+
       
    | VacationResponse -> vacation_response_uri

     

       
26
       
 
       
    | Extension s -> s

     

       
27
       
 
       


     

       
28
       
 
       
  (** Parse a string to a capability *)

     

       
29
       
 
       
  let of_string s =

     

       
30
       
+
       
    if s = mail_uri then Mail

     

       
31
       
+
       
    else if s = submission_uri then Submission

     

       
32
       
+
       
    else if s = vacation_response_uri then VacationResponse

     

       
33
       
+
       
    else Extension s

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
34
       
 
       


     

       
35
       
 
       
  (** Check if a capability is a standard mail capability *)

     

       
36
       
 
       
  let is_standard = function

     

       
37
       
+
       
    | Mail | Submission | VacationResponse -> true

     

       
38
       
 
       
    | Extension _ -> false

     

       
39
       
 
       


     

       
40
       
 
       
  (** Check if a capability string is a standard mail capability *)

     

       
41
       
 
       
  let is_standard_string s =

     

       
42
       
+
       
    s = mail_uri || s = submission_uri || s = vacation_response_uri

     

       
0
       
 
       

     

       
0
       
 
       

     

       
43
       
 
       


     

       
44
       
 
       
  (** Create a list of capability strings *)

     

       
45
       
 
       
  let strings_of_capabilities capabilities =

     
···

       
1254
       
 
       
let get_mailboxes conn ~account_id =

     

       
1255
       
 
       
  let request = {

     

       
1256
       
 
       
    using = [

     

       
1257
       
+
       
      Jmap.Capability.to_string Jmap.Capability.Core;

     

       
1258
       
+
       
      Capability.to_string Capability.Mail

     

       
1259
       
 
       
    ];

     

       
1260
       
 
       
    method_calls = [

     

       
1261
       
 
       
      {

     
···

       
1303
       
 
       
let get_mailbox conn ~account_id ~mailbox_id =

     

       
1304
       
 
       
  let request = {

     

       
1305
       
 
       
    using = [

     

       
1306
       
+
       
      Jmap.Capability.to_string Jmap.Capability.Core;

     

       
1307
       
+
       
      Capability.to_string Capability.Mail

     

       
1308
       
 
       
    ];

     

       
1309
       
 
       
    method_calls = [

     

       
1310
       
 
       
      {

     
···

       
1350
       
 
       
  (* First query the emails in the mailbox *)

     

       
1351
       
 
       
  let query_request = {

     

       
1352
       
 
       
    using = [

     

       
1353
       
+
       
      Jmap.Capability.to_string Jmap.Capability.Core;

     

       
1354
       
+
       
      Capability.to_string Capability.Mail

     

       
1355
       
 
       
    ];

     

       
1356
       
 
       
    method_calls = [

     

       
1357
       
 
       
      {

     
···

       
1388
       
 
       
             if List.length email_ids > 0 then

     

       
1389
       
 
       
               let get_request = {

     

       
1390
       
 
       
                 using = [

     

       
1391
       
+
       
                   Jmap.Capability.to_string Jmap.Capability.Core;

     

       
1392
       
+
       
                   Capability.to_string Capability.Mail

     

       
1393
       
 
       
                 ];

     

       
1394
       
 
       
                 method_calls = [

     

       
1395
       
 
       
                   {

     
···

       
1445
       
 
       
let get_email conn ~account_id ~email_id =

     

       
1446
       
 
       
  let request = {

     

       
1447
       
 
       
    using = [

     

       
1448
       
+
       
      Jmap.Capability.to_string Jmap.Capability.Core;

     

       
1449
       
+
       
      Capability.to_string Capability.Mail

     

       
1450
       
 
       
    ];

     

       
1451
       
 
       
    method_calls = [

     

       
1452
       
 
       
      {

     

···

       
2
       
 
       


     

       
3
       
 
       
(** Module for managing JMAP Mail-specific capability URIs *)

     

       
4
       
 
       
module Capability : sig

     

       
5
       
-
       
  (** Mail capability types *)

     

       
6
       
-
       
  type mail = Mail

     

       
7
       
-
       


     

       
8
       
 
       
  (** Mail capability URI *)

     

       
9
       
 
       
  val mail_uri : string

     

       
10
       
 
       


     

       
11
       
-
       
  (** Convert mail capability to URI string *)

     

       
12
       
-
       
  val string_of_mail : mail -> string

     

       
13
       
-
       


     

       
14
       
-
       
  (** Parse a string to mail capability *)

     

       
15
       
-
       
  val mail_of_string : string -> mail option

     

       
16
       
-
       


     

       
17
       
-
       
  (** Submission capability types *)

     

       
18
       
-
       
  type submission = Submission

     

       
19
       
-
       


     

       
20
       
 
       
  (** Submission capability URI *)

     

       
21
       
 
       
  val submission_uri : string

     

       
22
       
 
       


     

       
23
       
-
       
  (** Convert submission capability to URI string *)

     

       
24
       
-
       
  val string_of_submission : submission -> string

     

       
25
       
-
       


     

       
26
       
-
       
  (** Parse a string to submission capability *)

     

       
27
       
-
       
  val submission_of_string : string -> submission option

     

       
28
       
-
       


     

       
29
       
-
       
  (** Vacation response capability types *)

     

       
30
       
-
       
  type vacation_response = VacationResponse

     

       
31
       
-
       


     

       
32
       
 
       
  (** Vacation response capability URI *)

     

       
33
       
 
       
  val vacation_response_uri : string

     

       
34
       
-
       


     

       
35
       
-
       
  (** Convert vacation response capability to URI string *)

     

       
36
       
-
       
  val string_of_vacation_response : vacation_response -> string

     

       
37
       
-
       


     

       
38
       
-
       
  (** Parse a string to vacation response capability *)

     

       
39
       
-
       
  val vacation_response_of_string : string -> vacation_response option

     

       
40
       
 
       


     

       
41
       
 
       
  (** All mail extension capability types *)

     

       
42
       
 
       
  type t =

     

       
43
       
-
       
    | Mail of mail

     

       
44
       
-
       
    | Submission of submission

     

       
45
       
-
       
    | VacationResponse of vacation_response

     

       
46
       
-
       
    | Extension of string

     

       
47
       
 
       


     

       
48
       
 
       
  (** Convert capability to URI string *)

     

       
49
       
 
       
  val to_string : t -> string

     

···

       
2
       
 
       


     

       
3
       
 
       
(** Module for managing JMAP Mail-specific capability URIs *)

     

       
4
       
 
       
module Capability : sig

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
5
       
 
       
  (** Mail capability URI *)

     

       
6
       
 
       
  val mail_uri : string

     

       
7
       
 
       


     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
8
       
 
       
  (** Submission capability URI *)

     

       
9
       
 
       
  val submission_uri : string

     

       
10
       
 
       


     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
11
       
 
       
  (** Vacation response capability URI *)

     

       
12
       
 
       
  val vacation_response_uri : string

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
13
       
 
       


     

       
14
       
 
       
  (** All mail extension capability types *)

     

       
15
       
 
       
  type t =

     

       
16
       
+
       
    | Mail            (** Mail capability *)

     

       
17
       
+
       
    | Submission      (** Submission capability *)

     

       
18
       
+
       
    | VacationResponse (** Vacation response capability *)

     

       
19
       
+
       
    | Extension of string (** Custom extension *)

     

       
20
       
 
       


     

       
21
       
 
       
  (** Convert capability to URI string *)

     

       
22
       
 
       
  val to_string : t -> string