X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FMail.pm;fp=Debbugs%2FMail.pm;h=caae6ca8c4b86a86fad09ff4489e73dd885eb897;hb=5675f516e72951e15cafa1fa72e1d7ff88bb4d80;hp=a2a27d237ae819937fbf187964c4939d33f45096;hpb=6adc50fe899f229b17e6ee08537a4e9152a1e4fb;p=debbugs.git

diff --git a/Debbugs/Mail.pm b/Debbugs/Mail.pm
index a2a27d2..caae6ca 100644
--- a/Debbugs/Mail.pm
+++ b/Debbugs/Mail.pm
@@ -435,8 +435,10 @@ sub reply_headers{
     $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{'In-Reply-To'} =~ s/(?:^\s*|\s*$)//g if defined $r_l{'In-Reply-To'};
     delete $r_l{'In-Reply-To'} unless defined $r_l{'In-Reply-To'};
     $r_l{References} = ($head->get('References')//''). ' '.($head->get('Message-Id')//'');
+    $r_l{References} =~ s/(?:^\s*|\s*$)//g;
     my $date = $head->get('Date') // 'some date';
     $date =~ s/(?:^\s*|\s*$)//g;
     my $who = $head->get('From') // $head->get('Reply-To') // 'someone';