diff --git a/CREDITS b/CREDITS index cf45719..0e6b98f 100644 --- a/CREDITS +++ b/CREDITS @@ -1,3 +1,7 @@ + +Christophe Labouisse +Add a pb with dbmail headers (first blank added) + William Hernandez (fromESS/PR Webmasters) Wrote patch for --timeout Gave IMail 7.15 new problem/success story diff --git a/ChangeLog b/ChangeLog index 59af7a9..dd2944a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,15 +1,20 @@ RCS file: RCS/imapsync,v Working file: imapsync -head: 1.82 +head: 1.83 branch: locks: strict access list: symbolic names: keyword substitution: kv -total revisions: 82; selected revisions: 82 +total revisions: 83; selected revisions: 83 description: ---------------------------- +revision 1.83 +date: 2004/03/12 02:29:00; author: gilles; state: Exp; lines: +8 -5 +Do not parse first blanks in headers (dbmail bug, thanks to +Christophe Labouisse) +---------------------------- revision 1.82 date: 2004/03/12 01:40:27; author: gilles; state: Exp; lines: +6 -6 removed only diff --git a/README b/README index fad5000..430c6a0 100644 --- a/README +++ b/README @@ -2,7 +2,7 @@ NAME imapsync - IMAP sync or copy tool. Synchronize mailboxes between two imap servers. - $Revision: 1.82 $ + $Revision: 1.83 $ INSTALL imapsync works fine under any Unix OS. @@ -211,5 +211,5 @@ AUTHOR teaching free open and gratis softwares. Don't hesitate to pay him for that services. - $Id: imapsync,v 1.82 2004/03/12 01:40:27 gilles Exp $ + $Id: imapsync,v 1.83 2004/03/12 02:29:00 gilles Exp $ diff --git a/VERSION b/VERSION index a92432a..74c280f 100644 --- a/VERSION +++ b/VERSION @@ -1 +1 @@ -1.82 +1.83 diff --git a/imapsync b/imapsync index 7512fb3..a11ce0a 100755 --- a/imapsync +++ b/imapsync @@ -4,7 +4,7 @@ imapsync - IMAP sync or copy tool. Synchronize mailboxes between two imap servers. -$Revision: 1.82 $ +$Revision: 1.83 $ =head1 INSTALL @@ -249,7 +249,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.82 2004/03/12 01:40:27 gilles Exp $ +$Id: imapsync,v 1.83 2004/03/12 02:29:00 gilles Exp $ =cut @@ -286,7 +286,7 @@ my( use vars qw ($opt_G); # missing code for this will be option. -$rcs = ' $Id: imapsync,v 1.82 2004/03/12 01:40:27 gilles Exp $ '; +$rcs = ' $Id: imapsync,v 1.83 2004/03/12 02:29:00 gilles Exp $ '; $rcs =~ m/,v (\d+\.\d+)/; $VERSION = ($1) ? $1 : "UNKNOWN"; @@ -322,8 +322,8 @@ $error=0; my $banner = join("", '$RCSfile: imapsync,v $ ', - '$Revision: 1.82 $ ', - '$Date: 2004/03/12 01:40:27 $ ', + '$Revision: 1.83 $ ', + '$Date: 2004/03/12 02:29:00 $ ', "\n", "Mail::IMAPClient version used here is ", $VERSION_IMAPClient, " auth md5 : $md5_supported", @@ -779,6 +779,9 @@ sub parse_header_msg { foreach my $val ( @{$head->{$h}}) { # no 8-bit data in headers ! $val =~ s/[\x80-\xff]/X/g; + # remove the first blanks (dbmail bug) + $val =~ s/^\s+//; + # show stuff in debug mode $debug and print "${s}H $h:", $val, "\n"; $headstr .= "$h:". $val; }