From 427ee7639d9e78d1ccc56c1eb285da8d72a55716 Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Mon, 13 Mar 2023 19:38:27 +0000 Subject: watch: add space before "UID" or "ARTICLE" in warnings In other words, it now shows `imap://example.com/INBOX.foo UID:123' instead of: `imap://example.com/INBOX.foo UID:123' --- lib/PublicInbox/Watch.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/PublicInbox/Watch.pm') diff --git a/lib/PublicInbox/Watch.pm b/lib/PublicInbox/Watch.pm index 90d82d21..d9aadf82 100644 --- a/lib/PublicInbox/Watch.pm +++ b/lib/PublicInbox/Watch.pm @@ -312,7 +312,7 @@ sub imap_fetch_all ($$) { local $SIG{__WARN__} = sub { my $pfx = ($_[0] // '') =~ /^([A-Z]: |# )/g ? $1 : ''; my $uid = $self->{cur_uid}; - $warn_cb->("$pfx$uri", $uid ? ("UID:$uid") : (), "\n", @_); + $warn_cb->("$pfx$uri", $uid ? (" UID:$uid") : (), "\n", @_); }; PublicInbox::NetReader::imap_each($self, $uri, \&net_cb, $self, $self->{imap}->{$$uri}); @@ -451,7 +451,7 @@ sub watch_nntp_fetch_all ($$) { local $SIG{__WARN__} = sub { my $pfx = ($_[0] // '') =~ /^([A-Z]: |# )/g ? $1 : ''; my $art = $self->{cur_uid}; - $warn_cb->("$pfx$uri", $art ? ("ARTICLE $art") : (), "\n", @_); + $warn_cb->("$pfx$uri", $art ? (" ARTICLE $art") : (), "\n", @_); }; for $uri (@$uris) { PublicInbox::NetReader::nntp_each($self, $uri, \&net_cb, $self, -- cgit v1.2.3-24-ge0c7