[exim] Re: exipick broken in 4.72-RC2?

> On 19/10/2023 07:18, Odhiambo Washington via Exim-users wrote:
> > I have some 8 emails listed when I do `exim -bp`,  and they are all
> marked
> > as *** frozen ***.
> > However, both `exipick -iz` and `exipick -i` give no output.
>
> My previous patch was bloated and incomplete:
> --- /usr/local/exim/sbin/exipick.orig   2023-10-20 15:00:07.855960490 +0200
> +++ /usr/local/exim/sbin/exipick        2023-10-20 15:01:20.723485590 +0200
> @@ -434,10 +434,10 @@
>      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 =~
> /^(.{16}|.{23})-H$/);
>        }
>        closedir(DD);
> -    } elsif ($e =~ /^(.{16})-H$/) {
> +    } elsif ($e =~ /^(.{16}|.{23})-H$/) {
>        push(@m, { message => $1, path => $d });
>      }
>    }
>
> Greetings, Wolfgang
>