diff options
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 |