type field = {name : string;raw : string;
}type t = {fields : field list;body : string;
}val to_string : t -> stringval get : t -> string -> string optionval get_all : t -> string -> string listval set : string -> string -> t -> tval remove : string -> t -> tval make : (string * string) list -> string -> tval unfold : string -> stringval lf : string -> stringtype address = {display : string;mailbox : string;
}val address : string -> address optionval addresses : string -> address listval address_to_string : address -> stringval unquote : string -> stringval date : string -> date optionval date_to_string : date -> stringval seconds : date -> floatval message_ids : string -> string list