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

  %= 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

% end

<table id=mail-headers class="pure-table pure-table-horizontal">

  <thead>
    <tr id=sort>
      <th class="hide-small">
        #
      </th>

      <th>
      <div class="pure-g">

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

        <div class="pure-u-1 pure-u-md-4-24">
          %= $sort_param->('date');
        </div>

% if ($folder ne "SENT") {
        <div class="pure-u-1 pure-u-md-8-24">
          %= $sort_param->('sender');
        </div>
% }
% 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>
% }

        <div class="pure-u-1 pure-u-md-12-24">
          %= $sort_param->('subject');
        </div>

      </div>
      </th>

      <th class="hide-small">
        %= $sort_param->('size');
      </th>

      <th>
        <input type=checkbox checked=1 disabled=1>
      </th>
    </tr>
  </thead>

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

    %= tag tr => (class => $msg->{unread} ? 'new-mail' : '') => (id => $msg->{message_handle}) => begin
      <td class="hide-small" style="text-align: right">
        %= $msgnum + 1
      </td>

      <td>
      <div class="pure-g">

        <!--
        <div class="pure-u-1-4">
          %# ucfirst($msg->{head}{mime}{content_maintype} eq 'multipart' ? l('yes') : l('no'));
        </div>
        -->

        <div class="pure-u-1 pure-u-md-4-24">
          % my $date = $v->parse_iso_date($msg->{head}{date});
          %= join('/', $date->{mday}, $date->{month}, $date->{year}) . " $date->{hour}:$date->{min}";
        </div>

        <div class="pure-u-1 pure-u-md-8-24">
          <%= $msg->{head}{sender}[0]{display_name} || $msg->{head}{sender}[0]{address} ||
              $msg->{head}{from}[0]{display_name} || $msg->{head}{from}[0]{address}; %>
        </div>

        <div class="pure-u-1 pure-u-md-12-24">
          %= link_to $msg->{head}{subject} || '_' => read => {id => $msg->{message_handle}}
        </div>

      </div>
      </td>

      <td class="hide-small" style="text-align: right; white-space: nowrap">
        %= $v->print_sizes10($msg->{byte_size});
      </td>

      <td>
        %= check_box mail => $msg->{message_handle} => (form => 'move-mail')
      </td>
    % end

  % }
  </tbody>

</table>