anil.recoil.org / ocaml-jmap
This repository has no description
0
Fork 0

Configure Feed

Select the types of activity you want to include in your feed.

ocaml-jmap / lib / mail / mail_thread.ml
at c3b69a42d83acebf7d8cc09eb16174106c48c77c 625 B View raw
Anil Madhavapeddy reorg around a single Jmap module
be746bbd
1(*--------------------------------------------------------------------------- 2 Copyright (c) 2025 Anil Madhavapeddy. All rights reserved. 3 SPDX-License-Identifier: ISC 4 ---------------------------------------------------------------------------*) 5 6type t = { 7 id : Proto_id.t; 8 email_ids : Proto_id.t list; 9} 10 11let id t = t.id 12let email_ids t = t.email_ids 13 14let make id email_ids = { id; email_ids } 15 16let jsont = 17 let kind = "Thread" in 18 Jsont.Object.map ~kind make 19 |> Jsont.Object.mem "id" Proto_id.jsont ~enc:id 20 |> Jsont.Object.mem "emailIds" (Jsont.list Proto_id.jsont) ~enc:email_ids 21 |> Jsont.Object.finish