my $mm = $self->{ng}->mm;
if (defined $range && $range =~ /\A<(.+)>\z/) { # Message-ID
- my $n = $mm->num_for($range);
+ my $n = $mm->num_for($1);
+ return '430 No article with that message-id' unless $n;
more($self, '221 Header follows');
- more($self, "<$range> <$range>") if defined $n;
+ more($self, "$range $range");
'.';
} else { # numeric range
$range = $self->{article} unless defined $range;
my $ng = $self->{ng};
my $mm = $ng->mm;
if (defined $range && $range =~ /\A<(.+)>\z/) { # Message-ID
- my $n = $mm->num_for($range);
+ my $n = $mm->num_for($1);
more($self, '221 Header follows');
- more($self, "<$range> ".xref($ng, $n)) if defined $n;
+ more($self, "$range ".xref($ng, $n)) if defined $n;
'.';
} else { # numeric range
$range = $self->{article} unless defined $range;
sub xhdr_slow ($$$) {
my ($self, $header, $range) = @_;
- if (defined $range && $range =~ /\A<(.+)>\z/) { # Message-ID
+ if (defined $range && $range =~ /\A<.+>\z/) { # Message-ID
my $r = $self->art_lookup($range, 2);
return $r unless ref $r;
more($self, '221 Header follows');
if (defined($r = xhdr($r, $header))) {
- more($self, "<$range> $r");
+ more($self, "$range $r");
}
'.';
} else { # numeric range
is_deeply($list, { $group => [ qw(1 1 n) ] }, 'LIST works');
is_deeply([$n->group($group)], [ qw(0 1 1), $group ], 'GROUP works');
+ my $mid = '<nntp@example.com>';
+ my %xhdr = (
+ 'message-id' => $mid,
+ 'subject' => 'hihi',
+ 'date' => 'Thu, 01 Jan 1970 00:00:00 +0000',
+ 'from' => 'Me <me@example.com>',
+ 'to' => 'You <you@example.com>',
+ 'cc' => $addr,
+ 'xref' => "example.com $group:1"
+ );
+ while (my ($k, $v) = each %xhdr) {
+ is_deeply($n->xhdr("$k $mid"), { $mid => $v },
+ "$k by message-id works");
+ is_deeply($n->xhdr("$k 1"), { 1 => $v },
+ "$k by article number works");
+ }
+
# TODO: upgrades and such
ok(kill('TERM', $pid), 'killed nntpd');