1 while $hdrs =~ s/\nX-Spam-[^\n]*?\n/\n/gs;

  $hdrs =~ s/^X-Spam-[[:alnum:]-]+: .*?\n//gm;

  my $tag = $self->{conf}->{subject_tag};

  while ( $tag =~ /(_HITS_|_REQD_)/g ) {

  my $tag = $self->{conf}->{tag_header_string};

       my $typeoftag = $1;

  $tag =  quotemeta($tag);

       $hdrs =~ s/^Subject: (\D*)\d\d\.\d\d/Subject: $1$typeoftag/m;

  $tag =~ s/_HITS_/\\d{2}\\.\\d{2}/g;

  } # Wow. Very Hackish.

  $tag =~ s/_REQD_/\\d{2}\\.\\d{2}/g;

  1 while $hdrs =~ s/^Subject: \Q${tag}\E /Subject: /gm;

  $hdrs =~ s/^Subject: ${tag} /Subject: /gm;

  $tag  =  '\(' . $tag . '\)';

  $hdrs =~ s/^(From: .*?)\t${tag}$/$1/gm;

  $hdrs =~ s/^(To: .*?)\t${tag}$/$1/gm;

  rewrite_subject                 1

  tag_header                      subject from

  $self->{rewrite_subject} = 1;

  $self->{tag_header} = ['Subject'];

  $self->{tag_header_string} = '*****SPAM*****';

=item rewrite_subject { 0 | 1 }        (default: 1)

=item tag_header { subject | from | to | none }    (default: subject)

By default, the subject lines of suspected spam will be tagged.  This can be

By default,  the subject lines of suspected spam will be tagged.  With this

disabled here.

space-separated list the tagging can be extended to other headers (From and

To) or disabled completely. The use of the old option C<rewrite_subject> is

deprecated.

    if (/^rewrite[-_]subject\s+(\d+)$/) {

    if (/^tag[-_]headers?\s+(.+)$/) {

      $self->{rewrite_subject} = $1+0; next;

      my @h = sort(split(/\s+/, $1));

      unshift(@h, '');

      for (my $i = 1; $i < scalar(@h); $i++) {

        if ($h[$i] eq 'none') {

          @h = ('none');

          last;

        }

        $h[$i] = ucfirst(lc($h[$i]));

        if (($h[$i] !~ /^(?:Subject|From|To)$/) or

            ($h[$i] eq $h[$i - 1])) {

          splice(@h, $i, 1);

          redo;

        }

      }

      shift(@h);

      if(@h) {

        $self->{tag_header} = [ @h ];

      } else {

        $self->{tag_header} = undef;

      }

      next;

    }

    if (/^rewrite[-_]subject\s+(\d+)$/) { # for backward compatibility

      dbg("config option rewrite_subject is deprecated; please use tag_header");

      my @h = defined($self->{tag_header}) ? @{$self->{tag_header}} : ();

      my $missing = 1;

      for (my $i = 0; $i < scalar(@h); $i++) {

        if ($h[$i] eq 'Subject') {

          $missing = 0;

          unless ($1) {

            splice(@h, $i, 1);

          }

          last;

        }

      }

      if ($1 and $missing) {

        push(@h, 'Subject');

      }

      if(@h) {

        $self->{tag_header} = [ @h ];

      } else {

        $self->{tag_header} = undef;

      }

      next;

    }

=item tag_header_string STRING ...       (default: *****SPAM*****)

Text added to the headers of mails that are considered spam.  It will be

applied to the C<Subject:>, C<From:> and/or C<To:> header,  according to

the C<tag_header> option.

The string _HITS_ in the tag  will be replace  with the calculated score

for this message. _REQD_ will be replaced with the threshold.

=cut

    if (/^tag[-_]headers?[-_]string\s+(.+?)\s*$/) {

      $self->{tag_header_string} = $1; next;

    }

    if (/^subject[-_]tag\s+(.+?)\s*$/) { # for backward compatibility.

      dbg("config option subject_tag is deprecated; please use tag_header_string");

      $self->{tag_header_string} = $1; next;

    }

=item rewrite_subject { 0 | 1 }        (default: 1)

This option is deprecated. Please use C<tag_header>.

=item Subject: header for spam mails

=item Subject:, From: and/or To: header for spam mails

The string C<*****SPAM*****> (changeable with C<subject_tag> config option) is

The string C<*****SPAM*****> (changeable with C<tag_header_string> config

prepended to the subject, unless the C<rewrite_subject 0> configuration option

option) is prepended to the subject and/or appended as a comment to the

is given.

from and/or to, depending on the config option C<tag_header>.

  # First, rewrite the subject line.

  # First, rewrite the headers.

  if ($self->{conf}->{rewrite_subject}) {

  if ($self->{conf}->{tag_header}) {

    $_ = $srcmsg->get_header ("Subject");

    my $tag = $self->{conf}->{tag_header_string};

    $_ ||= '';

    my $tag = $self->{conf}->{subject_tag};

    my $hit = sprintf ("%05.2f", $self->{hits});

    $tag =~ s/_HITS_/$hit/;

    $tag =~ s/_REQD_/$reqd/;

    $tag =~ s/_REQD_/$reqd/g;

    s/^(?:\Q${tag}\E |)/${tag} /g;

    foreach my $header (@{$self->{conf}->{tag_header}}) {

      $_ = $srcmsg->get_header($header) || '';

    $self->{msg}->replace_header ("Subject", $_);

      if ($header eq 'Subject') {

        s/^(?:$\Q{tag}\E |)/${tag} /;

      }

      elsif ($header =~ /From|To/) {

        s/(?:\t\Q(${tag})\E|)$/\t(${tag})/;

      }

      $self->{msg}->replace_header($header, $_);

    }

    $text =~ s/<\/?Q\b[^>]*>/"/gis;

    $text =~ s/<\/?Q\b[^>]*>/"/gis; #dummy"# because KWrite's highlighting sucks