From 6a8ea81fe457204adbaaedb0c1c6690c9464b6c0 Mon Sep 17 00:00:00 2001
From: Wolfgang Breyha <wbreyha@gmx.net>
Date: Fri, 20 Oct 2023 15:02:38 +0100
Subject: [PATCH] Fix exipick for new message-id format

Broken-by: 46a36afae41f
---
 src/src/exipick.src | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/src/exipick.src b/src/src/exipick.src
index c3830f4a5..ba847f14f 100644
--- a/src/src/exipick.src
+++ b/src/src/exipick.src
@@ -434,10 +434,10 @@ sub get_all_msgs {
     if ($e =~ /^[a-zA-Z0-9]$/) {
       opendir(DD, "$d/$e") || next;
       foreach my $f (grep !/^\./, readdir(DD)) {
-        push(@m, { message => $1, path => "$d/$e" }) if ($f =~ /^(.{16})-H$/);
+        push(@m, { message => $1, path => "$d/$e" }) if ($f =~ /^(.{23}|.{16})-H$/);
       }
       closedir(DD);
-    } elsif ($e =~ /^(.{16})-H$/) {
+    } elsif ($e =~ /^(.{23}|.{16})-H$/) {
       push(@m, { message => $1, path => $d });
     }
   }
-- 
2.30.2