diff options
| author | Amin Bandali <bandali@gnu.org> | 2019-08-21 18:51:33 -0400 |
|---|---|---|
| committer | Amin Bandali <bandali@gnu.org> | 2019-08-21 18:51:33 -0400 |
| commit | f02d2b28e2b5f84b18985743bc27601cb4c95ce2 (patch) | |
| tree | 2828bbd3a53daabc32e9d9c0c6b2318884a0622a | |
| parent | 7f3d862f6313ddd4baaa2a3abce348c3408d3750 (diff) | |
| download | configs-f02d2b28e2b5f84b18985743bc27601cb4c95ce2.tar.gz configs-f02d2b28e2b5f84b18985743bc27601cb4c95ce2.tar.xz configs-f02d2b28e2b5f84b18985743bc27601cb4c95ce2.zip | |
emacs: gnus: fix gnu regexp, add ‘list’ to nnmail-split-abbrev-alist
| -rw-r--r-- | .emacs.d/init.el | 25 |
1 files changed, 17 insertions, 8 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index b703965..71b7f10 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -1598,19 +1598,22 @@ For disabling the behaviour for certain buffers and/or modes." ;; (: gnus-registry-split-fancy-with-parent) ;; (: gnus-group-split-fancy "INBOX" t "INBOX") ;; gnu - (list "\\(.*\\).\\(non\\)?gnu.org" "l.\\1") + (list ".*<\\(.*\\)\\.\\(non\\)?gnu\\.org>.*" "l.\\1") + ;; *@lists.sr.ht + (list ".*<~\\(.*\\)/\\(.*\\)@lists.sr.ht>" "l.~\\1.\\2") ;; webmasters (from "webmasters\\(-comment\\)?@gnu\\.org" "webmasters") - ;; haskell - (list ".*haskell-art.we.lurk.org" "l.haskell.art") - (list ".*haskell-cafe.haskell.org" "l.haskell.cafe") ;; other (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") - ;; *@lists.sr.ht - (list ".*~\\(.*\\)/\\(.*\\)@lists.sr.ht" "l.~\\1.\\2") + ;; (list ".*haskell-art.we.lurk.org" "l.haskell.art") ;d + (list ".*haskell-cafe.haskell.org" "l.haskell.cafe") + ;; (list ".*notmuch.notmuchmail.org" "l.notmuch") ;u + ;; (list ".*dev.lists.parabola.nu" "l.parabola-dev") ;u + ;; ---------------------------------- + ;; legend: (u)nsubscribed | (d)ead + ;; ---------------------------------- + ;; otherwise, leave mail in INBOX "INBOX"))) (nnimap "uw" (nnimap-stream plain) @@ -1782,6 +1785,12 @@ For disabling the behaviour for certain buffers and/or modes." (require 'ebdb-mua) (require 'ebdb-gnus) + (when (version< emacs-version "27") + (add-to-list + 'nnmail-split-abbrev-alist + '(list . "list-id\\|list-post\\|x-mailing-list\\|x-beenthere\\|x-loop") + t)) + ;; (gnus-registry-initialize) (with-eval-after-load 'recentf |