Email::Delete::Maildir - Delete Messages from a mbox Folder
use Email::Delete qw[delete_message];
my $message_id = shift @ARGV;
delete_message from => 'some/mbox',
matching => sub {
my $message = shift;
$message->header('Message-ID') =~ $message_id;
};
This software will delete messages from a given mbox folder.
You may be interested to know that every call to
"delete_message" will lock properly (thus
annoyingly) throughout the entire process of scanning and rebuilding the
mbox.
Casey West, <casey@geeknest.com>.
Copyright (c) 2004 Casey West. All rights reserved.
This module is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.