type attachment_name
= string
module Content : sig ... end
type t
= Email_message.Email.t
val create : ?from:Email_address.t -> to_:Email_address.t list -> ?cc:Email_address.t list -> ?reply_to:Email_address.t list -> subject:string -> ?id:string -> ?in_reply_to:string -> ?date:Core.Time.t -> ?auto_generated:unit -> ?extra_headers:(Email_message__.Headers.Name.t * Email_message__.Headers.Value.t) list -> ?attachments:(attachment_name * Content.t) list -> Content.t -> t
val from : t -> Email_address.t option
val to_ : t -> Email_address.t list option
val cc : t -> Email_address.t list option
val subject : t -> string option
val id : t -> string option
val extract_body : ?content_type:Mimetype.t -> t -> string option
val all_attachments : t -> Attachment.t list
val find_attachment : t -> attachment_name -> Attachment.t option
val all_related_parts : t -> (attachment_name * Content.t) list
val find_related : t -> attachment_name -> Content.t option
val inline_parts : t -> Content.t list
val map_file_attachments : t -> f:(Attachment.t -> [ `Keep | `Replace of t ]) -> t