<table border="1" cellspacing="0" cellpadding="2">
%	my @list = ();
%	if ($SortBy == 0) {
%		@list = sort { $MessageList->{$b}->{'TIME'} <=> $MessageList->{$a}->{'TIME'} } keys %$MessageList;
%	} elsif ($SortBy == 1) {
%		@list = sort { $MessageList->{$a}->{'TIME'} <=> $MessageList->{$b}->{'TIME'} } keys %$MessageList;
%	} else {
%		@list = sort { $a <=> $b } keys %$MessageList;
%	}
%	my %showmap = ();
%	foreach (split /,/, $ShowList) {
%		$showmap{$_} = 1;
%	}
%	for (my $pos = 0; $pos <= $#list; $pos++) {
%		next if (not exists $showmap{$list[$pos]});
%		my $received = ''.localtime($MessageList->{$list[$pos]}->{'TIME'});
%		my $from = $MessageList->{$list[$pos]}->{'FROM'};
%		$from = $1 if ($from =~ /\"(.+?)\"/);
<tr>
<td><%$received%></td>
<td><%$from%></td>
<td><b><%$MessageList->{$list[$pos]}->{'FLAGS'} =~ /\\Seen/ ? '' : '(NEW)'%></b>
<i><%$MessageList->{$list[$pos]}->{'FLAGS'} =~ /\\Answered/ ? '(replied)' : ''%></i>
<%$MessageList->{$list[$pos]}->{'SUBJECT'}%></td>
<td style="text-align: right;"><%$MessageList->{$list[$pos]}->{'RFC822.SIZE'}%></td>
</tr>
%	}
</table>
<%ARGS>
$MessageList => undef
$ShowList => ''
$SortBy => 0
</%ARGS>
