IFDEF OCAMLNET4 THEN
module Mimestring = Netmime_string
module Http_client = Nethttp_client
module Http_fs = Nethttp_fs

let get_content_type = Netmime_header.get_content_type
let ro_mime_body s = Netmime.wrap_mime_body_ro (Netmime.memory_mime_body s)

ELSE

let get_content_type hd = hd # content_type
let ro_mime_body s = new Netmime.memory_mime_body ~ro:true s

ENDIF