type phrase_or_message_id = [ | `Phrase of Rfc5322.phrase| `MessageID of Rfc822.nonsense Rfc822.msg_id ]type trace =
Rfc5322.mailbox option
* ([ `Addr of Rfc5322.mailbox
| `Domain of Rfc5322.domain
| `Word of Rfc822.word ]
list
* Rfc5322.date option)
listtype 'a t = | Date : Rfc5322.date t| Mailboxes : Rfc5322.mailbox list t| Mailbox : Rfc5322.mailbox t| Addresses : Rfc5322.address list t| MessageID : Rfc822.nonsense Rfc822.msg_id t| Phrase_or_message_id : phrase_or_message_id list t| Unstructured : Rfc5322.unstructured t| Phrases : Rfc5322.phrase list t| Trace : trace ttype binding = | Field : Field_name.t * 'a t * 'a * Location.t -> binding| Lines : (string * Location.t) list * Location.t -> bindingval of_string : string -> (value, Rresult.R.msg) result