Exinext: handle new-format message IDs

Broken-by: 46a36afae4

diff --git a/src/src/exinext.src b/src/src/exinext.src
index 1a1d88f6b77da757bb764ba152e1e63e6bca12ec..882ad5f6076ed1d7ec7cd6a7268b13cc06fcbe7f 100644 (file)
--- a/src/src/exinext.src
+++ b/src/src/exinext.src
@@ -163,6 +163,7 @@ perl - $exim_path "$eximmacdef" $argone $spool_directory $qualify_domain $config
 
   if (scalar(@list) == 0)
     {
+    push(@list, $subject) if $subject =~ /^\w{6}-\w{11}-\w{4}$/;
     push(@list, $subject) if $subject =~ /^\w{6}-\w{6}-\w{2}$/;
 
     if ($subject !~ /\@/ && $subject !~ /\./)