Another step towards giving us more options for speedups and
memory reductions.
$ctx->{parent_msg} = $parent;
}
$ctx->{parent_msg} = $parent;
}
sub html_footer {
my ($ctx, $hdr) = @_;
my $upfx = '../';
my ($related, $skel);
sub html_footer {
my ($ctx, $hdr) = @_;
my $upfx = '../';
my ($related, $skel);
my $qry = delete $ctx->{-qry};
if ($qry && $ctx->{ibx}->isrch) {
my $q = ''; # search for either ancestor or descendent patches
my $qry = delete $ctx->{-qry};
if ($qry && $ctx->{ibx}->isrch) {
my $q = ''; # search for either ancestor or descendent patches
} elsif ($u) { # unlikely
$parent = " <a\nhref=\"$u\"\nrel=prev>parent</a>";
}
} elsif ($u) { # unlikely
$parent = " <a\nhref=\"$u\"\nrel=prev>parent</a>";
}
- ${$ctx->{obuf}} .= "<pre>$next $prev$parent ";
+ $foot .= "$next $prev$parent ";
} else { # unindexed inboxes w/o over
} else { # unindexed inboxes w/o over
- ${$ctx->{obuf}} .= '<pre>';
$skel = qq( <a\nhref="$upfx">latest</a>);
}
$skel = qq( <a\nhref="$upfx">latest</a>);
}
- ${$ctx->{obuf}} .= qq(<a\nhref="#R">reply</a>);
- # $skel may be big for big threads, don't append it to obuf
+ $foot .= qq(<a\nhref="#R">reply</a>);
+ # $skel may be big for big threads, don't append it to $foot
$skel .= '</pre>' . ($related // '');
$skel .= '</pre>' . ($related // '');
- $ctx->zmore($skel .= msg_reply($ctx, $hdr)); # flushes obuf
+ $ctx->zmore($foot, $skel .= msg_reply($ctx, $hdr)); # flushes obuf