emacs: add list-identifier for a few mailing list groups

… that insist on being annoying and prefix message subjects

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index e52cb9b..2138b89 100644 (file)
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -1540,22 +1540,26 @@ For disabling the behaviour for certain buffers and/or modes."
    gnus-parameters
    '(("gnu\\.deepspec"
       (to-address . "deepspec@lists.cs.princeton.edu")
    gnus-parameters
    '(("gnu\\.deepspec"
       (to-address . "deepspec@lists.cs.princeton.edu")

-      (to-list    . "deepspec@lists.cs.princeton.edu"))
+      (to-list    . "deepspec@lists.cs.princeton.edu")
+      (list-identifier . "\\[deepspec\\]"))

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

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

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

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

      ("gnu\\.gnunet-developers"
       (to-address . "gnunet-developers@gnu.org")
      ("gnu\\.gnunet-developers"
       (to-address . "gnunet-developers@gnu.org")

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

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


@@ -1564,10 +1568,12 @@ For disabling the behaviour for certain buffers and/or modes."
       (to-list    . "guix-devel@gnu.org"))
      ("gnu\\.haskell-art"
       (to-address . "haskell-art@we.lurk.org")
       (to-list    . "guix-devel@gnu.org"))
      ("gnu\\.haskell-art"
       (to-address . "haskell-art@we.lurk.org")

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

      ("gnu\\.haskell-cafe"
       (to-address . "haskell-cafe@haskell.org")
      ("gnu\\.haskell-cafe"
       (to-address . "haskell-cafe@haskell.org")

-      (to-list    . "haskell-cafe@haskell.org"))
+      (to-list    . "haskell-cafe@haskell.org")
+      (list-identifier . "\\[Haskell-cafe\\]"))

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


@@ -1582,7 +1588,8 @@ For disabling the behaviour for certain buffers and/or modes."
       (to-list    . "notmuch@notmuchmail.org"))
      ("gnu\\.parabola-dev"
       (to-address . "dev@lists.parabola.nu")
       (to-list    . "notmuch@notmuchmail.org"))
      ("gnu\\.parabola-dev"
       (to-address . "dev@lists.parabola.nu")

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

      ("gnu\\.webmasters"
       (to-address . "webmasters@gnu.org")
       (to-list    . "webmasters@gnu.org"))
      ("gnu\\.webmasters"
       (to-address . "webmasters@gnu.org")
       (to-list    . "webmasters@gnu.org"))