let release_parser stanza_parser fname p = match Format822_parser.doc_822_sign Format822_lexer.token_822 p.Format822.lexbuf with |Some st -> Some (stanza_parser fname st) |None -> None