Counting lines in an email excluding quoted lines

How would I adapt the following to not count quoted lines in the
mail body?

# leave `B ??' out to measure the entire message
:0
* 1^1 B ?? > 1
{ }
size = $=


Thanks

Eric Smith
____________________________________________________________
procmail mailing list   Procmail homepage: http://www.procmail.org/
procmail(_at_)lists(_dot_)RWTH-Aachen(_dot_)de
http://mailman.rwth-aachen.de/mailman/listinfo/procmail