diff options
Diffstat (limited to '')
| -rw-r--r-- | mail/p5-Mail-SpamAssassin/files/patch-lib-Mail-SpamAssassin::EvalTests.pm | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/mail/p5-Mail-SpamAssassin/files/patch-lib-Mail-SpamAssassin::EvalTests.pm b/mail/p5-Mail-SpamAssassin/files/patch-lib-Mail-SpamAssassin::EvalTests.pm new file mode 100644 index 000000000000..c1307e54631d --- /dev/null +++ b/mail/p5-Mail-SpamAssassin/files/patch-lib-Mail-SpamAssassin::EvalTests.pm @@ -0,0 +1,21 @@ +--- 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 +@@ -688,10 +688,17 @@ + + sub check_for_faraway_charset_in_headers { + my ($self) = @_; ++ my $hdr; + + my @locales = $self->get_my_locales(); + for my $h (qw(From Subject)) { +- my $hdr = $self->get($h); ++# Can't use just get() because it un-mime header ++ my @hdrs = $self->{msg}->get_header ($h); ++ if ($#hdrs >= 0) { ++ $hdr = join (" ", @hdrs); ++ } else { ++ $hdr = ''; ++ } + while ($hdr =~ /=\?(.+?)\?.\?.*?\?=/g) { + Mail::SpamAssassin::Locales::is_charset_ok_for_locales($1, @locales) + or return 1; |