[popfile-commit] engine/Proxy Proxy.pm,1.14,1.15

[<jgr...@us...>]

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