Ocamlnet 4 Reference Manual : Netascii_armor

`sig
type armor_type = [ `Base64 | `OpenPGP | `Plain ]
type armored_message =
[ `Base64 of Netmime.mime_body
| `OpenPGP of Netmime.mime_header * Netmime.mime_body * int
| `Plain of Netmime.mime_body ]
type armored_message_ro =
[ `Base64 of Netmime.mime_body_ro
| `OpenPGP of Netmime.mime_header_ro * Netmime.mime_body_ro * int
| `Plain of Netmime.mime_body_ro ]
type armor_spec = (string * Netascii_armor.armor_type) list
val parse :
Netascii_armor.armor_spec ->
Netchannels.in_obj_channel ->
(string * Netascii_armor.armored_message_ro) list
end`