emacs: gnus: simplify gnu lists folder structures

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 91f3657..94b9810 100644 (file)
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -1598,28 +1598,7 @@ For disabling the behaviour for certain buffers and/or modes."
                                  ;; (: gnus-registry-split-fancy-with-parent)
                                  ;; (: gnus-group-split-fancy "INBOX" t "INBOX")
                                  ;; gnu
                                  ;; (: gnus-registry-split-fancy-with-parent)
                                  ;; (: gnus-group-split-fancy "INBOX" t "INBOX")
                                  ;; gnu

-                                 (list ".*emacs-devel.gnu.org" "l.gnu.emacs.devel")
-                                 (list ".*help-gnu-emacs.gnu.org" "l.gnu.emacs.help")
-                                 (list ".*info-gnu-emacs.gnu.org" "l.gnu.emacs.info")
-                                 (list ".*emacs-orgmode.gnu.org" "l.gnu.emacs.orgmode")
-                                 (list ".*emacs-tangents.gnu.org" "l.gnu.emacs.tangents")
-                                 (list ".*emacsconf-discuss.gnu.org" "l.gnu.emacsconf.discuss")
-                                 (list ".*emacsconf-register.gnu.org" "l.gnu.emacsconf.register")
-                                 (list ".*emacsconf-submit.gnu.org" "l.gnu.emacsconf.submit")
-                                 (list ".*fencepost-users.gnu.org" "l.gnu.fencepost.users")
-                                 (list ".*gnunet-developers.gnu.org" "l.gnu.gnunet.developers")
-                                 (list ".*help-gnunet.gnu.org" "l.gnu.gnunet.help")
-                                 (list ".*bug-gnuzilla.gnu.org" "l.gnu.gnuzilla.bug")
-                                 (list ".*gnuzilla-dev.gnu.org" "l.gnu.gnuzilla.dev")
-                                 (list ".*guile-devel.gnu.org" "l.gnu.guile.devel")
-                                 (list ".*guile-user.gnu.org" "l.gnu.guile.user")
-                                 (list ".*guix-devel.gnu.org" "l.gnu.guix.devel")
-                                 (list ".*help-guix.gnu.org" "l.gnu.guix.help")
-                                 (list ".*info-guix.gnu.org" "l.gnu.guix.info")
-                                 (list ".*savannah-hackers-public.gnu.org" "l.gnu.savannah.hackers.public")
-                                 (list ".*savannah-users.gnu.org" "l.gnu.savannah.users")
-                                 (list ".*www-commits.gnu.org" "l.gnu.www.commits")
-                                 (list ".*www-discuss.gnu.org" "l.gnu.www.discuss")
+                                 (list "\\(.*\\).gnu.org" "l.\\1")

                                  ;; webmasters
                                  (from "webmasters\\(-comment\\)?@gnu\\.org" "webmasters")
                                  ;; haskell
                                  ;; webmasters
                                  (from "webmasters\\(-comment\\)?@gnu\\.org" "webmasters")
                                  ;; haskell


@@ -1629,14 +1608,9 @@ For disabling the behaviour for certain buffers and/or modes."
                                  (list ".*atreus.freelists.org" "l.atreus")
                                  (list ".*deepspec.lists.cs.princeton.edu" "l.deepspec")
                                  (list ".*notmuch.notmuchmail.org" "l.notmuch")
                                  (list ".*atreus.freelists.org" "l.atreus")
                                  (list ".*deepspec.lists.cs.princeton.edu" "l.deepspec")
                                  (list ".*notmuch.notmuchmail.org" "l.notmuch")

-                                 (list ".*dev.lists.parabola.nu" "l.parabola.dev")
+                                 (list ".*dev.lists.parabola.nu" "l.parabola-dev")

                                  ;; *@lists.sr.ht
                                  ;; *@lists.sr.ht

-                                 (list ".*~bandali/public-inbox@lists.sr.ht" "l.~bandali.public-inbox")
-                                 (list ".*~sircmpwn/free-writers-club@lists.sr.ht" "l.~sircmpwn.free-writers-club")
-                                 (list ".*~sircmpwn/sr.ht-admins@lists.sr.ht" "l.~sircmpwn.srht.admins")
-                                 (list ".*~sircmpwn/sr.ht-announce@lists.sr.ht" "l.~sircmpwn.srht.announce")
-                                 (list ".*~sircmpwn/sr.ht-dev@lists.sr.ht" "l.~sircmpwn.srht.dev")
-                                 (list ".*~sircmpwn/sr.ht-discuss@lists.sr.ht" "l.~sircmpwn.srht.discuss")
+                                 (list ".*~\\(.*\\)/\\(.*\\)@lists.sr.ht" "l.~\\1.\\2")

                                  "INBOX")))
      (nnimap "uw"
              (nnimap-stream plain)
                                  "INBOX")))
      (nnimap "uw"
              (nnimap-stream plain)


@@ -1668,90 +1642,90 @@ For disabling the behaviour for certain buffers and/or modes."
       (to-address . "deepspec@lists.cs.princeton.edu")
       (to-list    . "deepspec@lists.cs.princeton.edu")
       (list-identifier . "\\[deepspec\\]"))
       (to-address . "deepspec@lists.cs.princeton.edu")
       (to-list    . "deepspec@lists.cs.princeton.edu")
       (list-identifier . "\\[deepspec\\]"))

-     ("l\\.gnu\\.emacs\\.devel"
+     ("l\\.emacs-devel"

       (to-address . "emacs-devel@gnu.org")
       (to-list    . "emacs-devel@gnu.org"))
       (to-address . "emacs-devel@gnu.org")
       (to-list    . "emacs-devel@gnu.org"))

-     ("l\\.gnu\\.emacs\\.help"
+     ("l\\.help-gnu-emacs"

       (to-address . "help-gnu-emacs@gnu.org")
       (to-list    . "help-gnu-emacs@gnu.org"))
       (to-address . "help-gnu-emacs@gnu.org")
       (to-list    . "help-gnu-emacs@gnu.org"))

-     ("l\\.gnu\\.emacs\\.info"
+     ("l\\.info-gnu-emacs"

       (to-address . "info-gnu-emacs@gnu.org")
       (to-list    . "info-gnu-emacs@gnu.org"))
       (to-address . "info-gnu-emacs@gnu.org")
       (to-list    . "info-gnu-emacs@gnu.org"))

-     ("l\\.gnu\\.emacs\\.orgmode"
+     ("l\\.emacs-orgmode"

       (to-address . "emacs-orgmode@gnu.org")
       (to-list    . "emacs-orgmode@gnu.org")
       (list-identifier . "\\[O\\]"))
       (to-address . "emacs-orgmode@gnu.org")
       (to-list    . "emacs-orgmode@gnu.org")
       (list-identifier . "\\[O\\]"))

-     ("l\\.gnu\\.emacs\\.tangents"
+     ("l\\.emacs-tangents"

       (to-address . "emacs-tangents@gnu.org")
       (to-list    . "emacs-tangents@gnu.org"))
       (to-address . "emacs-tangents@gnu.org")
       (to-list    . "emacs-tangents@gnu.org"))

-     ("l\\.gnu\\.emacsconf\\.discuss"
+     ("l\\.emacsconf-discuss"

       (to-address . "emacsconf-discuss@gnu.org")
       (to-list    . "emacsconf-discuss@gnu.org"))
       (to-address . "emacsconf-discuss@gnu.org")
       (to-list    . "emacsconf-discuss@gnu.org"))

-     ("l\\.gnu\\.emacsconf\\.register"
+     ("l\\.emacsconf-register"

       (to-address . "emacsconf-register@gnu.org")
       (to-list    . "emacsconf-register@gnu.org"))
       (to-address . "emacsconf-register@gnu.org")
       (to-list    . "emacsconf-register@gnu.org"))

-     ("l\\.gnu\\.emacsconf\\.submit"
+     ("l\\.emacsconf-submit"

       (to-address . "emacsconf-submit@gnu.org")
       (to-list    . "emacsconf-submit@gnu.org"))
       (to-address . "emacsconf-submit@gnu.org")
       (to-list    . "emacsconf-submit@gnu.org"))

-     ("l\\.gnu\\.fencepost\\.users"
+     ("l\\.fencepost-users"

       (to-address . "fencepost-users@gnu.org")
       (to-list    . "fencepost-users@gnu.org")
       (list-identifier . "\\[Fencepost-users\\]"))
       (to-address . "fencepost-users@gnu.org")
       (to-list    . "fencepost-users@gnu.org")
       (list-identifier . "\\[Fencepost-users\\]"))

-     ("l\\.gnu\\.gnunet\\.developers"
+     ("l\\.gnunet-developers"

       (to-address . "gnunet-developers@gnu.org")
       (to-list    . "gnunet-developers@gnu.org")
       (list-identifier . "\\[GNUnet-developers\\]"))
       (to-address . "gnunet-developers@gnu.org")
       (to-list    . "gnunet-developers@gnu.org")
       (list-identifier . "\\[GNUnet-developers\\]"))

-     ("l\\.gnu\\.gnunet\\.help"
+     ("l\\.help-gnunet"

       (to-address . "help-gnunet@gnu.org")
       (to-list    . "help-gnunet@gnu.org")
       (list-identifier . "\\[Help-gnunet\\]"))
       (to-address . "help-gnunet@gnu.org")
       (to-list    . "help-gnunet@gnu.org")
       (list-identifier . "\\[Help-gnunet\\]"))

-     ("l\\.gnu\\.gnuzilla\\.bug"
+     ("l\\.bug-gnuzilla"

       (to-address . "bug-gnuzilla@gnu.org")
       (to-list    . "bug-gnuzilla@gnu.org")
       (list-identifier . "\\[Bug-gnuzilla\\]"))
       (to-address . "bug-gnuzilla@gnu.org")
       (to-list    . "bug-gnuzilla@gnu.org")
       (list-identifier . "\\[Bug-gnuzilla\\]"))

-     ("l\\.gnu\\.gnuzilla\\.dev"
+     ("l\\.gnuzilla-dev"

       (to-address . "gnuzilla-dev@gnu.org")
       (to-list    . "gnuzilla-dev@gnu.org")
       (list-identifier . "\\[Gnuzilla-dev\\]"))
       (to-address . "gnuzilla-dev@gnu.org")
       (to-list    . "gnuzilla-dev@gnu.org")
       (list-identifier . "\\[Gnuzilla-dev\\]"))

-     ("l\\.gnu\\.guile\\.devel"
+     ("l\\.guile-devel"

       (to-address . "guile-devel@gnu.org")
       (to-list    . "guile-devel@gnu.org"))
       (to-address . "guile-devel@gnu.org")
       (to-list    . "guile-devel@gnu.org"))

-     ("l\\.gnu\\.guile\\.user"
+     ("l\\.guile-user"

       (to-address . "guile-user@gnu.org")
       (to-list    . "guile-user@gnu.org"))
       (to-address . "guile-user@gnu.org")
       (to-list    . "guile-user@gnu.org"))

-     ("l\\.gnu\\.guix\\.devel"
+     ("l\\.guix-devel"

       (to-address . "guix-devel@gnu.org")
       (to-list    . "guix-devel@gnu.org"))
       (to-address . "guix-devel@gnu.org")
       (to-list    . "guix-devel@gnu.org"))

-     ("l\\.gnu\\.guix\\.help"
+     ("l\\.help-guix"

       (to-address . "help-guix@gnu.org")
       (to-list    . "help-guix@gnu.org"))
       (to-address . "help-guix@gnu.org")
       (to-list    . "help-guix@gnu.org"))

-     ("l\\.gnu\\.guix\\.info"
+     ("l\\.info-guix"

       (to-address . "info-guix@gnu.org")
       (to-list    . "info-guix@gnu.org"))
       (to-address . "info-guix@gnu.org")
       (to-list    . "info-guix@gnu.org"))

-     ("l\\.gnu\\.savannah\\.hackers\\.public"
+     ("l\\.savannah-hackers-public"

       (to-address . "savannah-hackers-public@gnu.org")
       (to-list    . "savannah-hackers-public@gnu.org"))
       (to-address . "savannah-hackers-public@gnu.org")
       (to-list    . "savannah-hackers-public@gnu.org"))

-     ("l\\.gnu\\.savannah\\.users"
+     ("l\\.savannah-users"

       (to-address . "savannah-users@gnu.org")
       (to-list    . "savannah-users@gnu.org"))
       (to-address . "savannah-users@gnu.org")
       (to-list    . "savannah-users@gnu.org"))

-     ("l\\.gnu\\.www\\.commits"
+     ("l\\.www-commits"

       (to-address . "www-commits@gnu.org")
       (to-list    . "www-commits@gnu.org"))
       (to-address . "www-commits@gnu.org")
       (to-list    . "www-commits@gnu.org"))

-     ("l\\.gnu\\.www\\.discuss"
+     ("l\\.www-discuss"

       (to-address . "www-discuss@gnu.org")
       (to-list    . "www-discuss@gnu.org"))
       (to-address . "www-discuss@gnu.org")
       (to-list    . "www-discuss@gnu.org"))

-     ("l\\.haskell\\.art"
+     ("l\\.haskell-art"

       (to-address . "haskell-art@we.lurk.org")
       (to-list    . "haskell-art@we.lurk.org")
       (list-identifier . "\\[haskell-art\\]"))
       (to-address . "haskell-art@we.lurk.org")
       (to-list    . "haskell-art@we.lurk.org")
       (list-identifier . "\\[haskell-art\\]"))

-     ("l\\.haskell\\.cafe"
+     ("l\\.haskell-cafe"

       (to-address . "haskell-cafe@haskell.org")
       (to-list    . "haskell-cafe@haskell.org")
       (list-identifier . "\\[Haskell-cafe\\]"))
      ("l\\.notmuch"
       (to-address . "notmuch@notmuchmail.org")
       (to-list    . "notmuch@notmuchmail.org"))
       (to-address . "haskell-cafe@haskell.org")
       (to-list    . "haskell-cafe@haskell.org")
       (list-identifier . "\\[Haskell-cafe\\]"))
      ("l\\.notmuch"
       (to-address . "notmuch@notmuchmail.org")
       (to-list    . "notmuch@notmuchmail.org"))

-     ("l\\.parabola\\.dev"
+     ("l\\.parabola-dev"

       (to-address . "dev@lists.parabola.nu")
       (to-list    . "dev@lists.parabola.nu")
       (list-identifier . "\\[Dev\\]"))
       (to-address . "dev@lists.parabola.nu")
       (to-list    . "dev@lists.parabola.nu")
       (list-identifier . "\\[Dev\\]"))


@@ -1761,16 +1735,16 @@ For disabling the behaviour for certain buffers and/or modes."
      ("l\\.~sircmpwn\\.free-writers-club"
       (to-address . "~sircmpwn/free-writers-club@lists.sr.ht")
       (to-list    . "~sircmpwn/free-writers-club@lists.sr.ht"))
      ("l\\.~sircmpwn\\.free-writers-club"
       (to-address . "~sircmpwn/free-writers-club@lists.sr.ht")
       (to-list    . "~sircmpwn/free-writers-club@lists.sr.ht"))

-     ("l\\.~sircmpwn\\.srht\\.admins"
+     ("l\\.~sircmpwn\\.srht-admins"

       (to-address . "~sircmpwn/sr.ht-admins@lists.sr.ht")
       (to-list    . "~sircmpwn/sr.ht-admins@lists.sr.ht"))
       (to-address . "~sircmpwn/sr.ht-admins@lists.sr.ht")
       (to-list    . "~sircmpwn/sr.ht-admins@lists.sr.ht"))

-     ("l\\.~sircmpwn\\.srht\\.announce"
+     ("l\\.~sircmpwn\\.srht-announce"

       (to-address . "~sircmpwn/sr.ht-announce@lists.sr.ht")
       (to-list    . "~sircmpwn/sr.ht-announce@lists.sr.ht"))
       (to-address . "~sircmpwn/sr.ht-announce@lists.sr.ht")
       (to-list    . "~sircmpwn/sr.ht-announce@lists.sr.ht"))

-     ("l\\.~sircmpwn\\.srht\\.dev"
+     ("l\\.~sircmpwn\\.srht-dev"

       (to-address . "~sircmpwn/sr.ht-dev@lists.sr.ht")
       (to-list    . "~sircmpwn/sr.ht-dev@lists.sr.ht"))
       (to-address . "~sircmpwn/sr.ht-dev@lists.sr.ht")
       (to-list    . "~sircmpwn/sr.ht-dev@lists.sr.ht"))

-     ("l\\.~sircmpwn\\.srht\\.discuss"
+     ("l\\.~sircmpwn\\.srht-discuss"

       (to-address . "~sircmpwn/sr.ht-discuss@lists.sr.ht")
       (to-list    . "~sircmpwn/sr.ht-discuss@lists.sr.ht"))
      ("webmasters"
       (to-address . "~sircmpwn/sr.ht-discuss@lists.sr.ht")
       (to-list    . "~sircmpwn/sr.ht-discuss@lists.sr.ht"))
      ("webmasters"