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