pm-jaempty.rc

hi,

I'm trying to use pm-jaempty.rc to filter out empty-bodied messages,
like so:

.procmailrc:
PMSRC=$HOME/Procmail
...
# Kill duplicates, empties, vcards, and useless attachments.
# Also sanitize the mail with clean subject lines &c.
INCLUDERC = $PMSRC/pm-jadup.rc
INCLUDERC = $PMSRC/pm-jamime-kill.rc
INCLUDERC = $PMSRC/pm-jasubject.rc
INCLUDERC = $PMSRC/pm-jaempty.rc
:0
* BODY_EMPTY ?? yes
"junk-duplicates"

The script is
# ............................................................ &init ...

dummy = "init: pm-jaempty.rc Reading variable definitions if needed"

:0
* !  WSPC ?? [ ]
{ INCLUDERC = $PMSRC/pm-javar.rc }

# ........................................................... &do-it ...

BODY_EMPTY = "no"

#   Every empty line or signarure start is a -1
#
#   Every non-empty line that has characters is +10
#
:0 B
*$  -1^1 ^$s*$|^--
*   10^1 ^.*[a-z]
{
    # no-op. We just counted the score value.
}

SCORE = $=

:0
*$ ${SCORE}^0
{
    BODY_EMPTY = "yes"
}

dummy = "subroutine: pm-jaempty.rc end."

# end of file pm-jaempty.rc


And the result is that every message matches and gets put into the
junk-duplicates folder. What am I doing wrong?

Thanks,
-- 
Jack Coates
Monkeynoodle: It's what's for dinner!

_______________________________________________
procmail mailing list
procmail(_at_)lists(_dot_)RWTH-Aachen(_dot_)DE
http://MailMan.RWTH-Aachen.DE/mailman/listinfo/procmail