[popfile-commit] engine/Proxy POP3.pm,1.55.2.1,1.55.2.2

[<ssc...@us...>]

Update of /cvsroot/popfile/engine/Proxy
In directory sc8-pr-cvs1:/tmp/cvs-serv2995

Modified Files:
      Tag: b0/19/0
	POP3.pm 
Log Message:
fix calling of "flush_extra" to fix:
[ 773093 ] 19.1 toptoo bug

Index: POP3.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Proxy/POP3.pm,v
retrieving revision 1.55.2.1
retrieving revision 1.55.2.2
diff -C2 -d -r1.55.2.1 -r1.55.2.2
*** POP3.pm	15 Jul 2003 17:50:36 -0000	1.55.2.1
--- POP3.pm	21 Jul 2003 08:41:08 -0000	1.55.2.2
***************
*** 142,146 ****
          # and mail accounts
  	my $user_command = 'USER (.+)(:(\d+))?' . $self->config_( 'separator' ) . '(.+)';
!         if ( $command =~ /$user_command/i ) { 
              if ( $1 ne '' )  {
                  if ( $mail = $self->verify_connected_( $mail, $client, $1, $3 || 110 ) )  {
--- 142,146 ----
          # and mail accounts
  	my $user_command = 'USER (.+)(:(\d+))?' . $self->config_( 'separator' ) . '(.+)';
!         if ( $command =~ /$user_command/i ) {
              if ( $1 ne '' )  {
                  if ( $mail = $self->verify_connected_( $mail, $client, $1, $3 || 110 ) )  {
***************
*** 274,278 ****
  
                          my $class = $self->{classifier__}->classify_and_modify( $mail, undef, $download_count, 0, 1, '', 0 );
!                         $self->flush_extra( $mail, $client, 0 );
  
                          if ( $self->echo_response_($mail, $client, $command ) ) {
--- 274,278 ----
  
                          my $class = $self->{classifier__}->classify_and_modify( $mail, undef, $download_count, 0, 1, '', 0 );
!                         $self->flush_extra_( $mail, $client, 0 );
  
                          if ( $self->echo_response_($mail, $client, $command ) ) {