Lines 768-774
Link Here
|
768 |
my $data = $self->{conf}->{headers_spam}->{$header}; |
768 |
my $data = $self->{conf}->{headers_spam}->{$header}; |
769 |
my $line = $self->_process_header($header,$data); |
769 |
my $line = $self->_process_header($header,$data); |
770 |
$line = $self->qp_encode_header($line); |
770 |
$line = $self->qp_encode_header($line); |
771 |
$newmsg .= "X-Spam-$header: $line\n" # add even if empty |
771 |
|
|
|
772 |
if ($header eq 'Report' && $self->{conf}->{header_report_multiline} ) { |
773 |
my @report = split (/\n/, $line); |
774 |
foreach (@report) { |
775 |
$newmsg .= "X-Spam-$header: $_\n"; |
776 |
} |
777 |
} else { |
778 |
$newmsg .= "X-Spam-$header: $line\n"; # add even if empty |
779 |
} |
780 |
|
772 |
} |
781 |
} |
773 |
|
782 |
|
774 |
if (defined $self->{conf}->{report_safe_copy_headers}) { |
783 |
if (defined $self->{conf}->{report_safe_copy_headers}) { |
Lines 948-956
Link Here
|
948 |
while (my ($header, $data) = each %{$self->{conf}->{$addition}}) { |
957 |
while (my ($header, $data) = each %{$self->{conf}->{$addition}}) { |
949 |
my $line = $self->_process_header($header,$data); |
958 |
my $line = $self->_process_header($header,$data); |
950 |
$line = $self->qp_encode_header($line); |
959 |
$line = $self->qp_encode_header($line); |
951 |
$new_hdrs_pre .= "X-Spam-$header: $line\n"; |
|
|
952 |
} |
953 |
|
960 |
|
|
|
961 |
if ($header eq 'Report' && $self->{conf}->{header_report_multiline} ) { |
962 |
my @report = split (/\n/, $line); |
963 |
foreach (@report) { |
964 |
$new_hdrs_pre .= "X-Spam-$header: $_\n"; |
965 |
} |
966 |
} else { |
967 |
$new_hdrs_pre .= "X-Spam-$header: $line\n"; # add even if empty |
968 |
} |
969 |
|
970 |
} |
954 |
return $new_hdrs_pre.$new_hdrs_post.$separator. |
971 |
return $new_hdrs_pre.$new_hdrs_post.$separator. |
955 |
$self->{msg}->get_pristine_body(); |
972 |
$self->{msg}->get_pristine_body(); |
956 |
} |
973 |
} |