nntp: HDR allows metadata prefixed with ':'

RFC 3977, section 8.5.2 states metadata lookups can be done
with HDR.

diff --git a/lib/PublicInbox/NNTP.pm b/lib/PublicInbox/NNTP.pm
index 6c661a1bc3b8927e5449e1e647012cf66e8dc6cc..c2f97177ecb8e4c1e925d32c949d079d31ae3906 100644 (file)
--- a/lib/PublicInbox/NNTP.pm
+++ b/lib/PublicInbox/NNTP.pm
@@ -480,9 +480,8 @@ sub get_range ($$) {
 
 sub hdr_val ($$) {
        my ($r, $header) = @_;
-       $header = lc $header;
-       return $r->[3] if ($header eq 'bytes');
-       return $r->[4] if ($header eq 'lines');
+       return $r->[3] if $header =~ /\A:?bytes\z/i;
+       return $r->[4] if $header =~ /\A:?lines\z/i;
        $r = $r->[2]->header_obj->header($header);
        defined $r or return;
        $r =~ s/[\r\n\t]+/ /sg;