lei: check for IMAP auth errors

[public-inbox.git] / lib / PublicInbox / NetReader.pm

diff --git a/lib/PublicInbox/NetReader.pm b/lib/PublicInbox/NetReader.pm
index ad8c18d0df132c4687ec167c1224d67ddd55d1e8..61ea538b75cbcda7e8fdbf09df5bf3f498208a96 100644 (file)
--- a/lib/PublicInbox/NetReader.pm
+++ b/lib/PublicInbox/NetReader.pm
@@ -89,6 +89,9 @@ sub mic_for { # mic = Mail::IMAPClient
                $self->{mic_arg}->{uri_section($uri)} = $mic_arg;
        } else {
                $err = "E: <$url> LOGIN: $@\n";
+               if ($cred && defined($cred->{password})) {
+                       $err =~ s/\Q$cred->{password}\E/*******/g;
+               }
                $mic = undef;
        }
        $cred->run($mic ? 'approve' : 'reject') if $cred;