fixed encr padding size, message flags on import

gregtatcam · Jan 28, 2015 · a959290 · a959290
1 parent 0074262
commit a959290
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/email_parse.ml b/email_parse.ml
@@ -137,6 +137,7 @@ let parse (message:Mailbox.Message.t) ~save_message ~save_attachment =
         add_boundary buffer ~boundary ~suffix:"\n" ;
         walk email boundary false map
       ) map elist >>= fun map ->
+      Buffer.add_string buffer "\n";
       add_boundary buffer ~boundary ~suffix:"--\n" ;
       return map
   in

diff --git a/imap_crypto.ml b/imap_crypto.ml
@@ -18,12 +18,10 @@ open Nocrypto
 let pad c_data padding =
   let len = Cstruct.len c_data in
   let m = Pervasives.(mod) len 32 in
-  (32-m,
   if m > 0 then
-    Cstruct.of_string (Bytes.cat (Cstruct.to_string c_data) (Bytes.sub (Cstruct.to_string padding) 0 (32-m)))
+    (32-m,Cstruct.of_string (Bytes.cat (Cstruct.to_string c_data) (Bytes.sub (Cstruct.to_string padding) 0 (32-m))))
   else
-    c_data
-  )
+    (0,c_data)
 
 let aes_encrypt ?(compress=false) data pub secrets =
   let open Nocrypto.Cipher_block in

diff --git a/imaplet_irmin_build.ml b/imaplet_irmin_build.ml
@@ -139,10 +139,11 @@ let mailbox_of_gmail_label message =
       | "Starred" -> (label,inferred,(Flags_Keyword "Starred") :: flags)
       | "Sent" -> (label,(Some "Sent Messages"),Flags_Answered :: flags)
       | "Trash" -> (label,(Some "Deleted Messages"),Flags_Deleted :: flags)
-      | "Unread" -> (label,inferred,Flags_Recent :: flags)
+      | "Unread" -> 
+        (label,inferred,Flags_Recent :: ((List.filter (fun f -> f <> Flags_Seen)) flags))
       | "Draft" -> (label,(Some "Drafts"),Flags_Draft :: flags)
       | label -> ((Some label),inferred, flags)
-    ) (None,None,[]) labels
+    ) (None,None,[Flags_Seen]) labels
     in
     match label with
     | None ->