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'

diff --git a/lib/PublicInbox/Watch.pm b/lib/PublicInbox/Watch.pm
index 90d82d21401e0a227acb2256d9bffd0613aaa97e..d9aadf82adcc1f6b9cd86baf7d22c9a3ba7cd34a 100644 (file)
--- 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,