This commit is contained in:
Nick Bebout 2011-03-12 02:43:53 +00:00
parent 22e9c13cd4
commit dd4b175c49
5 changed files with 22 additions and 10 deletions

View file

@ -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

View file

@ -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

4
README
View file

@ -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 $

View file

@ -1 +1 @@
1.82
1.83

View file

@ -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;
}