my $mime = $smsg->mime;
my $refs = $mime->header('References');
my @refs = $refs ? ($refs =~ /<([^>]+)>/g) : ();
my $irt = $mime->header('In-Reply-To');
if ($irt) {
my $mime = $smsg->mime;
my $refs = $mime->header('References');
my @refs = $refs ? ($refs =~ /<([^>]+)>/g) : ();
my $irt = $mime->header('In-Reply-To');
if ($irt) {