about summary refs log tree commit homepage
path: root/lib/PublicInbox/InboxWritable.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/PublicInbox/InboxWritable.pm')
-rw-r--r--lib/PublicInbox/InboxWritable.pm24
1 files changed, 1 insertions, 23 deletions
diff --git a/lib/PublicInbox/InboxWritable.pm b/lib/PublicInbox/InboxWritable.pm
index 982ad6e5..3a4012cd 100644
--- a/lib/PublicInbox/InboxWritable.pm
+++ b/lib/PublicInbox/InboxWritable.pm
@@ -9,7 +9,7 @@ use parent qw(PublicInbox::Inbox Exporter);
 use PublicInbox::Import;
 use PublicInbox::Filter::Base qw(REJECT);
 use Errno qw(ENOENT);
-our @EXPORT_OK = qw(eml_from_path warn_ignore_cb);
+our @EXPORT_OK = qw(eml_from_path);
 
 use constant {
         PERM_UMASK => 0,
@@ -277,28 +277,6 @@ sub cleanup ($) {
         delete @{$_[0]}{qw(over mm git search)};
 }
 
-# warnings to ignore when handling spam mailboxes and maybe other places
-sub warn_ignore {
-        my $s = "@_";
-        # Email::Address::XS warnings
-        $s =~ /^Argument contains empty address at /
-        || $s =~ /^Element at index [0-9]+ contains /
-        # PublicInbox::MsgTime
-        || $s =~ /^bogus TZ offset: .+?, ignoring and assuming \+0000/
-        || $s =~ /^bad Date: .+? in /
-        # Encode::Unicode::UTF7
-        || $s =~ /^Bad UTF7 data escape at /
-}
-
-# this expects to be RHS in this assignment: "local $SIG{__WARN__} = ..."
-sub warn_ignore_cb {
-        my $cb = $SIG{__WARN__} // \&CORE::warn;
-        sub {
-                return if warn_ignore(@_);
-                $cb->(@_);
-        }
-}
-
 # v2+ only, XXX: maybe we can just rely on ->max_git_epoch and remove
 sub git_dir_latest {
         my ($self, $max) = @_;