--- syncmail/folder.pm 2001/10/28 03:51:24 1.2 +++ syncmail/folder.pm 2001/10/28 04:00:58 1.3 @@ -136,7 +136,7 @@ print $fh "# automatically generated, do NOT edit\n"; print $fh "[SYNCMAIL]\n"; - print $fh "$_=$self->{$_}\n" for (qw(fsize mtime version)); + print $fh "$_=$self->{$_}\n" for (qw(fsize mtime version ctime)); print $fh "[HOSTS]\n"; while (my ($k,$v) = each %{$self->{host}}) { @@ -236,16 +236,17 @@ $self->read_mdif; $self->{version} ||= MDIFVERSION; + $self->{fsize} = $fsize; + $self->{mtime} = $mtime; + $self->{ctime} = time; + $self->{idx} = \@idx; + my ($add, $del) = gendiff $self->{idx}, \@idx; push @{$self->{diff}}, [ - $mtime, + $self->{ctime}, $add, $del, ] if @$add || @$del; - $self->{fsize} = $fsize; - $self->{mtime} = $mtime; - $self->{idx} = \@idx; - $self->dirty; return 2;