From d5d63dd20e3a0d2a68536f62ef52a9d150fb55bf Mon Sep 17 00:00:00 2001
From: "Andrey A. Chernov" <ache@FreeBSD.org>
Date: Tue, 26 Feb 2002 17:06:25 +0000
Subject: 1) Fix bug: check_for_faraway_charset_in_headers() does nothing 2)
 Add missing charsets into decode_mime_bit()

---
 .../files/patch-lib-Mail-SpamAssassin::EvalTests.pm | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 mail/p5-Mail-SpamAssassin/files/patch-lib-Mail-SpamAssassin::EvalTests.pm

(limited to 'mail/p5-Mail-SpamAssassin/files/patch-lib-Mail-SpamAssassin::EvalTests.pm')

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;
-- 
cgit v1.2.3