commit - b539aacd818c31e7affe75ac8980c0e890099aa9
commit + 098db09637d7e48e2be61f8abfe4b6bedda88498
blob - 139cfc0120331e554f599c1435ce267966b4f291
blob + bd3185571f60d1257b368a66add89ec2868f79b4
--- mkindex
+++ mkindex
@@ -167,7 +167,7 @@ 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 "<li>\n<ul>" if $last_lever < $level;
+	say $fh "<li>\n<ul>" if $last_level < $level;
 
 	entry $fh, "mail", $mid, $date, $from, $subj;
 }