Use <A HREF="sa-warpper.pl">this script</A>.
<P>
In the aliases file put entry like this:<BR>
<CODE>spam: spam@spam.spam<BR>
nospam: nospam@ham.ham
</CODE>
<P>

Then in transport file specify a transport for these:<BR>
<CODE>spam.spam       sa-spam:<BR>
ham.ham         sa-ham:
</CODE>

Then in the master.cf make the following addition (this will feed the 
coming mail incoming mail as input to the sa-wrapper.pl )<BR>
<CODE>
sa-spam unix    -       n       n       -       -       pipe 
user=mail:mail argv=/usr/local/bin/sa-wrapper.pl spam ${sender}
</CODE>
<P>
<CODE>
sa-ham  unix    -       n       n       -       -       pipe 
user=mail:mail argv=/usr/local/bin/sa-wrapper.pl ham  ${sender}
</CODE>
<P>
Then for mutt:<BR>
<CODE>
macro index S ":set autoedit=no fast_reply=yes editor='/bin/true'\n<forward-message>spam@[MYNETWORK]\ryd :set autoedit=yes fast_reply=no editor='/usr/bin/vi'\nq"
</CODE>
<P>
<CODE>
macro index H ":set autoedit=no fast_reply=yes editor='/bin/true'\n<forward-message>ham@[MYNETWORK]\ryd :set autoedit=yes fast_reply=no editor='/usr/bin/vi'\nq"
</CODE>