emacs: add list-identifier for a few mailing list groups
authorAmin Bandali <bandali@gnu.org>
Sat, 18 May 2019 21:52:40 +0000 (17:52 -0400)
committerAmin Bandali <bandali@gnu.org>
Sat, 18 May 2019 21:52:40 +0000 (17:52 -0400)
… that insist on being annoying and prefix message subjects

.emacs.d/init.el

index e52cb9b..2138b89 100644 (file)
@@ -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"))