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.
