Email::Delete::Maildir - Delete Messages from a Maildir Folder
use Email::Delete qw[delete_message];
my $message_id = shift @ARGV;
delete_messages from => 'some/Maildir/',
matching => sub {
my $message = shift;
$message->header('Message-ID') =~ $message_id;
};
This software will delete messages from a given Maildir folder.
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.