Update of /cvsroot/popfile/engine/Classifier
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26716/Classifier
Modified Files:
MailParse.pm
Log Message:
Change font tags for styles.
Index: MailParse.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/MailParse.pm,v
retrieving revision 1.224
retrieving revision 1.225
diff -C2 -d -r1.224 -r1.225
*** MailParse.pm 20 Feb 2006 02:11:14 -0000 1.224
--- MailParse.pm 20 Feb 2006 09:16:34 -0000 1.225
***************
*** 471,475 ****
$literal =~ s/>/>/g;
my $color = $self->get_color__($mword);
! my $to = "<b><font color=\"$color\"><a title=\"$mword\">$literal</a></font></b>";
$self->{ut__} .= $to . ' ';
}
--- 471,475 ----
$literal =~ s/>/>/g;
my $color = $self->get_color__($mword);
! my $to = "<b style=\"color:$color\"><a title=\"$mword\">$literal</a></b>";
$self->{ut__} .= $to . ' ';
}
***************
*** 515,523 ****
if ( $encoded == 0 ) {
$after = '&' if ( $after eq '>' );
! if ( !( $self->{ut__} =~ s/($before)\Q$word\E($after)/$1<b><font color=\"$color\">$word<\/font><\/b>$2/ ) ) {
print "Could not find $word for colorization\n" if ( $self->{debug__} );
}
} else {
! $self->{ut__} .= "<font color=\"$color\">$word<\/font> ";
}
}
--- 515,523 ----
if ( $encoded == 0 ) {
$after = '&' if ( $after eq '>' );
! if ( !( $self->{ut__} =~ s/($before)\Q$word\E($after)/$1<b style=\"color:$color\">$word<\/b>$2/ ) ) {
print "Could not find $word for colorization\n" if ( $self->{debug__} );
}
} else {
! $self->{ut__} .= "<span style=\"color:$color\">$word<\/span> ";
}
}
***************
*** 2014,2018 ****
if ( $self->{color__} ne '' ) {
my $color = $self->get_color__("header:$header" );
! $self->{ut__} = "<b><font color=\"$color\">$header</font></b>: $fix_argument\015\012";
}
} else {
--- 2014,2018 ----
if ( $self->{color__} ne '' ) {
my $color = $self->get_color__("header:$header" );
! $self->{ut__} = "<b style=\"color:$color\">$header</b>: $fix_argument\015\012";
}
} else {
|
