http://issues.apache.org/SpamAssassin/show_bug.cgi?id=5227





------- Additional Comments From [EMAIL PROTECTED]  2006-12-15 09:25 -------
Somehow I managed to get this working on my own.  Not sure how good this is, I'm
not a perl dev.

Change:
type => $Mail::SpamAssassin::Conf::CONF_TYPE_STRING
to -->
type => $Mail::SpamAssassin::Conf::CONF_TYPE_ADDRLIST

add this sub:
sub _helo_is_in_list {
  my ($self, $list, $pms, $helo) = @_;
  $helo = lc $helo;
  foreach my $regexp (values %{$list}) {
    if ($helo =~ qr/$regexp/i) {
      dbg("HeloAsMyself: helo $helo matches regexp: $regexp");
      return 1;
    }
  }
  return 0;
}

Add this to check_for_helo_as_myself after my $ip = $pms->

return 1 if $self->_helo_is_in_list($pms->{conf}->{helo_my_names}, $pms, $helo);

Then a bunch of code can be removed or commented, it seems to be working as
expected now.




------- You are receiving this mail because: -------
You are the assignee for the bug, or are watching the assignee.

Reply via email to