[popfile-commit] engine/Services IMAP.pm,1.9.4.1,1.9.4.2

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

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

Modified Files:
      Tag: b0_22_2
	IMAP.pm 
Log Message:
Backport two minor changes to the 0.22 tree:
- purge stored message hashes before doing service 
- add cvs revision keyword to simplify revision tracking

Index: IMAP.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Services/IMAP.pm,v
retrieving revision 1.9.4.1
retrieving revision 1.9.4.2
diff -C2 -d -r1.9.4.1 -r1.9.4.2
*** IMAP.pm	6 Feb 2006 15:15:53 -0000	1.9.4.1
--- IMAP.pm	10 Feb 2006 15:31:20 -0000	1.9.4.2
***************
*** 10,13 ****
--- 10,15 ----
  # Copyright (c) 2001-2006 John Graham-Cumming
  #
+ #   $Revision$
+ #
  #   This file is part of POPFile
  #
***************
*** 272,277 ****
                  $self->connect_folders__();
  
!                 # Now do the real job
  
                  foreach my $folder ( keys %{$self->{folders__}} ) {
  
--- 274,282 ----
                  $self->connect_folders__();
  
!                 # Reset the hash containing the hash values we have seen the 
!                 # last time through service.
!                 $self->{hash_values__} = ();
  
+                 # Now do the real job
                  foreach my $folder ( keys %{$self->{folders__}} ) {
  
***************
*** 282,290 ****
                      }
                  }
- 
-                 # Reset the hash containing the hash values we have just seen.
-                 $self->{hash_values__} = ();
              }
- 
          };
          # if an exception occurred, we try to catch it here
--- 287,291 ----