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

1.91

Browse source
This commit is contained in:
Nick Bebout 2011-03-12 02:43:55 +00:00
parent 1e479e2f94
commit 6b377e54ad
4 changed files with 18 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

10
ChangeLog
View file

@ -1,15 +1,21 @@
RCS file: RCS/imapsync,v
Working file: imapsync
head: 1.90
head: 1.91
branch:
locks: strict
access list:
symbolic names:
keyword substitution: kv
total revisions: 90; selected revisions: 90
total revisions: 91; selected revisions: 91
description:
----------------------------
revision 1.91
date: 2004/04/07 18:51:24; author: gilles; state: Exp; lines: +7 -6
- Expunging the destination server is commented.
- Expunge each message deleted message from the source server
if --expunge
----------------------------
revision 1.90
date: 2004/04/07 18:14:05; author: gilles; state: Exp; lines: +13 -6
Added --regextrans2 option

4
README
View file

@ -2,7 +2,7 @@ NAME
imapsync - IMAP sync or copy tool. Synchronize mailboxes between two
imap servers.
$Revision: 1.90 $
$Revision: 1.91 $
INSTALL
imapsync works fine under any Unix OS.
@ -229,5 +229,5 @@ AUTHOR
teaching free open and gratis softwares. Don't hesitate to pay him for
that services.
$Id: imapsync,v 1.90 2004/04/07 18:14:05 gilles Exp $
$Id: imapsync,v 1.91 2004/04/07 18:51:24 gilles Exp $

2
VERSION
View file

@ -1 +1 @@
1.90
1.91

13
imapsync
View file

@ -4,7 +4,7 @@
imapsync - IMAP sync or copy tool. Synchronize mailboxes between two imap servers.
$Revision: 1.90 $
$Revision: 1.91 $
=head1 INSTALL
@ -269,7 +269,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.90 2004/04/07 18:14:05 gilles Exp $
$Id: imapsync,v 1.91 2004/04/07 18:51:24 gilles Exp $
=cut
@ -307,7 +307,7 @@ my(
use vars qw ($opt_G); # missing code for this will be option.
$rcs = ' $Id: imapsync,v 1.90 2004/04/07 18:14:05 gilles Exp $ ';
$rcs = ' $Id: imapsync,v 1.91 2004/04/07 18:51:24 gilles Exp $ ';
$rcs =~ m/,v (\d+\.\d+)/;
$VERSION = ($1) ? $1 : "UNKNOWN";
@ -343,8 +343,8 @@ $error=0;
my $banner = join("",
'$RCSfile: imapsync,v $ ',
'$Revision: 1.90 $ ',
'$Date: 2004/04/07 18:14:05 $ ',
'$Revision: 1.91 $ ',
'$Date: 2004/04/07 18:51:24 $ ',
"\n",
"Mail::IMAPClient version used here is ",
$VERSION_IMAPClient, " auth md5 : $md5_supported",
@ -602,7 +602,7 @@ FOLDER: foreach my $f_fold (@f_folders) {
if ($expunge){
print "Expunging $f_fold and $t_fold\n";
unless($dry) { $from->expunge() };
unless($dry) { $to->expunge() };
#unless($dry) { $to->expunge() };
}
if ($subscribe and exists $fs_folders{$f_fold}) {
@ -724,6 +724,7 @@ FOLDER: foreach my $f_fold (@f_folders) {
if($delete) {
print "Deleting msg #$f_msg in folder $f_fold\n";
$from->delete_message($f_msg);
$from->expunge() if ($expunge);
}
}
}