@alternates_host=(
"jabberwock.ucw.cz", # short@ucw.cz
"atrey.karlin.mff.cuni.cz", # short@atrey.karlin.mff.cuni.cz
- "k332.feld.cvut.cz", # k332.feld.cvut.cz
+ "k332.feld.cvut.cz", # short@k332.feld.cvut.cz
);
}
store "=spamo" if headeris "From",'<ghandchi@hotmail.com>';
store "=spamo" if headeris "From",'<newsletter@levnapc.cz>';
store "=spamo" if headeris "From",'<Tomas@dtpstudio.cz>';
+ store "=spamo" if headeris "From",'<BNcom@email.bn.com>';
{
# weak detection: files with text/html w/o text/plain are usually a spam
my @types_linear=map({ mime_type($_); } parts_linear());
store "=4c","sms" if headeris "List-Post",'<4cinfo@atrey.karlin.mff.cuni.cz>';
store "=slashdot","bell" if headeris "From" ,'<slashdot@slashdot.org>';
store "=freshmeat","bell" if headeris "From" ,'<noreply@freshmeat.net>';
+ store "=sourceforge","bell" if headeris "From" ,'<noreply@sourceforge.net>';
store "=gsmperlcvs","silent" if headeris("From" ,'<johan@intra.tektonica.com>')
&& $Audit->subject()=~/^'.*' has been updated!$/;
# own webs
# Remove "..." lines (is it used by anyone except me?)
s/^\Q...\E$/*/gm;
# quoting "> "
- s/^\s*[>][>\s]*.*$/*/gm;
+ s/^(?:\s*[[:upper:]]{0,3}>)+.*$/*/gm;
s/(?:^|\n)(?:\*\n+)+/\n*\n/gs;
# attributions
- s/^.*\b(?:wrote|writes):\s*$//gm;
+ s/^.*\b(?:wrote|writes|napsal jste):\s*$//gm;
my $body=$_;
return [$from,"($subject)$body"];