type entry = {envelope : string;mail : Mail.t;
}val parse : string -> entry listval to_string : entry list -> stringval envelope : sender:string -> Mail.date -> stringval sender : entry -> stringval escape : string -> stringval unescape : string -> string