From 82dcebb23cb33f306d1bb8c5f5a0764e2937ac2e Mon Sep 17 00:00:00 2001
From: Nick Bebout <nb@fedoraproject.org>
Date: Sat, 12 Mar 2011 02:44:06 +0000
Subject: [PATCH] 1.103

---
 ChangeLog |  8 ++++++--
 README    |  4 ++--
 VERSION   |  2 +-
 imapsync  | 20 +++++++++-----------
 4 files changed, 18 insertions(+), 16 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 4d31c33..3ca9cbd 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,15 +1,19 @@
 
 RCS file: RCS/imapsync,v
 Working file: imapsync
-head: 1.102
+head: 1.103
 branch:
 locks: strict
 access list:
 symbolic names:
 keyword substitution: kv
-total revisions: 102;	selected revisions: 102
+total revisions: 103;	selected revisions: 103
 description:
 ----------------------------
+revision 1.103
+date: 2004/10/19 04:15:27;  author: gilles;  state: Exp;  lines: +9 -11
+Removed search("ALL") from foldersizes code
+----------------------------
 revision 1.102
 date: 2004/10/15 14:41:25;  author: gilles;  state: Exp;  lines: +36 -21
 Add use of fetch_hash() in foldersizes counting.
diff --git a/README b/README
index bec2641..5e1627b 100644
--- a/README
+++ b/README
@@ -2,7 +2,7 @@ NAME
     imapsync - IMAP synchronization, copy or migration tool. Synchronize
     mailboxes between two imap servers. Good at IMAP migration.
 
-    $Revision: 1.102 $
+    $Revision: 1.103 $
 
 INSTALL
      imapsync works fine under any Unix OS.
@@ -238,5 +238,5 @@ AUTHOR
     teaching free open and gratis softwares. Don't hesitate to pay him for
     that services.
 
-    $Id: imapsync,v 1.102 2004/10/15 14:41:25 gilles Exp $
+    $Id: imapsync,v 1.103 2004/10/19 04:15:27 gilles Exp $
 
diff --git a/VERSION b/VERSION
index 5d9aad8..d4b6f59 100644
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-1.102
+1.103
diff --git a/imapsync b/imapsync
index 64c74e0..d89725f 100755
--- a/imapsync
+++ b/imapsync
@@ -6,7 +6,7 @@ imapsync - IMAP synchronization, copy or migration
 tool. Synchronize mailboxes between two imap servers. Good
 at IMAP migration.
 
-$Revision: 1.102 $
+$Revision: 1.103 $
 
 =head1 INSTALL
 
@@ -280,7 +280,7 @@ Gilles LAMIRAL earn his living writing, installing,
 configuring and teaching free open and gratis
 softwares. Don't hesitate to pay him for that services.
 
-$Id: imapsync,v 1.102 2004/10/15 14:41:25 gilles Exp $
+$Id: imapsync,v 1.103 2004/10/19 04:15:27 gilles Exp $
 
 =cut
 
@@ -322,7 +322,7 @@ my(
 use vars qw ($opt_G); # missing code for this will be option.
 
 
-$rcs = ' $Id: imapsync,v 1.102 2004/10/15 14:41:25 gilles Exp $ ';
+$rcs = ' $Id: imapsync,v 1.103 2004/10/19 04:15:27 gilles Exp $ ';
 $rcs =~ m/,v (\d+\.\d+)/;
 $VERSION = ($1) ? $1 : "UNKNOWN";
 
@@ -359,8 +359,8 @@ $error=0;
 
 my $banner = join("", 
 		  '$RCSfile: imapsync,v $ ',
-		  '$Revision: 1.102 $ ',
-		  '$Date: 2004/10/15 14:41:25 $ ',
+		  '$Revision: 1.103 $ ',
+		  '$Date: 2004/10/19 04:15:27 $ ',
 		  "\n",
 		  "Mail::IMAPClient version used here is ",
 		  $VERSION_IMAPClient, " auth md5 : $md5_supported",
@@ -564,16 +564,14 @@ if ($foldersizes) {
 		}
 		
 		if ($maxage) {
-			my @f_msgs = $maxage
-			  ? $from->since(time - 86400 * $maxage) 
-			    : $from->search("ALL");
-			my $smess2 = scalar(@f_msgs);
-			print "Messages in $f_fold: $smess2\n";
+			# The pb is fetch_hash() an only be applied on ALL messages
+			# 
+			my @f_msgs = $from->since(time - 86400 * $maxage);
+			my $smess = scalar(@f_msgs);
 			foreach my $m (@f_msgs) {
 				my $s = $from->size($m) 
 				  or warn "Could not find size of message $m: $@\n";
 				$stot += $s;
-				$smess++;
 				print ".";
 			}
 			print "\n";