[popfile-commit] engine/Services IMAP.pm,1.21,1.22

[Manni H. <man...@us...>]

Update of /cvsroot/popfile/engine/Services
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7048/Services

Modified Files:
	IMAP.pm 
Log Message:
Clear stored message hashes before we scan each folder. This fixes a bug that would rear its ugly head when an exception was thrown while scanning the folders. The stored hashes weren't cleared in that case.

Index: IMAP.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Services/IMAP.pm,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -d -r1.21 -r1.22
*** IMAP.pm	3 Feb 2006 10:41:46 -0000	1.21
--- IMAP.pm	10 Feb 2006 15:17:28 -0000	1.22
***************
*** 259,264 ****
                  $self->connect_folders__();
  
!                 # Now do the real job
  
                  foreach my $folder ( keys %{$self->{folders__}} ) {
  
--- 259,266 ----
                  $self->connect_folders__();
  
!                 # Reset the hash containing the hash values we have just seen.
!                 $self->{hash_values__} = ();
  
+                 # Now do the real job
                  foreach my $folder ( keys %{$self->{folders__}} ) {
  
***************
*** 269,278 ****
                      }
                  }
- 
-                 # Reset the hash containing the hash values we have just seen.
- 
-                 $self->{hash_values__} = ();
              }
- 
          };
  
--- 271,275 ----