Update of /cvsroot/popfile/engine/Proxy
In directory sc8-pr-cvs1:/tmp/cvs-serv29594/Proxy
Modified Files:
Proxy.pm
Log Message:
Fix bug where header encoding was not working properly; turn off coloring of pseudowords in the body of email
Index: Proxy.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Proxy/Proxy.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** Proxy.pm 7 May 2003 22:21:01 -0000 1.14
--- Proxy.pm 9 May 2003 00:33:42 -0000 1.15
***************
*** 339,348 ****
{
my ( $self, $mail, $client, $regexp, $verbose ) = @_;
!
$verbose = 0 if (!defined($verbose));
while ( <$mail> ) {
# Check for an abort
!
last if ( $self->{alive_} == 0 );
--- 339,348 ----
{
my ( $self, $mail, $client, $regexp, $verbose ) = @_;
!
$verbose = 0 if (!defined($verbose));
while ( <$mail> ) {
# Check for an abort
!
last if ( $self->{alive_} == 0 );
***************
*** 351,358 ****
} else {
# This creates log output
!
$self->tee_($client, $_);
}
!
last if ( $_ =~ $regexp );
}
--- 351,358 ----
} else {
# This creates log output
!
$self->tee_($client, $_);
}
!
last if ( $_ =~ $regexp );
}
***************
*** 373,377 ****
{
my ( $self, $mail, $client ) = @_;
!
# The termination has to be a single line with exactly a dot on it and nothing
# else other than line termination characters. This is vital so that we do
--- 373,377 ----
{
my ( $self, $mail, $client ) = @_;
!
# The termination has to be a single line with exactly a dot on it and nothing
# else other than line termination characters. This is vital so that we do
|
