sig   val add_literal_domain :     string -> MrMime_address.literal_domain MrMime_parser.t -> unit end