Mailing List Archive

Author: felicity
Date: Mon Feb 23 15:07:51 2004
New Revision: 6838

Modified:
incubator/spamassassin/trunk/lib/Mail/SpamAssassin/PerMsgStatus.pm
Log:
bug 3074: when rewriting headers, the code assumed 'name:<spaces>something' which isn't always going to happen as 'name:<tab>something' is valid in a message. fixed the RE to account for this.

Modified: incubator/spamassassin/trunk/lib/Mail/SpamAssassin/PerMsgStatus.pm
==============================================================================
--- incubator/spamassassin/trunk/lib/Mail/SpamAssassin/PerMsgStatus.pm (original)
+++ incubator/spamassassin/trunk/lib/Mail/SpamAssassin/PerMsgStatus.pm Mon Feb 23 15:07:51 2004
@@ -755,7 +755,7 @@
my ($self) = @_;

# put the pristine headers into an array
- my(@pristine_headers) = $self->{msg}->get_pristine_header() =~ /^([^:]+:[ ]+(?:.*\n(?:\s+\S.*\n)*))/mig;
+ my(@pristine_headers) = $self->{msg}->get_pristine_header() =~ /^([^:]+:\s*(?:.*\n(?:\s+\S.*\n)*))/mig;
my $addition = 'headers_ham';

if($self->{is_spam}) {