commit c13d576c4e342bfb2dd42f5b992cb679d2b8785e
from: Omar Polo <op@omarpolo.com>
date: Sat Aug 27 07:03:55 2022 UTC

close the old thread in endthread, not in thread_entry

commit - eefeacb762d9f60570979fd1a020bed3d4789847
commit + c13d576c4e342bfb2dd42f5b992cb679d2b8785e
blob - f733b10708e9e2a8ef43873c4d1835d64760b33a
blob + 7f0a7d6c0c7544eeb9bf71e4f4adec1ba26b5577
--- mkindex
+++ mkindex
@@ -125,7 +125,7 @@ EOF
 
 sub endthread {
 	say $tfh "</ul></li>" x $last_level;
-	say $tfh "</ul></div>\n";
+	say $tfh "</ul>\n</div>\n";
 	endpage($tfh);
 	close($tfh);
 
@@ -146,7 +146,7 @@ sub nextthread {
 	print $tfh "</p>";
 	print $tfh "<dl><dt>Thread:</dt><dd>$subj</dd></dl>";
 	print $tfh "</header>\n";
-	# print $tfh "<div class='thread'><ul class='mails'>\n";
+	print $tfh "<div class='thread'><ul class='mails'>\n";
 }
 
 sub entry {
@@ -167,16 +167,8 @@ sub thread_entry {
 	my ($fh, $mid, $level, $date, $from, $subj) = @_;
 
 	say $fh "</ul>\n</li>" x ($last_level - $level) if $last_level > $level;
-	say $fh "</ul>\n</div>" if $threads_seen && $level == 0;
+	say $fh "<li>\n<ul>" if $last_lever < $level;
 
-	say $fh "<div class='thread'>" if $level == 0;
-
-	if ($last_level < $level) {
-		say $fh "<li>\n<ul>";
-	} elsif ($last_level == 0) {
-		say $fh "<ul class='mails'>";
-	}
-
 	entry $fh, "mail", $mid, $date, $from, $subj;
 }