lib/PublicInbox/MIME.pm | 2 ++ lib/PublicInbox/SearchIdx.pm | 2 -- lib/PublicInbox/V2Writable.pm | 2 -- lib/PublicInbox/WatchMaildir.pm | 2 -- lib/PublicInbox/WwwAttach.pm | 3 +-- script/public-inbox-learn | 2 -- script/public-inbox-mda | 4 +--- scripts/import_slrnspool | 4 ++-- scripts/import_vger_from_mbox | 3 +-- diff --git a/lib/PublicInbox/MIME.pm b/lib/PublicInbox/MIME.pm index 54925a853258bf6856010f525f24832a1ad7ea8f..456eed64b8c444647c75bb1c21fa10ec512ad484 100644 --- a/lib/PublicInbox/MIME.pm +++ b/lib/PublicInbox/MIME.pm @@ -23,6 +23,8 @@ package PublicInbox::MIME; use strict; use warnings; use base qw(Email::MIME); +use Email::MIME::ContentType; +$Email::MIME::ContentType::STRICT_PARAMS = 0; if ($Email::MIME::VERSION <= 1.937) { sub parts_multipart { diff --git a/lib/PublicInbox/SearchIdx.pm b/lib/PublicInbox/SearchIdx.pm index f9207e9464cd1dd3afe89b3b1052635db1682ea5..0c3445d5d06c5504ea59181739897e3a41216f8c 100644 --- a/lib/PublicInbox/SearchIdx.pm +++ b/lib/PublicInbox/SearchIdx.pm @@ -11,8 +11,6 @@ use strict; use warnings; use Fcntl qw(:flock :DEFAULT); use PublicInbox::MIME; -use Email::MIME::ContentType; -$Email::MIME::ContentType::STRICT_PARAMS = 0; use base qw(PublicInbox::Search); use PublicInbox::MID qw/mid_clean id_compress mid_mime/; use PublicInbox::MsgIter; diff --git a/lib/PublicInbox/V2Writable.pm b/lib/PublicInbox/V2Writable.pm index 3451261e4ee1f902dddce340a4a38780cfae3795..5e819da48459e02829c80f8999a12fda3d8b04c9 100644 --- a/lib/PublicInbox/V2Writable.pm +++ b/lib/PublicInbox/V2Writable.pm @@ -11,8 +11,6 @@ use PublicInbox::SearchIdxThread; use PublicInbox::MIME; use PublicInbox::Git; use PublicInbox::Import; -use Email::MIME::ContentType; -$Email::MIME::ContentType::STRICT_PARAMS = 0; # an estimate of the post-packed size to the raw uncompressed size my $PACKING_FACTOR = 0.4; diff --git a/lib/PublicInbox/WatchMaildir.pm b/lib/PublicInbox/WatchMaildir.pm index 403b6cf951d8e1b4b18a7ad4a68615c410166f81..3da6b276ffa13b5e5e1e3d39e81d81ba43607b11 100644 --- a/lib/PublicInbox/WatchMaildir.pm +++ b/lib/PublicInbox/WatchMaildir.pm @@ -7,8 +7,6 @@ package PublicInbox::WatchMaildir; use strict; use warnings; use PublicInbox::MIME; -use Email::MIME::ContentType; -$Email::MIME::ContentType::STRICT_PARAMS = 0; # user input is imperfect use PublicInbox::Git; use PublicInbox::Import; use PublicInbox::MDA; diff --git a/lib/PublicInbox/WwwAttach.pm b/lib/PublicInbox/WwwAttach.pm index 98cf9f7096d68958462214b05ac7b47bdad5c883..b1504f526725286b671074beadced88a9be996a9 100644 --- a/lib/PublicInbox/WwwAttach.pm +++ b/lib/PublicInbox/WwwAttach.pm @@ -5,9 +5,8 @@ # For retrieving attachments from messages in the WWW interface package PublicInbox::WwwAttach; # internal package use strict; use warnings; -use PublicInbox::MIME; use Email::MIME::ContentType qw(parse_content_type); -$Email::MIME::ContentType::STRICT_PARAMS = 0; +use PublicInbox::MIME; use PublicInbox::MsgIter; # /$LISTNAME/$MESSAGE_ID/$IDX-$FILENAME diff --git a/script/public-inbox-learn b/script/public-inbox-learn index bdc72e08b94febd2b26c77f2c410d1a9d3a8c35b..c51f95856a137d7f0f4dac7c855e3cf741a732cd 100755 --- a/script/public-inbox-learn +++ b/script/public-inbox-learn @@ -11,8 +11,6 @@ use PublicInbox::Config; use PublicInbox::Git; use PublicInbox::Import; use PublicInbox::MIME; -use Email::MIME::ContentType; -$Email::MIME::ContentType::STRICT_PARAMS = 0; # user input is imperfect use PublicInbox::Address; use PublicInbox::Spamcheck::Spamc; my $train = shift or die "usage: $usage\n"; diff --git a/script/public-inbox-mda b/script/public-inbox-mda index 8cf441957cc01a59506df54e83b816fd24e5edbb..f1eaf629b34012a696eb59ef6af85bc13e6cb7e4 100755 --- a/script/public-inbox-mda +++ b/script/public-inbox-mda @@ -15,9 +15,7 @@ exit $code; } use Email::Simple; -use Email::MIME; -use Email::MIME::ContentType; -$Email::MIME::ContentType::STRICT_PARAMS = 0; # user input is imperfect +use PublicInbox::MIME; use PublicInbox::MDA; use PublicInbox::Config; use PublicInbox::Import; diff --git a/scripts/import_slrnspool b/scripts/import_slrnspool index 5158460bfa1bfdba325a90c28dd1dfd2e654e92c..7b6c9ab0656b9e0af0edb99f3fd58566451356de 100755 --- a/scripts/import_slrnspool +++ b/scripts/import_slrnspool @@ -11,7 +11,7 @@ =cut use strict; use warnings; use PublicInbox::Config; -use Email::MIME; +use PublicInbox::MIME; use PublicInbox::Import; use PublicInbox::Git; sub usage { "Usage:\n".join('',grep(/\t/, `head -n 10 $0`)) } @@ -58,7 +58,7 @@ print STDERR $fn, "\n"; open(my $fh, '<', $fn) or next; $max = $n + $max_gap; - my $mime = Email::MIME->new(eval { local $/; <$fh> }); + my $mime = PublicInbox::MIME->new(eval { local $/; <$fh> }); my $hdr = $mime->header_obj; # gmane rewrites Received headers, which increases spamminess diff --git a/scripts/import_vger_from_mbox b/scripts/import_vger_from_mbox index 1308483599ead8007ad884422ff9a44f6a3a4a5e..8f0ec7cd8ae2227565338008ed9bccd0fcbadfb1 100644 --- a/scripts/import_vger_from_mbox +++ b/scripts/import_vger_from_mbox @@ -5,8 +5,7 @@ use strict; use warnings; use Getopt::Long qw/:config gnu_getopt no_ignore_case auto_abbrev/; use Date::Parse qw/str2time/; -use Email::MIME; -$Email::MIME::ContentType::STRICT_PARAMS = 0; # user input is imperfect +use PublicInbox::MIME; use PublicInbox::Inbox; use PublicInbox::V2Writable; use PublicInbox::Import;