Message (async_smtp.Async_smtp__.Mail

module Action : Core.Identifiable with type t = string

type 'a with_info

 = flows:Flows.t ‑> component:Component.t ‑> here:Core.Source_code_position.t ‑> ?⁠local_address:Async_smtp_types.Smtp_socket_address.t ‑> ?⁠remote_address:Async_smtp_types.Smtp_socket_address.t ‑> ?⁠email:[ `Fingerprint of Mail_fingerprint.t | `Email of Async_smtp_types.Email.t | `Envelope of Async_smtp_types.Smtp_envelope.t ] ‑> ?⁠message_size:int ‑> ?⁠rfc822_id:string ‑> ?⁠local_id:Async_smtp_types.Smtp_envelope.Id.t ‑> ?⁠sender:[ `Sender of Async_smtp_types.Smtp_envelope.Sender.t | `String of string ] ‑> ?⁠recipients:[ `Email of Async_smtp_types.Email_address.t | `String of string ] list ‑> ?⁠spool_id:string ‑> ?⁠dest:Async_smtp_types.Smtp_socket_address.t ‑> ?⁠command:Async_smtp.Smtp_command.t ‑> ?⁠reply:Async_smtp.Smtp_reply.t ‑> ?⁠session_marker:Session_marker.t ‑> ?⁠tags:(string * string) list ‑> 'a

type t = Async.Log.Message.t

include sig ... end

val sexp_of_t : t ‑> Base.Sexp.t

val create : (Action.t ‑> t) with_info

val debugf : (('a, unit, string, t) Core.format4 ‑> 'a) with_info

val of_error : (Core.Error.t ‑> t) with_info

val info : (unit ‑> t) with_info

val level : t ‑> Level.t

val time : t ‑> Core.Time.t

val flows : t ‑> Flows.t

Encoded as one tag 'flow' for each Flow id

val component : t ‑> Component.t

The originating component, encoded as tag 'component'. Use of with_flow_and_component will cause this tag to be rewritten.

val action : t ‑> Action.t

Alias for the message field.

val find_tag' : t ‑> tag:string ‑> f:(string ‑> 'a) ‑> 'a option

val find_tag : t ‑> tag:string ‑> string option

val tags : t ‑> (string * string) list

val rfc822_id : t ‑> string option

val local_id : t ‑> Async_smtp_types.Smtp_envelope.Id.t option

val spool_id : t ‑> string option

val dest : t ‑> Async_smtp_types.Smtp_socket_address.t option

val sender : t ‑> [ `Sender of Async_smtp_types.Smtp_envelope.Sender.t | `String of string ] option

val recipients : t ‑> [ `Email of Async_smtp_types.Email_address.t | `String of string ] list option

val email : t ‑> Mail_fingerprint.t option

val local_address : t ‑> Async_smtp_types.Smtp_socket_address.t option

val remote_address : t ‑> Async_smtp_types.Smtp_socket_address.t option

val command : t ‑> Async_smtp.Smtp_command.t option

val reply : t ‑> Async_smtp.Smtp_reply.t option

val session_marker : t ‑> Session_marker.t option