From 5675f516e72951e15cafa1fa72e1d7ff88bb4d80 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Wed, 30 Jul 2014 14:10:46 -0700
Subject: [PATCH] remove leading and trailing spaces in references and replyto
---
Debbugs/Mail.pm | 2 ++
1 file changed, 2 insertions(+)
diff --git a/Debbugs/Mail.pm b/Debbugs/Mail.pm
index a2a27d23..caae6ca8 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';
--
2.39.5