% my $sort_param = begin
  % my $param = shift;

  <th class=sort-param>
    %= link_to url_with->query(sort => $param eq (param('sort') || '') ? '!' . $param : $param) => begin
      % no warnings qw(experimental::smartmatch);
      %= do { given (param('sort')) { '↑' when ($param); '↓' when ('!' . $param) } }
      %= ucfirst l $param;
    % end
  </th>

% end

<table id=mail-headers>

  <colgroup>
    <col width=5% />
    <col width=10% />
    <col width=15% />
    <col width=25% />
    <col width=25% />
    <col width=10% />
    <col width=10% />
  </colgroup>

  <thead>
    <tr id=sort>
      <th>
        %= ucfirst l 'nr'
      </th>

      %= $sort_param->('status');

      %= $sort_param->('date');

    % if ($folder ne "SENT") {
      %= $sort_param->('sender');
    % }
    % else {
      <th class=sort-param>
        %= link_to url_with->query(sort => param('sort') ne '!sender' ? 'sender' : '!sender' ) => begin
          %= ucfirst l 'recipient'
          % if (param('sort') eq "sender") {
            %= image '/down.gif' => (width => 12) => (height => 12) => (border => 0) => (alt => 'v')
          % }
          % elsif (param('sort') eq "recipient_rev") {
            %= image '/up.gif' => (width => 12) => (height => 12) => (border => 0) => (alt => '^')
          % }
        % end
      </th>
    % }

      %= $sort_param->('subject');

      %= $sort_param->('size');

      <th>
        <!-- <img src="/chkb.gif"> -->
        <input type=checkbox checked=1 disabled=1>
      </th>
    </tr>
  </thead>


  <tbody>
  % foreach my $msgnum ($first_item .. $last_item) {
  %   my $msg = $msgs->[$msgnum - $first_item];

    %= tag tr => (class => $msg->{new} ? 'new-mail' : '') => (id => $msg->{mid}) => begin
      <td>
        %= $msgnum
      </td>
      <td>
        %= ucfirst($msg->{is_multipart} ? l('yes') : l('no'));
      </td>
      <td>
        % my $date = parse_iso_date $msg->{head}{date};
        %= join('/', $date->{mday}, $date->{month}, $date->{year}) . " $date->{hour}:$date->{min}";
      </td>
      <td>
        %= $msg->{head}{from}[0]{name} || $msg->{head}{from}[0]{email};
      </td>
      <td>
        %= link_to $msg->{head}{subject} || '_' => read => {id => $msg->{mid}}
      </td>
      <td>
        %= print_sizes10 $msg->{size};
      </td>
      <td>
        %= check_box mail => $msg->{mid} => (form => 'move-mail')
      </td>
    % end

  % }
  </tbody>
</table>