如何阻止 Perl 的 Mail::Box::Manager 删除目录？

Question

我正在使用 Perl 模块 Mail::Box::Manager从 Maildir 读取消息并将其移动到另一个目录中。一旦脚本完成处理 Maildir 中的邮件消息，它似乎还会删除 cur/ 和 new/ Maildir 目录，并且需要重新创建 Maildir 文件/目录。

我不希望脚本删除文件夹并重新创建 Maildir 结构。

我有一些简单的事情，例如：

#!/usr/bin/perl
use Mail::Box::Manager;

my $cnt = 0;
my $mgr = Mail::Box::Manager->new;
my $folder = $mgr->open( folder => '/home/vmail/mailfolder/',
                     access => 'rw',
                     type => 'maildir',
                     log => 'DEBUG',
                    );

foreach my $msg ( $folder->messages ) {
    # ... doing some processing of $msg here, then, move the mail for storage

    my $filename = $msg->filename || "NA";
    $filename =~ m#(.*)/new/(.*)$#;

    $mgr->moveMessage("/dir/$filename", 
                      $folder->message($cnt), 
                      create => 1 );
    $cnt++;
}

$folder->close();

收到的任何建议。谢谢。

Answer 1

添加

remove_when_empty => 0,

到 $mgr->open 调用。