{
    foreach my $pattern (@patterns)
    {
	my %props = $pattern->props;
	
	next unless ($props{type} eq 'pattern');

	next unless ($props{Status} eq 'enabled');

	foreach my $body (split(/,/, $props{Body}))
	{
	    my $line  = ($props{LineStart} eq 'yes') ? '\\' : '';
	    $line    .= $body;
	    $line    .= ($props{Glob} eq 'yes') ? '*' : '';

	    my $name  = $pattern->key;

	$OUT .= <<HERE;
=We don't accept email with executable content $name - $body (#5.3.4)
$line
HERE
	}
    }

    "";
}
