- my $pa = "<$dst->{-primary_address}>";
- $simple->header_set("List-Id", $pa);
- $simple->header_set("List-Post", $pa);
-
- # prevent training loops
- $simple->header_set('Delivered-To');
-
- my $url = $dst->{url};
- if (defined $url) {
- $simple->header_set("List-Archive", "<$url>");
- $simple->header_set("List-Help", "<${url}help>");
+ unless (defined $simple->header('List-Id')) {
+ my $pa = $dst->{-primary_address};
+ $pa =~ tr/@/./; # RFC2919
+ $simple->header_set("List-Id", "<$pa>");