Commit Diff
Commit:
c971fcee68657ed9c77e081193fe84c1041ac662
Date:
Thu Aug 25 20:48:02 2022
UTC
Message:
mexp: defer skip test after $tid is set
otherwise we run with an undef $tid when processing new replies to
existing threads.
--- mexp
+++ mexp
@@ -33,15 +33,15 @@ while (<>) {
$mid = mid2path($mid);
- my $dest = "$outdir/mail/$mid.html";
- next if -f $dest;
-
my $level = length($indent) - 1;
$level = 10 if $indent =~ m/\.\.\d{2}\.\./;
$tid = $mid if $level == 0;
die "unknown tid" unless defined $tid;
+ my $dest = "$outdir/mail/$mid.html";
+ next if -f $dest;
+
open(my $fh, '>', "$dest") or die "can't open $dest: $!";
initpage $fh, $subj;
Omar Polo