#! /bin/sh
+# Copyright (c) The Exim Maintainers 2023
# Copyright (c) University of Cambridge, 1995 - 2007
# See the file NOTICE for conditions of use and distribution.
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 !~ /\./)