···

       
1
       
1
       
 
       
(** Demo of message flags and mailbox attributes functionality *)

     

       
2
       
2
       
 
       


     

       
3
       
3
       
-
       
open Jmap

     

       
4
       
3
       
 
       
open Jmap_mail.Types

     

       
5
       
4
       
 
       


     

       
6
       
5
       
 
       
(** Demonstrate flag color functionality *)

     
···

       
90
       
89
       
 
       
let () =

     

       
91
       
90
       
 
       
  demo_flag_colors ();

     

       
92
       
91
       
 
       
  demo_message_keywords ();

     

       
93
       
93
       
-
       
  demo_mailbox_attributes ()
     

       
92
       
92
       
+
       
  demo_mailbox_attributes ()

     

···

       
1709
       
1709
       
 
       
            inv.name = "Email/set") response.method_responses in

     

       
1710
       
1710
       
 
       
          let args = method_response.arguments in

     

       
1711
       
1711
       
 
       
          match Ezjsonm.find_opt args ["updated"] with

     

       
1712
       
1712
       
-
       
          | Some (`A ids) -> Ok ()

     

       
1712
       
1712
       
+
       
          | Some (`A _ids) -> Ok ()

     

       
1713
       
1713
       
 
       
          | _ -> 

     

       
1714
       
1714
       
 
       
              match Ezjsonm.find_opt args ["notUpdated"] with

     

       
1715
       
1715
       
-
       
              | Some (`O errors) -> 

     

       
1715
       
1715
       
+
       
              | Some (`O _errors) -> 

     

       
1716
       
1716
       
 
       
                  Error (Parse_error ("Failed to update email: " ^ email_id))

     

       
1717
       
1717
       
 
       
              | _ -> Error (Parse_error "Unexpected response format")

     

       
1718
       
1718
       
 
       
        with

     
···

       
1773
       
1773
       
 
       
            inv.name = "Email/set") response.method_responses in

     

       
1774
       
1774
       
 
       
          let args = method_response.arguments in

     

       
1775
       
1775
       
 
       
          match Ezjsonm.find_opt args ["updated"] with

     

       
1776
       
1776
       
-
       
          | Some (`A ids) -> Ok ()

     

       
1776
       
1776
       
+
       
          | Some (`A _ids) -> Ok ()

     

       
1777
       
1777
       
 
       
          | _ -> 

     

       
1778
       
1778
       
 
       
              match Ezjsonm.find_opt args ["notUpdated"] with

     

       
1779
       
1779
       
-
       
              | Some (`O errors) -> 

     

       
1779
       
1779
       
+
       
              | Some (`O _errors) -> 

     

       
1780
       
1780
       
 
       
                  Error (Parse_error ("Failed to update email: " ^ email_id))

     

       
1781
       
1781
       
 
       
              | _ -> Error (Parse_error "Unexpected response format")

     

       
1782
       
1782
       
 
       
        with