Module MrMime_message

module MrMime_message: sig .. end

type field_message = Top.field_message

type field_part = Top.field_part

type ('a, 'b) message = ('a, 'b) Top.message =

`\|`	`Discrete of MrMime_content.t * field_message list * 'a`
`\|`	`Extension of MrMime_content.t * field_message list * 'b`
`\|`	`Multipart of MrMime_content.t * field_message list * (MrMime_content.t * field_part list * ('a, 'b) part option) list`
`\|`	`Message of MrMime_content.t * field_message list * MrMime_header.header * ('a, 'b) message`

type ('a, 'b) part = ('a, 'b) Top.part =

`\|`	`PDiscrete of 'a`
`\|`	`PExtension of 'b`
`\|`	`PMultipart of (MrMime_content.t * field_part list * ('a, 'b) part option) list`
`\|`	`PMessage of MrMime_header.header * ('a, 'b) message`

type encoding = ..

type encoding +=

`\|`	`Base64 of MrMime_base64.Decoder.result`

type encoding +=

`\|`	`QuotedPrintable of string`

type encoding +=

`\|`	`Raw of string`

type content = ..

type content +=

| Unit

module Decoder: sig .. end

module Extension: sig .. end

val of_string_raw : ?chunk:int ->
       string ->
       int ->
       int ->
       ((MrMime_header.header *
         (encoding, content) message) *
        int)
       option