mostly features, some minor bug fixes

[distro-setup] / subdir_files / sieve / liststest.sieve

diff --git a/subdir_files/sieve/liststest.sieve b/subdir_files/sieve/liststest.sieve
index 01f534985faa6af80aba4c4571433536f122a6e2..c44919b6d062355fb3b26db79f5fa24a62b923f5 100644 (file)
--- a/subdir_files/sieve/liststest.sieve
+++ b/subdir_files/sieve/liststest.sieve
@@ -85,13 +85,19 @@ if anyof (
   header :contains "list-id" "<qemu-devel.nongnu.org>",
   header :contains "list-id" "<exim-dev.exim.org>",
   header :contains "list-id" "<exim-users.exim.org>",
+# may 2023 exim list ids changed
+  header :contains "list-id" "<exim-dev.lists.exim.org>",
+  header :contains "list-id" "<exim-users.lists.exim.org>",
   header :contains "list-id" "<octave-maintainers.gnu.org>",
   header :contains "list-id" "<discuss-gnuradio.gnu.org>",
   header :contains "list-id" "<seabios.seabios.org>",
   header :contains "list-id" "<freetype-devel.nongnu.org>",
   header :contains "list-id" "<mailman-developers.python.org>",
+  header :contains "list-id" "<emacs-erc.gnu.org>",
   header :contains "list-id" "<linux-raid.vger.kernel.org>",
   header :contains "list-id" "<mailop.mailop.org>",
+  header :contains "list-id" "<gcc.gcc.gnu.org>",
+  header :contains "list-id" "<lilypond-devel.gnu.org>",
   header :contains "list-id" "<xmonad.haskell.org>") {
   if header :regex "list-id" "<([a-z_0-9-]+)[.@]" {
     set :lower "listname" "${1}";
@@ -118,6 +124,15 @@ if anyof (
   stop;
 }
 
+if anyof (
+  header :contains "list-id" "<site-comments.w3.org>"
+  ) {
+  fileinto :create "l/w3c-site-comments";
+  stop;
+}
+
+
+
 if anyof (
   header :contains "list-id" "<~sircmpwn/sr.ht-discuss.lists.sr.ht>"
   ) {
@@ -134,8 +149,8 @@ if anyof (
 
 if anyof (
   header :contains "list-id" "<ln.lists.fsfe.org>",
-  header :contains "list-id" "<gnu-prog-discuss.gnu.org>",
-  header :contains "list-id" "<gnu-prog.gnu.org>",
+#  header :contains "list-id" "<gnu-prog-discuss.gnu.org>",
+#  header :contains "list-id" "<gnu-prog.gnu.org>",
   header :contains "list-id" "<www-discuss.gnu.org>",
   header :contains "list-id" "<gnu-community-private.gnu.org>",
   header :contains "list-id" "<gvc.gnu.org>",
@@ -144,6 +159,8 @@ if anyof (
   header :contains "list-id" "<Spdx-legal.lists.spdx.org>",
   header :contains "list-id" "<info-gnu.gnu.org>",
   header :contains "list-id" "<gnu-system-discuss.gnu.org>",
+  header :contains "list-id" "<discuss.lists.blu.org>",
+  header :contains "list-id" "<announce.lists.blu.org>",
   header :contains "list-id" "<spdx.lists.spdx.org>"
   ) {
   fileinto :create "community";