Денискины рассказы

# try to skip checks if already marked as spam
package Amavis::Custom;
use strict;
sub new {
  my($class,$conn,$msginfo) = @_;
  my($self) = bless {}, $class;
 
  for my $curr_head (@{$msginfo->orig_header}) {
    if ($curr_head =~ /^X-SpamTest-Status: spam/i) {
      for my $r (@{$msginfo->per_recip_data}) {
        $r->bypass_spam_checks(1);
        $r->bypass_banned_checks(1);
      }
    }
  }
  $self;
}