include Servermodule Callbacks = Server_callbacksval start : config:Server_config.t ‑> log:Mail_log.t ‑> (module Server_callbacks.S) ‑> t Async.Deferred.Or_error.tval config : t ‑> Server_config.tval close : ?timeout:unit Async.Deferred.t ‑> t ‑> unit Async.Deferred.Or_error.tval read_bsmtp : ?log:Mail_log.t ‑> Async.Reader.t ‑> Types.Envelope.t Core.Or_error.t Async.Pipe.Reader.tval read_mbox : ?log:Mail_log.t ‑> Async.Reader.t ‑> Types.Envelope.t Core.Or_error.t Async.Pipe.Reader.tval ports : t ‑> int listmodule Config = Server_config