···

       
50
       
 
       
12. DONE Extend the fastmail-list to filter messages displays by email address of the

     

       
51
       
 
       
    sender. This may involve adding logic to parse email addresses; if so, add

     

       
52
       
 
       
    this logic into the Jmap_mail library.

     

       
53
       
-
       
13. Add a new feature to save messages matching specific criteria to a file for offline reading.

     

···

       
50
       
 
       
12. DONE Extend the fastmail-list to filter messages displays by email address of the

     

       
51
       
 
       
    sender. This may involve adding logic to parse email addresses; if so, add

     

       
52
       
 
       
    this logic into the Jmap_mail library.

     

       
0
       
 
       

     

···

       
1199
       
 
       
let mailbox_of_json json =

     

       
1200
       
 
       
  try

     

       
1201
       
 
       
    let open Ezjsonm in

     

       
1202
       
-
       
    Printf.printf "Parsing mailbox JSON\n";

     

       
1203
       
-
       
    

     

       
1204
       
 
       
    let id = get_string (find json ["id"]) in

     

       
1205
       
-
       
    Printf.printf "Got id: %s\n" id;

     

       
1206
       
-
       
    

     

       
1207
       
 
       
    let name = get_string (find json ["name"]) in

     

       
1208
       
-
       
    Printf.printf "Got name: %s\n" name;

     

       
1209
       
-
       
    

     

       
1210
       
 
       
    (* Handle parentId which can be null *)

     

       
1211
       
 
       
    let parent_id = 

     

       
1212
       
 
       
      match find_opt json ["parentId"] with

     
···

       
1215
       
 
       
      | None -> None

     

       
1216
       
 
       
      | _ -> None

     

       
1217
       
 
       
    in

     

       
1218
       
-
       
    Printf.printf "Got parent_id: %s\n" (match parent_id with Some p -> p | None -> "None");

     

       
1219
       
-
       
    

     

       
1220
       
 
       
    (* Handle role which might be null *)

     

       
1221
       
 
       
    let role = 

     

       
1222
       
 
       
      match find_opt json ["role"] with

     
···

       
1225
       
 
       
      | None -> None

     

       
1226
       
 
       
      | _ -> None

     

       
1227
       
 
       
    in

     

       
1228
       
-
       
    Printf.printf "Got role\n";

     

       
1229
       
-
       
    

     

       
1230
       
 
       
    let sort_order = get_int (find json ["sortOrder"]) in

     

       
1231
       
-
       
    Printf.printf "Got sort_order: %d\n" sort_order;

     

       
1232
       
-
       
    

     

       
1233
       
 
       
    let total_emails = get_int (find json ["totalEmails"]) in

     

       
1234
       
-
       
    Printf.printf "Got total_emails: %d\n" total_emails;

     

       
1235
       
-
       
    

     

       
1236
       
 
       
    let unread_emails = get_int (find json ["unreadEmails"]) in

     

       
1237
       
-
       
    Printf.printf "Got unread_emails: %d\n" unread_emails;

     

       
1238
       
-
       
    

     

       
1239
       
 
       
    let total_threads = get_int (find json ["totalThreads"]) in

     

       
1240
       
-
       
    Printf.printf "Got total_threads: %d\n" total_threads;

     

       
1241
       
-
       
    

     

       
1242
       
 
       
    let unread_threads = get_int (find json ["unreadThreads"]) in

     

       
1243
       
-
       
    Printf.printf "Got unread_threads: %d\n" unread_threads;

     

       
1244
       
-
       
    

     

       
1245
       
 
       
    let is_subscribed = get_bool (find json ["isSubscribed"]) in

     

       
1246
       
-
       
    Printf.printf "Got is_subscribed: %b\n" is_subscribed;

     

       
1247
       
-
       
    

     

       
1248
       
 
       
    let rights_json = find json ["myRights"] in

     

       
1249
       
-
       
    Printf.printf "Got rights_json\n";

     

       
1250
       
-
       
    

     

       
1251
       
 
       
    let my_rights = {

     

       
1252
       
 
       
      Types.may_read_items = get_bool (find rights_json ["mayReadItems"]);

     

       
1253
       
 
       
      may_add_items = get_bool (find rights_json ["mayAddItems"]);

     
···

       
1259
       
 
       
      may_delete = get_bool (find rights_json ["mayDelete"]);

     

       
1260
       
 
       
      may_submit = get_bool (find rights_json ["maySubmit"]);

     

       
1261
       
 
       
    } in

     

       
1262
       
-
       
    Printf.printf "Constructed my_rights\n";

     

       
1263
       
-
       
    

     

       
1264
       
 
       
    let result = {

     

       
1265
       
 
       
      Types.id;

     

       
1266
       
 
       
      name;

     
···

       
1274
       
 
       
      is_subscribed;

     

       
1275
       
 
       
      my_rights;

     

       
1276
       
 
       
    } in

     

       
1277
       
-
       
    Printf.printf "Constructed mailbox result\n";

     

       
1278
       
-
       
    

     

       
1279
       
 
       
    Ok (result)

     

       
1280
       
 
       
  with

     

       
1281
       
-
       
  | Not_found as e -> 

     

       
1282
       
-
       
      Printf.printf "Not_found error: %s\n" (Printexc.to_string e);

     

       
1283
       
-
       
      Printexc.print_backtrace stdout;

     

       
1284
       
 
       
      Error (Parse_error "Required field not found in mailbox object")

     

       
1285
       
 
       
  | Invalid_argument msg -> 

     

       
1286
       
-
       
      Printf.printf "Invalid_argument error: %s\n" msg;

     

       
1287
       
 
       
      Error (Parse_error msg)

     

       
1288
       
 
       
  | e -> 

     

       
1289
       
-
       
      Printf.printf "Unknown error: %s\n" (Printexc.to_string e);

     

       
1290
       
 
       
      Error (Parse_error (Printexc.to_string e))

     

       
1291
       
 
       


     

       
1292
       
 
       
(** Convert JSON email object to OCaml type *)

     

       
1293
       
 
       
let email_of_json json =

     

       
1294
       
 
       
  try

     

       
1295
       
 
       
    let open Ezjsonm in

     

       
1296
       
-
       
    Printf.printf "Parsing email JSON\n";

     

       
1297
       
 
       
    

     

       
1298
       
 
       
    let id = get_string (find json ["id"]) in

     

       
1299
       
-
       
    Printf.printf "Got email id: %s\n" id;

     

       
1300
       
-
       
    

     

       
1301
       
 
       
    let blob_id = get_string (find json ["blobId"]) in

     

       
1302
       
 
       
    let thread_id = get_string (find json ["threadId"]) in

     

       
1303
       
 
       
    

     
···

       
1406
       
 
       
    let has_attachment = parse_bool_opt "hasAttachment" in

     

       
1407
       
 
       
    let preview = parse_string_opt "preview" in

     

       
1408
       
 
       
    

     

       
1409
       
-
       
    (* Body parts parsing would go here - omitting for brevity *)

     

       
1410
       
-
       
    Printf.printf "Email parsed successfully\n";

     

       
1411
       
-
       
    

     

       
1412
       
 
       
    Ok ({

     

       
1413
       
 
       
      Types.id;

     

       
1414
       
 
       
      blob_id;

     
···

       
1437
       
 
       
      headers = None;

     

       
1438
       
 
       
    })

     

       
1439
       
 
       
  with

     

       
1440
       
-
       
  | Not_found as e -> 

     

       
1441
       
-
       
      Printf.printf "Email parse error - Not_found: %s\n" (Printexc.to_string e);

     

       
1442
       
-
       
      Printexc.print_backtrace stdout;

     

       
1443
       
 
       
      Error (Parse_error "Required field not found in email object")

     

       
1444
       
 
       
  | Invalid_argument msg -> 

     

       
1445
       
-
       
      Printf.printf "Email parse error - Invalid_argument: %s\n" msg;

     

       
1446
       
 
       
      Error (Parse_error msg)

     

       
1447
       
 
       
  | e -> 

     

       
1448
       
-
       
      Printf.printf "Email parse error - Unknown: %s\n" (Printexc.to_string e);

     

       
1449
       
 
       
      Error (Parse_error (Printexc.to_string e))

     

       
1450
       
 
       


     

       
1451
       
 
       
(** Login to a JMAP server and establish a connection

     

···

       
1199
       
 
       
let mailbox_of_json json =

     

       
1200
       
 
       
  try

     

       
1201
       
 
       
    let open Ezjsonm in

     

       
0
       
 
       

     

       
0
       
 
       

     

       
1202
       
 
       
    let id = get_string (find json ["id"]) in

     

       
0
       
 
       

     

       
0
       
 
       

     

       
1203
       
 
       
    let name = get_string (find json ["name"]) in

     

       
0
       
 
       

     

       
0
       
 
       

     

       
1204
       
 
       
    (* Handle parentId which can be null *)

     

       
1205
       
 
       
    let parent_id = 

     

       
1206
       
 
       
      match find_opt json ["parentId"] with

     
···

       
1209
       
 
       
      | None -> None

     

       
1210
       
 
       
      | _ -> None

     

       
1211
       
 
       
    in

     

       
0
       
 
       

     

       
0
       
 
       

     

       
1212
       
 
       
    (* Handle role which might be null *)

     

       
1213
       
 
       
    let role = 

     

       
1214
       
 
       
      match find_opt json ["role"] with

     
···

       
1217
       
 
       
      | None -> None

     

       
1218
       
 
       
      | _ -> None

     

       
1219
       
 
       
    in

     

       
0
       
 
       

     

       
0
       
 
       

     

       
1220
       
 
       
    let sort_order = get_int (find json ["sortOrder"]) in

     

       
0
       
 
       

     

       
0
       
 
       

     

       
1221
       
 
       
    let total_emails = get_int (find json ["totalEmails"]) in

     

       
0
       
 
       

     

       
0
       
 
       

     

       
1222
       
 
       
    let unread_emails = get_int (find json ["unreadEmails"]) in

     

       
0
       
 
       

     

       
0
       
 
       

     

       
1223
       
 
       
    let total_threads = get_int (find json ["totalThreads"]) in

     

       
0
       
 
       

     

       
0
       
 
       

     

       
1224
       
 
       
    let unread_threads = get_int (find json ["unreadThreads"]) in

     

       
0
       
 
       

     

       
0
       
 
       

     

       
1225
       
 
       
    let is_subscribed = get_bool (find json ["isSubscribed"]) in

     

       
0
       
 
       

     

       
0
       
 
       

     

       
1226
       
 
       
    let rights_json = find json ["myRights"] in

     

       
0
       
 
       

     

       
0
       
 
       

     

       
1227
       
 
       
    let my_rights = {

     

       
1228
       
 
       
      Types.may_read_items = get_bool (find rights_json ["mayReadItems"]);

     

       
1229
       
 
       
      may_add_items = get_bool (find rights_json ["mayAddItems"]);

     
···

       
1235
       
 
       
      may_delete = get_bool (find rights_json ["mayDelete"]);

     

       
1236
       
 
       
      may_submit = get_bool (find rights_json ["maySubmit"]);

     

       
1237
       
 
       
    } in

     

       
0
       
 
       

     

       
0
       
 
       

     

       
1238
       
 
       
    let result = {

     

       
1239
       
 
       
      Types.id;

     

       
1240
       
 
       
      name;

     
···

       
1248
       
 
       
      is_subscribed;

     

       
1249
       
 
       
      my_rights;

     

       
1250
       
 
       
    } in

     

       
0
       
 
       

     

       
0
       
 
       

     

       
1251
       
 
       
    Ok (result)

     

       
1252
       
 
       
  with

     

       
1253
       
+
       
  | Not_found -> 

     

       
0
       
 
       

     

       
0
       
 
       

     

       
1254
       
 
       
      Error (Parse_error "Required field not found in mailbox object")

     

       
1255
       
 
       
  | Invalid_argument msg -> 

     

       
0
       
 
       

     

       
1256
       
 
       
      Error (Parse_error msg)

     

       
1257
       
 
       
  | e -> 

     

       
0
       
 
       

     

       
1258
       
 
       
      Error (Parse_error (Printexc.to_string e))

     

       
1259
       
 
       


     

       
1260
       
 
       
(** Convert JSON email object to OCaml type *)

     

       
1261
       
 
       
let email_of_json json =

     

       
1262
       
 
       
  try

     

       
1263
       
 
       
    let open Ezjsonm in

     

       
0
       
 
       

     

       
1264
       
 
       
    

     

       
1265
       
 
       
    let id = get_string (find json ["id"]) in

     

       
0
       
 
       

     

       
0
       
 
       

     

       
1266
       
 
       
    let blob_id = get_string (find json ["blobId"]) in

     

       
1267
       
 
       
    let thread_id = get_string (find json ["threadId"]) in

     

       
1268
       
 
       
    

     
···

       
1371
       
 
       
    let has_attachment = parse_bool_opt "hasAttachment" in

     

       
1372
       
 
       
    let preview = parse_string_opt "preview" in

     

       
1373
       
 
       
    

     

       
1374
       
+
       
    (* TODO Body parts parsing would go here - omitting for brevity *)

     

       
0
       
 
       

     

       
0
       
 
       

     

       
1375
       
 
       
    Ok ({

     

       
1376
       
 
       
      Types.id;

     

       
1377
       
 
       
      blob_id;

     
···

       
1400
       
 
       
      headers = None;

     

       
1401
       
 
       
    })

     

       
1402
       
 
       
  with

     

       
1403
       
+
       
  | Not_found -> 

     

       
0
       
 
       

     

       
0
       
 
       

     

       
1404
       
 
       
      Error (Parse_error "Required field not found in email object")

     

       
1405
       
 
       
  | Invalid_argument msg -> 

     

       
0
       
 
       

     

       
1406
       
 
       
      Error (Parse_error msg)

     

       
1407
       
 
       
  | e -> 

     

       
0
       
 
       

     

       
1408
       
 
       
      Error (Parse_error (Printexc.to_string e))

     

       
1409
       
 
       


     

       
1410
       
 
       
(** Login to a JMAP server and establish a connection