diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-07-12 13:14:25 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-07-12 13:41:50 -0700 |
commit | ecac9d421edf40894788d04d9f33be2b625e45f4 (patch) | |
tree | 73d3ddc402a0afb41e16b5bb7b519205558f5754 /bin | |
parent | 6f51a6b4f4051f7728465d96c5328218f39d27f9 (diff) | |
download | dotfiles-ecac9d421edf40894788d04d9f33be2b625e45f4.tar.gz |
store Gnus/notmuch's copy of annexed mail in a single maildir's cur/
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/expand-annex-mboxes | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/bin/expand-annex-mboxes b/bin/expand-annex-mboxes index 7f3525bc..e12a574f 100755 --- a/bin/expand-annex-mboxes +++ b/bin/expand-annex-mboxes @@ -7,7 +7,7 @@ use lib "$ENV{HOME}/src/dotfiles/perl5"; use Fcntl qw(LOCK_EX LOCK_NB); use File::Path qw(make_path); -use File::Spec::Functions qw(catfile splitpath); +use File::Spec::Functions qw(splitpath); use Local::Homedir::Mail qw(expand_mbox); # CONFIG @@ -29,7 +29,5 @@ foreach my $mbox (glob "$mboxes/*.gz") { # $mbox might be a dangling symlink on this machine next unless -e $mbox; - my (undef, undef, $name) = splitpath($mbox); - $name =~ s/\.gz$//; - expand_mbox($mbox, catfile($expanded, $name)); + expand_mbox($mbox, $expanded); } |