% layout 'mainlayout';

% my $mail_fmt = begin
  % my ($category, $value) = @_;
  % if (ref $value eq 'ARRAY' && $value->@*) {
    <dt> <%= uc l $category %> </dt>
    % for ($value->@*) {
    <dd>
      %= $_->{name} ? qq("$_->{name}" <$_->{address}>) : "$_->{address}"
    </dd>
    % }
  % }
% end

<div class="jwm-base">

  <h1>Read Mail</h1>

  <dl class="jwm-mail-header">
    <dt> <%= uc l 'subject' %> </dt>
    <dd> <%= $msg->{head}{subject} %> </dd>

    %= $mail_fmt->(from => $msg->{head}{from})
    %= $mail_fmt->(to   => $msg->{head}{to})
    %= $mail_fmt->(cc   => $msg->{head}{cc})
    %= $mail_fmt->(bcc  => $msg->{head}{bcc})

    <dt> <%= uc l 'date' %> </dt>
    <dd> <%= $msg->{head}{date} %> </dd>

    % my $content_type = $msg->{head}{mime}{content_maintype} . '/' . $msg->{head}{mime}{content_subtype};
    <dt> <%= uc l 'content-type' %> </dt>
    <dd> <%= $content_type %> </dd>
  </dl>

% my $body = $msg->{body};

% if ($content_type eq 'multipart/alternative') {
%   for (reverse @{$body->{parts}}) {
  <div class=jwm-mail-body>
%       my $x = mime_render($_->{head}{content_maintype}.'/'.$_->{head}{content_subtype}, $_->{body});
    %== $x;
  </div>
%       last if $x;
%   }
% }
% elsif ($msg->{head}{mime}{content_maintype} eq 'multipart') {
%   for (@{$body->{parts}}) {
  <div class=jwm-mail-body>
    %== mime_render($_->{head}{content_maintype}.'/'.$_->{head}{content_subtype}, $_->{body});
  </div>
%   }
% }
% elsif ($msg->{head}{mime}{content_maintype} eq 'message') {
%   die "not implemented"
% }
% else {
  <div class=jwm-mail-body>
    %== mime_render($content_type, $body);
  </div>
% }

  <nav>
    <a href="javascript:history.back()" class="pure-button">
      %= l 'back'
    </a>
  </nav>

</div>