This commit is contained in:
Nick Bebout 2011-03-12 02:43:45 +00:00
parent 237b900394
commit dcd74bf3e7
4 changed files with 13 additions and 9 deletions

View file

@ -4,7 +4,7 @@
imapsync - synchronize mailboxes between two imap servers.
$Revision: 1.14 $
$Revision: 1.15 $
=head1 INSTALL
@ -136,7 +136,7 @@ both sides. This will help future users.
Feedback will be welcome.
$Id: imapsync,v 1.14 2003/07/17 11:58:56 gilles Exp $
$Id: imapsync,v 1.15 2003/07/17 12:22:23 gilles Exp $
=cut
@ -161,7 +161,7 @@ my(
use vars qw ($opt_G); # missing code for this will be option.
$rcs = ' $Id: imapsync,v 1.14 2003/07/17 11:58:56 gilles Exp $ ';
$rcs = ' $Id: imapsync,v 1.15 2003/07/17 12:22:23 gilles Exp $ ';
$rcs =~ m/,v (\d+\.\d+)/;
$VERSION = ($1) ? $1 : "UNKNOWN";
$error=0;
@ -210,7 +210,7 @@ $to = Mail::IMAPClient->new( Server => $host2,
Fast_IO => 1,
Uid => 1,
Peek => 1,
Debug => 0,
Debug => $debugimap,
)
or die "can't open imap connection on [$host2] with user [$user2]\n";