diff options
author | Eric Wong <e@80x24.org> | 2021-02-04 00:59:26 -0900 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2021-02-05 00:16:31 +0000 |
commit | 69ea1bcb2983d2c51caf04440d4797212ed6fd64 (patch) | |
tree | cb948bde2534722b97b09dc7bc1d7188e38caa97 /lib/PublicInbox/InboxWritable.pm | |
parent | a54a442b9a125f93518b8e50411403a708f8fc2e (diff) | |
download | public-inbox-69ea1bcb2983d2c51caf04440d4797212ed6fd64.tar.gz |
There's nothing we can do about bad emails in our search results, so quiet things down and don't fight the MUA for the terminal.
Diffstat (limited to 'lib/PublicInbox/InboxWritable.pm')
-rw-r--r-- | lib/PublicInbox/InboxWritable.pm | 24 |
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) = @_; |