- store "=autoconfpat","log" if headerhas "List-Id" ,'<autoconf-patches.gnu.org>'; # has<="... autoconf, the GNU ..."
- if (headeris("From" ,'<mailman-owner@vellum.cz>')
- || headeris("From" ,'<captive-list-admin@jankratochvil.net>')
- || headeris("From" ,'<captive-devel-list-admin@jankratochvil.net>')
- || headeris("From" ,'<captive-announce-list-admin@jankratochvil.net>')) {
- store "=caperr","log";
- }
- else {
+ store "=autoconfpat","log" if headeris "List-Id" ,'<autoconf-patches.gnu.org>';
+ my %mailman=(
+ '<captive-admin@>'=>"=caperr",
+ '<captive-devel-admin@>'=>"=caperr",
+ '<captive-announce-admin@>'=>"=caperr",
+ '<4c-admin@>'=>"=4cerr",
+ );
+ if (!did sub {
+ while ((my($mailaddr,$folder)=each(%mailman))) {
+ (my $maillistaddr=$mailaddr)=~s/-admin/-list$&/;
+ store $folder,"log" if (headeris("From",'<mailman-owner@vellum.cz>')&&headeris("To",$mailaddr))
+ || headeris("From",$maillistaddr)
+ || headeris("To",$maillistaddr)
+ || headeris("From",$mailaddr);
+ }
+ }) {