let pp_flag fmt = function   | Passed  -> pp fmt "Passed"   | Replied -> pp fmt "Replied"   | Seen    -> pp fmt "Seen"   | Trashed -> pp fmt "Trashed"   | Draft   -> pp fmt "Draft"   | Flagged -> pp fmt "Flagged"