sub message_id($)
{
    my $tr = shift; defined $tr or cluck(), return undef;
    $tr->isa('HTML::Element')   or return undef;
    my $td = ($tr->content_list())[0];
    return $td->as_trimmed_text();
}