zydronium/imapsync
1
0
Fork 0
mirror of https://github.com/imapsync/imapsync.git synced 2025-07-20 17:25:53 +02:00
Code Issues Projects Releases Packages Wiki Activity

1.84

Browse source
This commit is contained in:
Nick Bebout 2011-03-12 02:43:54 +00:00
parent dd4b175c49
commit f66d0cf0dc
5 changed files with 18 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

15
imapsync
View file

@ -4,7 +4,7 @@
imapsync - IMAP sync or copy tool. Synchronize mailboxes between two imap servers.
$Revision: 1.83 $
$Revision: 1.84 $
=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.83 2004/03/12 02:29:00 gilles Exp $
$Id: imapsync,v 1.84 2004/03/13 03:43:34 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.83 2004/03/12 02:29:00 gilles Exp $ ';
$rcs = ' $Id: imapsync,v 1.84 2004/03/13 03:43:34 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.83 $ ',
'$Date: 2004/03/12 02:29:00 $ ',
'$Revision: 1.84 $ ',
'$Date: 2004/03/13 03:43:34 $ ',
"\n",
"Mail::IMAPClient version used here is ",
$VERSION_IMAPClient, " auth md5 : $md5_supported",
@ -774,12 +774,13 @@ sub parse_header_msg {
my $head = $imap->parse_headers($m,"ALL");
my $headstr;
$debug and print "Head NUM:", scalar(keys(%$head)), "\n";
# no header -> return
return unless(scalar(keys(%$head)));
foreach my $h (sort keys(%$head)){
foreach my $val ( @{$head->{$h}}) {
foreach my $val (sort @{$head->{$h}}) {
# no 8-bit data in headers !
$val =~ s/[\x80-\xff]/X/g;
# remove the first blanks (dbmail bug)
# remove the first blanks (dbmail bug ?)
$val =~ s/^\s+//;
# show stuff in debug mode
$debug and print "${s}H $h:", $val, "\n";