1.190

imapsync

@@ -7,7 +7,7 @@ tool. Synchronise mailboxes between two imap servers. Good
 at IMAP migration. More than 25 different IMAP server softwares
 supported with success.
 
-$Revision: 1.188 $
+$Revision: 1.190 $
 
 =head1 INSTALL
 
@@ -221,7 +221,7 @@ Success stories reported with the following imap servers
 (softwares names are in alphabetic order) : 
 
  - BincImap 1.2.3 (GPL) (http://www.bincimap.org/)
- - CommunicatePro server (Redhat 8.0)
+ - CommuniGatePro server (Redhat 8.0)
  - Courier IMAP 1.5.1, 2.2.0, 2.1.1, 2.2.1 (GPL) 
    (http://www.courier-mta.org/)
  - Critical Path (7.0.020)
@@ -343,7 +343,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.188 2006/10/30 01:18:37 gilles Exp gilles $
+$Id: imapsync,v 1.190 2006/11/11 00:13:15 gilles Exp gilles $
 
 =cut
 
@@ -400,7 +400,7 @@ my(
 use vars qw ($opt_G); # missing code for this will be option.
 
 
-$rcs = ' $Id: imapsync,v 1.188 2006/10/30 01:18:37 gilles Exp gilles $ ';
+$rcs = ' $Id: imapsync,v 1.190 2006/11/11 00:13:15 gilles Exp gilles $ ';
 $rcs =~ m/,v (\d+\.\d+)/;
 $VERSION = ($1) ? $1 : "UNKNOWN";
 
@@ -437,8 +437,8 @@ $error=0;
 
 my $banner = join("", 
 		  '$RCSfile: imapsync,v $ ',
-		  '$Revision: 1.188 $ ',
-		  '$Date: 2006/10/30 01:18:37 $ ',
+		  '$Revision: 1.190 $ ',
+		  '$Date: 2006/11/11 00:13:15 $ ',
 		  "\n",
 		  "Mail::IMAPClient version used here is ",
 		  $VERSION_IMAPClient,"\n"
@@ -1333,8 +1333,12 @@ sub parse_header_msg1 {
 		foreach my $val (sort @{$head->{$h}}) {
 			# no 8-bit data in headers !
 			$val =~ s/[\x80-\xff]/X/g;
+			
 			# remove the first blanks (dbmail bug ?)
-			$val =~ s/^\s+//;
+			# and uppercase  header keywords 
+			# (dbmail and dovecot)
+			$val =~ s/^\s*(.+?):(.+)$/\U$1\E:$2/;
+			
 			# show stuff in debug mode
 			$debug and print "${s}H $h:", $val, "\n";
 			if ($skipheader and $h =~ m/$skipheader/) {