watchmaildir: show the current path on spamcheck failures

Knowing which message failed a spam check is tough when I have
many Maildirs and don't have a search indexing tool setup for
spam mail.

1 files changed, 6 insertions, 0 deletions

diff --git a/lib/PublicInbox/WatchMaildir.pm b/lib/PublicInbox/WatchMaildir.pm
index 2d4c6f43..a76bf06e 100644
--- a/lib/PublicInbox/WatchMaildir.pm
+++ b/lib/PublicInbox/WatchMaildir.pm
@@ -150,6 +150,12 @@ sub _try_path {
         if (!ref($inboxes) && $inboxes eq 'watchspam') {
                 return _remove_spam($self, $path);
         }
+
+        my $warn_cb = $SIG{__WARN__} || sub { print STDERR @_ };
+        local $SIG{__WARN__} = sub {
+                $warn_cb->("path: $path\n");
+                $warn_cb->(@_);
+        };
         foreach my $ibx (@$inboxes) {
                 my $mime = _path_to_mime($path) or next;
                 my $im = _importer_for($self, $ibx);