commit afe95dd5fb3c5bd7274b5482fba4c4625fe34c05
from: Omar Polo <op@omarpolo.com>
date: Tue Apr 04 14:54:49 2023 UTC

tweak thrnav

commit - 487f3ddceb144407b60d53a545d08fa03abc65ea
commit + afe95dd5fb3c5bd7274b5482fba4c4625fe34c05
blob - de87cd80793dd69cf80340a3502df9d44b9796a4
blob + 98d32ab50f7a187c4b692d3dd5e2db01efdfdc8a
--- GotMArc.pm
+++ GotMArc.pm
@@ -185,7 +185,7 @@ sub thrslice {
 }
 
 sub thrnav {
-	my ($fh, $p, $n, $mid, $tid) = @_;
+	my ($fh, $p, $n) = @_;
 	my @prev = @{$p};
 	my @next = @{$n};
 
@@ -195,24 +195,17 @@ sub thrnav {
 	if (@prev) {
 		my $mail = $prev[-1];
 		my $encmid = $mail->{mid};
-		say $fh "<a href='/mail/$encmid.html'>Previous</a>";
+		say $fh "<a href='/mail/$encmid.html'>Previous in thread</a>";
 	} else {
-		say $fh "<span>Previous</span>";
+		say $fh "<span>Previous in thread</span>";
 	}
 
-	if (defined($mid) && defined($tid)) {
-		my $encmid = urlencode $mid;
-		my $enctid = urlencode $tid;
-		say $fh "<a href='/text/$encmid.txt'>Raw body</a>";
-		say $fh "<a href='/thread/$enctid.html#$encmid'>Thread</a>";
-	}
-
 	if (@next) {
 		my $mail = $next[0];
 		my $encmid = $mail->{mid};
-		say $fh "<a href='/mail/$encmid.html'>Next</a>";
+		say $fh "<a href='/mail/$encmid.html'>Next in thread</a>";
 	} else {
-		say $fh "<span>Next</span>";
+		say $fh "<span>Next in thread</span>";
 	}
 
 	print $fh "</nav>";
blob - 293813d8adf16357a78e79ff5905ac46b8c4a235
blob + 2521e48da5b49a3c86a374080bc484b6623a717b
--- mexp
+++ mexp
@@ -137,7 +137,7 @@ sub export_one {
 	}
 	say $fh "</ul>" if $partno > 0;
 
-	thrnav $fh, $prev, $next, $mail->{mid}, $mail->{tid};
+	thrnav $fh, $prev, $next;
 	thrslice $fh, $mail, $prev, $next;
 
 	endpage $fh;