diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2020-10-25 10:35:17 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2020-10-25 10:35:17 -0700 |
commit | 9ce2d55a62c721b589123ebd87395a9422d5bbad (patch) | |
tree | 55ba38dfc8aa2957f018d58bf757ab5e21970d11 /perl5 | |
parent | f9ea9153420e4372887fa3c687ca1b73f7a3647c (diff) | |
download | dotfiles-9ce2d55a62c721b589123ebd87395a9422d5bbad.tar.gz |
close mailboxes in a way which avoid warnings
Diffstat (limited to 'perl5')
-rw-r--r-- | perl5/Local/Homedir/Mail.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perl5/Local/Homedir/Mail.pm b/perl5/Local/Homedir/Mail.pm index b8140e05..f34a21e9 100644 --- a/perl5/Local/Homedir/Mail.pm +++ b/perl5/Local/Homedir/Mail.pm @@ -122,7 +122,8 @@ sub expand_mbox { $message->label(flagged => 0, seen => 1); $mgr->copyMessage($expanded, $message); } - $mgr->closeAllFolders; + $source->close(write => "NEVER"); + $expanded->close; make_maildir_readonly($expanded_path); # mark as done |