move files indicating which mboxes have been expanded into a subdir

We can then have notmuch ignore them without using a regular expression.

1 files changed, 2 insertions, 2 deletions

diff --git a/perl5/Local/Homedir/Mail.pm b/perl5/Local/Homedir/Mail.pm
index 6ee94046..d1e08ff0 100644
--- a/perl5/Local/Homedir/Mail.pm
+++ b/perl5/Local/Homedir/Mail.pm
@@ -76,7 +76,7 @@ sub archive_to_mbox {
     $expanded->acceptMessages;
     $mgr->closeAllFolders;
     open my $touch_fh, ">",
-      catfile($expanded_path, "." . (splitpath $mbox_path)[2]) . ".done";
+      catfile($expanded_path, ".expanded", (splitpath $mbox_path)[2]);
     gzip($mbox_path, "$mbox_path.gz")
       or die "gzip failed: $GzipError\n";
     unlink $mbox_path if -e "$mbox_path.gz";
@@ -86,7 +86,7 @@ sub expand_mbox {
     my ($source_path, $target) = @_;
     (my $source_name = (splitpath $source_path)[2]) =~ s/\.gz$//;
     my $expanded_path = catfile $target, ".$source_name";
-    my $donefile      = $expanded_path . ".done";
+    my $donefile      = catfile $target, ".expanded", $source_name;
 
     # Check whether we finished, or got partway there.
     return                      if -e $donefile;