script/*{mda,learn}: no strict params for Email::MIME::ContentType

User input is imperfect, do not pollute our mail logs with
warnings we cannot fix.  This is documented in the
Email::MIME::ContentType manpage so it should remain supported.

diff --git a/script/public-inbox-learn b/script/public-inbox-learn
index c79f24790e32870478a31d6c5202fada392ca738..bfbf023363295f15ce95d40bd2de79a3294a2c76 100755 (executable)
--- a/script/public-inbox-learn
+++ b/script/public-inbox-learn
@@ -11,6 +11,8 @@ use PublicInbox::Config;
 use PublicInbox::Git;
 use PublicInbox::Import;
 use Email::MIME;
+use Email::MIME::ContentType;
+$Email::MIME::ContentType::STRICT_PARAMS = 0; # user input is imperfect
 use PublicInbox::Address;
 use IPC::Run qw/run/;
 my $train = shift or die "usage: $usage\n";

diff --git a/script/public-inbox-mda b/script/public-inbox-mda
index 6ac0e8c48d82befb762d813661c8bdb01332970a..bb78c4e605ff72fa13619e1d7e1206a5c88f9925 100755 (executable)
--- a/script/public-inbox-mda
+++ b/script/public-inbox-mda
@@ -9,6 +9,8 @@ my $usage = 'public-inbox-mda < rfc2822_message';
 
 use Email::Filter;
 use Email::MIME;
+use Email::MIME::ContentType;
+$Email::MIME::ContentType::STRICT_PARAMS = 0; # user input is imperfect
 use File::Path::Expand qw/expand_filename/;
 use IPC::Run qw(run);
 use PublicInbox::MDA;