Module Email_message__.Email_simple.Content

type t = private Email_message.Email.t

include sig ... end

val sexp_of_t : t ‑> Base.Sexp.t

val of_email : Email_message.Email.t ‑> t

val create : content_type:Mimetype.t ‑> ?⁠encoding:Email_message.Octet_stream.Encoding.known ‑> ?⁠extra_headers:(Email_message__.Headers.Name.t * Email_message__.Headers.Value.t) list ‑> string ‑> t

val html : ?⁠encoding:Email_message.Octet_stream.Encoding.known ‑> ?⁠extra_headers:(Email_message__.Headers.Name.t * Email_message__.Headers.Value.t) list ‑> string ‑> t

val text : ?⁠encoding:Email_message.Octet_stream.Encoding.known ‑> ?⁠extra_headers:(Email_message__.Headers.Name.t * Email_message__.Headers.Value.t) list ‑> string ‑> t

val of_file : ?⁠content_type:Mimetype.t ‑> ?⁠encoding:Email_message.Octet_stream.Encoding.known ‑> ?⁠extra_headers:(Email_message__.Headers.Name.t * Email_message__.Headers.Value.t) list ‑> string ‑> t Async.Deferred.t

val alternatives : ?⁠extra_headers:(Email_message__.Headers.Name.t * Email_message__.Headers.Value.t) list ‑> t list ‑> t

val mixed : ?⁠extra_headers:(Email_message__.Headers.Name.t * Email_message__.Headers.Value.t) list ‑> t list ‑> t

val with_related : ?⁠extra_headers:(Email_message__.Headers.Name.t * Email_message__.Headers.Value.t) list ‑> resources:(attachment_name * t) list ‑> t ‑> t

val content_type : t ‑> Mimetype.t

val related_part_cid : t ‑> attachment_name option

val all_related_parts : t ‑> (attachment_name * t) list

val find_related : t ‑> attachment_name ‑> t option

val content : t ‑> Email_message.Octet_stream.t option

val parts : t ‑> t list option

val alternative_parts : t ‑> t list

val inline_parts : t ‑> t list

val to_file : t ‑> string ‑> unit Async.Deferred.Or_error.t