`sig
type local_part = string
type domain = string
type addr_spec = Netaddress.local_part * Netaddress.domain option
class mailbox :
?name:string ->
string list ->
Netaddress.addr_spec ->
object
method name : string
method route : string list
method spec : Netaddress.addr_spec
end
class group :
string ->
Netaddress.mailbox list ->
object
method mailboxes : Netaddress.mailbox list
method name : string
end
type t = [ `Group of Netaddress.group | `Mailbox of Netaddress.mailbox ]
exception Parse_error of int * string
val parse : string -> Netaddress.t list
end`