Fix situation when legal hotmail headers treated as fake ones

This commit is contained in:
Andrey A. Chernov 2002-03-03 10:19:28 +00:00
parent c5027b55e1
commit d03e331624
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=55472
2 changed files with 12 additions and 3 deletions

View File

@ -7,7 +7,7 @@
PORTNAME= Mail-SpamAssassin
PORTVERSION= 2.01
PORTREVISION= 7
PORTREVISION= 8
CATEGORIES= mail perl5
MASTER_SITES= ${MASTER_SITE_PERL_CPAN}
MASTER_SITE_SUBDIR= Mail

View File

@ -1,5 +1,14 @@
--- lib/Mail/SpamAssassin/EvalTests.pm.bak Fri Jan 25 07:36:02 2002
+++ lib/Mail/SpamAssassin/EvalTests.pm Tue Feb 26 19:17:43 2002
--- lib/Mail/SpamAssassin/EvalTests.pm.orig Fri Jan 25 07:36:02 2002
+++ lib/Mail/SpamAssassin/EvalTests.pm Sun Mar 3 13:02:37 2002
@@ -115,7 +115,7 @@
my $rcvd = $self->get ('Received');
$rcvd =~ s/\s+/ /gs; # just spaces, simplify the regexp
- my $ip = $self->get ('X-Originating-Ip');
+ my $ip = $self->get ('X-Originating-IP');
if ($ip =~ /\d+\.\d+\.\d+\.\d+/) { $ip = 1; } else { $ip = 0; }
# Hotmail formats its received headers like this:
@@ -688,10 +688,17 @@
sub check_for_faraway_charset_in_headers {