MrMime_content.Decoder

sig
  val message :
    ([> `Content of string * Rfc5322.unstructured
      | `ContentDescription of Rfc5322.unstructured
      | `ContentEncoding of Rfc2045.mechanism
      | `ContentID of Rfc822.msg_id
      | `ContentType of Rfc2045.content
      | `MimeVersion of Rfc2045.version ]
     as 'a)
    list -> (MrMime_content.t * 'a list) MrMime_parser.t
  val part :
    ([> `Content of string * Rfc5322.unstructured
      | `ContentDescription of Rfc5322.unstructured
      | `ContentEncoding of Rfc2045.mechanism
      | `ContentID of Rfc822.msg_id
      | `ContentType of Rfc2045.content
      | `Skip of string
      | `Unsafe of string * Rfc5322.unstructured ]
     as 'a)
    list -> (MrMime_content.t * 'a list) MrMime_parser.t
end