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 ----
|
