# Insert the message into the message table
my @reply = $head->get('Reply-To'); ### newline
# my @from = $head->get('Reply-To');
my @from = $head->get('from'); ### newline
@from = $head->get('Reply-To') unless @from; ### newline
# @from = $head->get('from') unless @from;
my $sth = $msgs->insert({
msgs_size => $size,
msgs_sent => $date,
msgs_sent_from => join(", " => @from) || '',
msgs_sent_to => join(", " => $head->get('to')) || '',
msgs_sent_cc => join(", " => $head->get('cc')) || '',
msgs_reply_to => join(", " => @reply) || '', ### newline
msgs_subject => join(", " => $head->get('subject')) || '',
msgs_message_id => ($head->get('message-id') || ''),
msgs_has_attach => (($head->is_multipart) ? 'Yes' : 'No'),
msgs_has_html => $has_html,
msgs_checksum => $checksum,
msgs_content => ($head->get('content-type') || ''),
GT_SQL_SKIP_CHECK => 1,
});
my $id = $sth->insert_id;