From: Ian Campbell <ijc@hellion.org.uk>
Date: Sun, 13 Jan 2013 19:37:39 +0000 (+0000)
Subject: control.pl: improve References header on reply
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=18a0b45403b2a9aaf2d1961b5afdf1736ec1d7c4;p=people%2Faperard%2Femesinae.git

control.pl: improve References header on reply

If the original message didn't have a references header but did have an
in-reply-to then fabricate a references header.
---

diff --git a/scripts/control.pl b/scripts/control.pl
index c632805..92ccff7 100755
--- a/scripts/control.pl
+++ b/scripts/control.pl
@@ -44,11 +44,17 @@ sub genreply ($@) {
     my @cc_field;
     my @bcc_field;
 
-    my $in_reply_to = $head->get('message-id');
-    my $references  = $head->get('references');
+    my $message_id = $head->get('message-id');
+    my $references = $head->get('references');
 
-    if ($in_reply_to) {
-        $references .= " $in_reply_to";
+    my $in_reply_to = $head->get('in-reply-to');
+
+    if ( not $references and $in_reply_to ) {
+        $references = $in_reply_to;
+    }
+
+    if ($message_id) {
+        $references .= " $message_id";
     }
     else {
         unshift @content,
@@ -71,7 +77,7 @@ sub genreply ($@) {
         Subject => $msubject,
 
         References     => $references,
-        'In-Reply-To:' => $in_reply_to,
+        'In-Reply-To:' => $message_id,
 
         Type    => 'text/plain',
         Charset => 'utf-8',