- my $top = "<b>$desc</b> (<a\nhref=\"$atom\">Atom feed</a>)";
- if ($obj->search) {
- $top = qq{<form\naction="$upfx"><pre>$top} .
- qq{ <input\nname=q\ntype=text />} .
+ my $top = "<b>$desc</b>";
+ if (my $t_max = $ctx->{-t_max}) {
+ $t_max = ts2str($t_max);
+ $top = qq(<a\nhref="$upfx?t=$t_max">$top</a>);
+ # we had some kind of query, link to /$INBOX/?t=YYYYMMDDhhmmss
+ } elsif ($ctx->{qp}->{t}) {
+ $top = qq(<a\nhref="./">$top</a>);
+ }
+ my $links = "<a\nhref=\"$help\">help</a> / ".
+ "<a\nhref=\"$color\">color</a> / ".
+ "<a\nhref=\"$atom\">Atom feed</a>";
+ if ($ibx->search) {
+ my $q_val = delete($ctx->{-q_value_html}) // '';
+ $q_val = qq(\nvalue="$q_val") if $q_val ne '';
+ # XXX gross, for SearchView.pm
+ my $extra = delete($ctx->{-extra_form_html}) // '';
+ my $action = $upfx eq '' ? './' : $upfx;
+ $top = qq{<form\naction="$action"><pre>$top} .
+ qq{\n<input\nname=q\ntype=text$q_val />} .
+ $extra .