- my $cur_ngname = $cur_ibx->{newsgroup};
- my $ret = "$nntpd->{servername} $cur_ngname:$smsg->{num}";
- if (my $ALL = $nntpd->{pi_config}->ALL) {
- if (my $ary = $ALL->nntp_xref_for($cur_ibx, $smsg)) {
- $ret .= join(' ', '', @$ary) if scalar(@$ary);
- }
- # better off wrong than slow if there's thousands of groups,
- # so no fallback to the slow path below:
+ my $cur_ng = $cur_ibx->{newsgroup};
+ my $xref;
+ if (my $ALL = $nntpd->{pi_cfg}->ALL) {
+ $xref = $ALL->nntp_xref_for($cur_ibx, $smsg);
+ xref_by_tc($xref, $nntpd->{pi_cfg}, $smsg);