- foreach my $h (qw(delivered-to), # prevent training loops
- # The rest are taken from Mailman 2.1.15
- # could contain passwords:
- qw(approved approve x-approved x-approve urgent),
- # could be used phishing:
- qw(return-receipt-to disposition-notification-to
- x-confirm-reading-to),
- # Pegasus mail:
- qw(x-pmrqc)) {
- $simple->header_set($h);
- }