val parameters : string -> string * (string * string) listval content_type : ?digest:bool -> Mail.t -> string * (string * string) listval quoted_printable_decode : string -> stringval quoted_printable_encode : string -> stringval decoded : Mail.t -> stringval to_utf8 : string -> string -> stringval decode_words : string -> stringval encode_words : string -> stringtype leaf = {mime : string;filename : string option;data : string;part : Mail.t;
}val text_part : string -> Mail.tval attachment : filename:string -> string -> Mail.tval type_of_filename : string -> stringval multipart :
boundary:string ->
Mail.t list ->
(string * string) list * string