X-Git-Url: http://www.git.stargrave.org/?p=public-inbox.git;a=blobdiff_plain;f=lib%2FPublicInbox%2FView.pm;h=b39c820338993801e511a63e6291baf4443e4fc0;hp=7454acbba153bc80f86ae09f4c931c36bb007a5b;hb=2aa29ee6a35f5be2d76c39ccc50bf7a34075e2bd;hpb=2a5b77c0cdd9bb1f726fd05b01d3095b029367ac

diff --git a/lib/PublicInbox/View.pm b/lib/PublicInbox/View.pm
index 7454acbb..b39c8203 100644
--- a/lib/PublicInbox/View.pm
+++ b/lib/PublicInbox/View.pm
@@ -104,9 +104,8 @@ EOF
 sub in_reply_to {
 	my ($hdr) = @_;
 	my %mid = map { $_ => 1 } $hdr->header_raw('Message-ID');
-	my @refs = ($hdr->header_raw('References'),
-			$hdr->header_raw('In-Reply-To'));
-	@refs = ((join(' ', @refs)) =~ /<([^>]+)>/g);
+	my @refs = (($hdr->header_raw('References') || '') =~ /<([^>]+)>/g);
+	push(@refs, (($hdr->header_raw('In-Reply-To') || '') =~ /<([^>]+)>/g));
 	while (defined(my $irt = pop @refs)) {
 		next if $mid{"<$irt>"};
 		return $irt;