$r_l{subject} = 'Re: '. $r_l{subject} unless $r_l{subject} =~ /(?:^|\s)Re:\s+/;
$r_l{subject} =~ s/(?:^\s*|\s*$)//g;
$r_l{'In-Reply-To'} = $head->get('Message-Id');
$r_l{subject} = 'Re: '. $r_l{subject} unless $r_l{subject} =~ /(?:^|\s)Re:\s+/;
$r_l{subject} =~ s/(?:^\s*|\s*$)//g;
$r_l{'In-Reply-To'} = $head->get('Message-Id');