s/([\s,])S=\d+\b/$1S=sss/;
s/:S\d+\b/:Ssss/;
- s/^(\s*\d+[mhd]\s+)\d+(\s+(?:[a-z0-9-]{23}|[a-z0-9-]{18}) <)/TTT sss$2/i if $is_stdout;
+ s/^(\s*\d+[mhd]\s+)\d+(\s+(?:[[:alnum:]-]{23}|[[:alnum:]-]{16}) <)/TTT sss$2/i if $is_stdout;
s/\sSIZE=\d+\b/ SIZE=ssss/;
s/\ssize=\d+\b/ size=sss/ if $is_stderr;
s/old size = \d+\b/old size = sssss/;
### Check that delivery of old-format spoolfiles works
-TTT sss 10HmaX-0005vi-00-H <nobody@test.ex>
+TTT sss 10HmaX-0005vi-00 <nobody@test.ex>
nulldeliver@test.ex
### Check that the format-mangler utility can downgrade spoolfiles
nulldeliver@test.ex
exim_id_update exit code = 0
-TTT sss 10HmaY-0005vi-00-H <CALLER@the.local.host.name>
+TTT sss 10HmaY-0005vi-00 <CALLER@the.local.host.name>
nulldeliver@test.ex
### Check that the format-mangler utility can upgrade spoolfiles