Module MrMime_resent.Encoder (.ml)

module Encoder: sig .. end

val w_lst : (('a -> 'b) -> 'a -> 'b) ->
       ('c -> ('a -> 'b) -> 'a -> 'b) -> 'c list -> ('a -> 'b) -> 'a -> 'b

val w_crlf : (Encoder.t ->
        ([> `Partial of Bytes.t * int * int * (int -> 'a) ] as 'a) Encoder.partial) ->
       Encoder.t -> 'a Encoder.partial

val w_field : [< `ResentBcc of MrMime_address.address list
        | `ResentCc of MrMime_address.address list
        | `ResentDate of MrMime_date.date
        | `ResentFrom of MrMime_address.mailbox list
        | `ResentMessageID of MrMime_msgID.msg_id
        | `ResentReplyTo of MrMime_address.address list
        | `ResentSender of MrMime_address.mailbox
        | `ResentTo of MrMime_address.address list ] ->
       (Encoder.t ->
        ([> `Partial of Bytes.t * int * int * (int -> 'a) ] as 'a) Encoder.partial
        Encoder.partial Encoder.partial Encoder.partial) ->
       Encoder.t ->
       'a Encoder.partial Encoder.partial Encoder.partial Encoder.partial

val w_resent : MrMime_resent.resent ->
       (Encoder.t ->
        ([> `Partial of Bytes.t * int * int * (int -> 'a) ] as 'a) Encoder.partial
        Encoder.partial Encoder.partial Encoder.partial) ->
       Encoder.t ->
       'a Encoder.partial Encoder.partial Encoder.partial Encoder.partial