lib/PublicInbox/View.pm | 13 +++++++------

diff --git a/lib/PublicInbox/View.pm b/lib/PublicInbox/View.pm
index a1b45e9002b4397c7bb26b28786866223c362b35..e09fbd5150850934b45680969267df18f9558ed2 100644
--- a/lib/PublicInbox/View.pm
+++ b/lib/PublicInbox/View.pm
@@ -386,8 +386,12 @@ 		prev_level => 0,
 		upfx => "$tpfx../",
 		dst => $dst,
 	};
-	for (thread_results(load_results($sres))->rootset) {
-		skel_dump($state, $_, 0);
+	my @q = map { (0, $_) } thread_results(load_results($sres))->rootset;
+	while (@q) {
+		my $level = shift @q;
+		my $node = shift @q or next;
+		skel_dump($state, $level, $node);
+		unshift @q, $level+1, $node->child, $level, $node->next;
 	}
 	$ctx->{next_msg} = $state->{next_msg};
 	$ctx->{parent_msg} = $parent;
@@ -714,8 +718,7 @@ 	$$dst .= defined($s) ? "$s</a> $f\n" : "$f</a>\n";
 }
 
 sub skel_dump {
-	my ($state, $node, $level) = @_;
-	return unless $node;
+	my ($state, $level, $node) = @_;
 	if (my $mime = $node->message) {
 		my $hdr = $mime->header_obj;
 		my $mid = mid_clean($hdr->header_raw('Message-ID'));
@@ -734,8 +737,6 @@ 			my $html = $mid->as_html;
 			$$dst .= qq{&lt;<a\nhref="$href">$html</a>&gt;\n};
 		}
 	}
-	skel_dump($state, $node->child, $level+1);
-	skel_dump($state, $node->next, $level);
 }
 
 sub sort_ts {