diff --git a/ChangeLog b/ChangeLog
index e4a3941..7784afb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,15 +1,21 @@
 
 RCS file: RCS/imapsync,v
 Working file: imapsync
-head: 1.90
+head: 1.91
 branch:
 locks: strict
 access list:
 symbolic names:
 keyword substitution: kv
-total revisions: 90;	selected revisions: 90
+total revisions: 91;	selected revisions: 91
 description:
 ----------------------------
+revision 1.91
+date: 2004/04/07 18:51:24;  author: gilles;  state: Exp;  lines: +7 -6
+- Expunging the destination server is commented.
+- Expunge each message deleted message from the source server
+  if --expunge
+----------------------------
 revision 1.90
 date: 2004/04/07 18:14:05;  author: gilles;  state: Exp;  lines: +13 -6
 Added --regextrans2 option
diff --git a/README b/README
index 4d30af0..32798ac 100644
--- a/README
+++ b/README
@@ -2,7 +2,7 @@ NAME
     imapsync - IMAP sync or copy tool. Synchronize mailboxes between two
     imap servers.
 
-    $Revision: 1.90 $
+    $Revision: 1.91 $
 
 INSTALL
      imapsync works fine under any Unix OS.
@@ -229,5 +229,5 @@ AUTHOR
     teaching free open and gratis softwares. Don't hesitate to pay him for
     that services.
 
-    $Id: imapsync,v 1.90 2004/04/07 18:14:05 gilles Exp $
+    $Id: imapsync,v 1.91 2004/04/07 18:51:24 gilles Exp $
 
diff --git a/VERSION b/VERSION
index e87fb34..0573181 100644
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-1.90
+1.91
diff --git a/imapsync b/imapsync
index 2bc408c..f9656f8 100755
--- a/imapsync
+++ b/imapsync
@@ -4,7 +4,7 @@
 
 imapsync - IMAP sync or copy tool. Synchronize mailboxes between two imap servers.
 
-$Revision: 1.90 $
+$Revision: 1.91 $
 
 =head1 INSTALL
 
@@ -269,7 +269,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.90 2004/04/07 18:14:05 gilles Exp $
+$Id: imapsync,v 1.91 2004/04/07 18:51:24 gilles Exp $
 
 =cut
 
@@ -307,7 +307,7 @@ my(
 use vars qw ($opt_G); # missing code for this will be option.
 
 
-$rcs = ' $Id: imapsync,v 1.90 2004/04/07 18:14:05 gilles Exp $ ';
+$rcs = ' $Id: imapsync,v 1.91 2004/04/07 18:51:24 gilles Exp $ ';
 $rcs =~ m/,v (\d+\.\d+)/;
 $VERSION = ($1) ? $1 : "UNKNOWN";
 
@@ -343,8 +343,8 @@ $error=0;
 
 my $banner = join("", 
 		  '$RCSfile: imapsync,v $ ',
-		  '$Revision: 1.90 $ ',
-		  '$Date: 2004/04/07 18:14:05 $ ',
+		  '$Revision: 1.91 $ ',
+		  '$Date: 2004/04/07 18:51:24 $ ',
 		  "\n",
 		  "Mail::IMAPClient version used here is ",
 		  $VERSION_IMAPClient, " auth md5 : $md5_supported",
@@ -602,7 +602,7 @@ FOLDER: foreach my $f_fold (@f_folders) {
 	if ($expunge){
 		print "Expunging $f_fold and $t_fold\n";
 		unless($dry) { $from->expunge() };
-		unless($dry) { $to->expunge() };
+		#unless($dry) { $to->expunge() };
 	}
 
 	if ($subscribe and exists $fs_folders{$f_fold}) {
@@ -724,6 +724,7 @@ FOLDER: foreach my $f_fold (@f_folders) {
 			if($delete) {
 				print "Deleting msg #$f_msg in folder $f_fold\n";
 				$from->delete_message($f_msg);
+				$from->expunge() if ($expunge);
 			}
 		}
 	}