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 c6328053e4ed8cbc2e91f409294fa31301c4f496..92ccff75e607dc1e626b8f4bf4555a737b5d7e50 100755 (executable)
--- 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',