zydronium/imapsync
1
0
Fork 0
mirror of https://github.com/imapsync/imapsync.git synced 2025-06-12 15:34:52 +02:00
Code Issues Projects Releases Packages Wiki Activity

1.123

Browse source
This commit is contained in:
Nick Bebout 2011-03-12 02:44:13 +00:00
parent b17d465c3e
commit f6f2c48fa4
7 changed files with 595 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

27
imapsync
View file

@ -6,7 +6,7 @@ imapsync - IMAP synchronization, copy or migration
tool. Synchronize mailboxes between two imap servers. Good
at IMAP migration.
$Revision: 1.121 $
$Revision: 1.123 $
=head1 INSTALL
@ -190,7 +190,8 @@ Success stories reported (softwares in alphabetic order) :
- CommunicatePro server (Redhat 8.0)
- Courier IMAP 1.5.1, 2.2.0, 2.1.1, 2.2.1
- Critical Path (7.0.020)
- Cyrus IMAP 1.5, 1.6, 2.1, 2.1.15, 2.1.16, 2.2.1, Cyrus 2.2.2-BETA.
- Cyrus IMAP 1.5, 1.6, 2.1, 2.1.15, 2.1.16,
2.2.1, 2.2.2-BETA, 2.2.10
- DBMail 1.2.1
- Dovecot 0.99.10.4
- Domino (Notes) 6.5, 5.0.6
@ -199,6 +200,7 @@ Success stories reported (softwares in alphabetic order) :
- MDaemon 7.0.1
- MS Exchange Server 5.5
- Netscape Mail Server 3.6 (Wintel !)
- Netscape Messaging Server 4.15 Patch 7
- OpenWave
- Qualcomm Worldmail (NT)
- SunONE Messaging server 5.2, 6.0 (SUN JES - Java Enterprise System)
@ -284,7 +286,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.121 2005/02/01 04:03:30 gilles Exp $
$Id: imapsync,v 1.123 2005/03/19 04:25:46 gilles Exp $
=cut
@ -327,7 +329,7 @@ my(
use vars qw ($opt_G); # missing code for this will be option.
$rcs = ' $Id: imapsync,v 1.121 2005/02/01 04:03:30 gilles Exp $ ';
$rcs = ' $Id: imapsync,v 1.123 2005/03/19 04:25:46 gilles Exp $ ';
$rcs =~ m/,v (\d+\.\d+)/;
$VERSION = ($1) ? $1 : "UNKNOWN";
@ -364,8 +366,8 @@ $error=0;
my $banner = join("",
'$RCSfile: imapsync,v $ ',
'$Revision: 1.121 $ ',
'$Date: 2005/02/01 04:03:30 $ ',
'$Revision: 1.123 $ ',
'$Date: 2005/03/19 04:25:46 $ ',
"\n",
"Mail::IMAPClient version used here is ",
$VERSION_IMAPClient, " auth md5 : $md5_supported",
@ -803,7 +805,18 @@ FOLDER: foreach my $f_fold (@f_folders) {
$debug and print "internal date from 1: [$d]\n";
}
my $flags_f = join(" ", @{$from->flags($f_msg)});
my $flags_f_rv = $from->flags($f_msg);
my @flags_f;
my $flags_f;
if (ref($flags_f_rv)) {
@flags_f = @{$flags_f_rv};
$flags_f = join(" ", @flags_f);
}else{
$flags_f = "";
}
#$flags_f = join(" ", @{$from->flags($f_msg)});
# RFC 2060 : This flag can not be altered by the client
$flags_f =~ s@\\Recent@@g;