BSMTP writing
val write : ?skip_prelude_and_prologue:bool ‑> ?log:Mail_log.t ‑> ?flows:Mail_log.Flows.t ‑> ?component:Mail_log.Component.t ‑> Async.Writer.t ‑> Types.Envelope.t Async.Pipe.Reader.t ‑> unit Async.Deferred.Or_error.t