=input is now written as raw data w/o any Mail::Audit reformatting

[PerlMail.git] / My-Audit.pm

diff --git a/My-Audit.pm b/My-Audit.pm
index 405f40e..c81515e 100644 (file)
--- a/My-Audit.pm
+++ b/My-Audit.pm
@@ -23,11 +23,6 @@ sub audit_init
 
 sub audit
 {
-       {
-               local $store_ignorenewmail=1;   # no reason now, just a paranoia
-               store "=input","btw";
-               }
-
        # TODO: <short-m@> storage?
 
        # never spawn new mail if FROM_MAILER
@@ -137,6 +132,7 @@ sub audit
        store "=4cerr","bell"        if headeris "From"     ,'<owner-4cinfo@atrey.karlin.mff.cuni.cz>';
        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 "=gsmperlcvs","silent" if headeris("From"     ,'<johan@intra.tektonica.com>')
                                        && $Audit->subject()=~/^'.*' has been updated!$/;
        # own webs