Fixed (suppressed) bell if $store_ignore
authorshort <>
Mon, 7 Oct 2002 21:29:25 +0000 (21:29 +0000)
committershort <>
Mon, 7 Oct 2002 21:29:25 +0000 (21:29 +0000)
perlmail-accept

index e0b6dca..1954c99 100755 (executable)
@@ -530,12 +530,13 @@ my($folder,$profile,%args)=@_;
                                        map({ cut($_); } $folder,address_show(unmime($Audit->from())),unmime($Audit->subject())),
                                        )
                        if $do{"syslog"};
-       $DoBell++ if $do{"bell"};
        $folder=~s/;.*$//s;
        $folder="$Mail/".$' if $folder=~/^=/;
-       write_message($folder) if !$store_ignore;
-       smssend_tryall $store_ignorenewmail,$do{"sms"},%args if $do{"sms"};
        push @AuditStored,$folder if $do{"did"};
+       return if $store_ignore;
+       $DoBell++ if $do{"bell"};
+       write_message($folder);
+       smssend_tryall $store_ignorenewmail,$do{"sms"},%args if $do{"sms"};
 }
 
 our $did_last=0;