Module Email_message__.Email_simple

module Mimetype : sig ... end

type attachment_name = string

module Attachment : sig ... end

module Content : sig ... end

type t = Email_message.Email.t

include sig ... end

val sexp_of_t : t ‑> Sexplib.Sexp.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 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 ] Async.Deferred.t) ‑> t Async.Deferred.t

val mapi_file_attachments : t ‑> f:(int ‑> Attachment.t ‑> [ `Keep | `Replace of t ] Async.Deferred.t) ‑> t Async.Deferred.t

module Expert : sig ... end

module Stable : sig ... end