From 8d3368026ea2f7431c5c0111bf9a2f2c482fbebd Mon Sep 17 00:00:00 2001
From: Nick Bebout <nb@fedoraproject.org>
Date: Sat, 12 Mar 2011 02:44:11 +0000
Subject: [PATCH] 1.111

---
 ChangeLog | 11 +++++++----
 README    |  4 ++--
 VERSION   |  2 +-
 imapsync  | 22 +++++++++-------------
 4 files changed, 19 insertions(+), 20 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 526bd0a..57dbf1d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,17 +1,20 @@
 
 RCS file: RCS/imapsync,v
 Working file: imapsync
-head: 1.110
+head: 1.111
 branch:
 locks: strict
-	gilles: 1.110
 access list:
 symbolic names:
 keyword substitution: kv
-total revisions: 110;	selected revisions: 110
+total revisions: 111;	selected revisions: 111
 description:
 ----------------------------
-revision 1.110	locked by: gilles;
+revision 1.111
+date: 2005/01/04 04:05:07;  author: gilles;  state: Exp;  lines: +9 -13
+Suppressed perl warnings
+----------------------------
+revision 1.110
 date: 2005/01/04 03:56:59;  author: gilles;  state: Exp;  lines: +92 -12
 Better performances
 ----------------------------
diff --git a/README b/README
index 5119848..bb0661a 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.110 $
+    $Revision: 1.111 $
 
 INSTALL
      imapsync works fine under any Unix OS.
@@ -239,5 +239,5 @@ AUTHOR
     teaching free open and gratis softwares. Don't hesitate to pay him for
     that services.
 
-    $Id: imapsync,v 1.110 2005/01/04 03:56:59 gilles Exp gilles $
+    $Id: imapsync,v 1.111 2005/01/04 04:05:07 gilles Exp $
 
diff --git a/VERSION b/VERSION
index 00ee5cf..2696ac1 100644
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-1.110
+1.111
diff --git a/imapsync b/imapsync
index bda1a4e..e1c3c05 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.110 $
+$Revision: 1.111 $
 
 =head1 INSTALL
 
@@ -281,7 +281,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.110 2005/01/04 03:56:59 gilles Exp gilles $
+$Id: imapsync,v 1.111 2005/01/04 04:05:07 gilles Exp $
 
 =cut
 
@@ -323,7 +323,7 @@ my(
 use vars qw ($opt_G); # missing code for this will be option.
 
 
-$rcs = ' $Id: imapsync,v 1.110 2005/01/04 03:56:59 gilles Exp gilles $ ';
+$rcs = ' $Id: imapsync,v 1.111 2005/01/04 04:05:07 gilles Exp $ ';
 $rcs =~ m/,v (\d+\.\d+)/;
 $VERSION = ($1) ? $1 : "UNKNOWN";
 
@@ -360,8 +360,8 @@ $error=0;
 
 my $banner = join("", 
 		  '$RCSfile: imapsync,v $ ',
-		  '$Revision: 1.110 $ ',
-		  '$Date: 2005/01/04 03:56:59 $ ',
+		  '$Revision: 1.111 $ ',
+		  '$Date: 2005/01/04 04:05:07 $ ',
 		  "\n",
 		  "Mail::IMAPClient version used here is ",
 		  $VERSION_IMAPClient, " auth md5 : $md5_supported",
@@ -715,8 +715,6 @@ FOLDER: foreach my $f_fold (@f_folders) {
 
 	my %f_hash = ();
 	my %t_hash = ();
-	my %f_hash1 = ();
-	my %t_hash1 = ();
 	
 	# No history
 	$from->Clear(1);
@@ -730,13 +728,11 @@ FOLDER: foreach my $f_fold (@f_folders) {
 #	print "From Buffer I/O : ", $from->Buffer(), "\n";
 #	print "To   Buffer I/O : ", $to->Buffer(), "\n";
 
-	
-	
 	print "++++ From Parse 1 ++++\n";
 	
-	my $f_heads = $from->parse_headers([@f_msgs],"ALL");
+	my $f_heads = $from->parse_headers([@f_msgs],"ALL") if (@f_msgs) ;
 	print "Time : ", timenext(), " s\n";
-	my $f_size  = $from->fetch_hash("RFC822.SIZE");
+	my $f_size  = $from->fetch_hash("RFC822.SIZE") if (@f_msgs);
 	
 	use Data::Dumper;
 	#print Data::Dumper->Dump([$f_heads]);
@@ -747,9 +743,9 @@ FOLDER: foreach my $f_fold (@f_folders) {
 	}
 	print "Time : ", timenext(), " s\n";
 	print "\n++++ To   Parse 1 ++++\n";
-	my $t_heads =   $to->parse_headers([@t_msgs],"ALL");
+	my $t_heads =   $to->parse_headers([@t_msgs],"ALL") if (@t_msgs);
 	print "Time : ", timenext(), " s\n";
-	my $t_size  =   $to->fetch_hash("RFC822.SIZE");
+	my $t_size  =   $to->fetch_hash("RFC822.SIZE") if (@t_msgs);
 	print "Time : ", timenext(), " s\n";
 	
 	foreach my $m (@t_msgs) {