From: Amin Bandali <bandali@gnu.org>
Date: Thu, 22 Aug 2019 00:18:14 +0000 (-0400)
Subject: emacs: gnus: fix regexp for lists.sr.ht lists
X-Git-Url: https://git.shemshak.org/~bandali/configs/commitdiff_plain/e81c7cd4fecdf9d04f687922ccaea85454a23f2d?ds=inline;hp=1c9d04d792677faed5ec68a8fdc42d44c827ae74

emacs: gnus: fix regexp for lists.sr.ht lists

omitting one dot if present.  e.g.,

    ~sircmpwn/sr.ht-dev@lists.sr.ht
 =>
    l.~sircmpwn.srht-dev
---

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index d3f8850..0d23dfe 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -1599,8 +1599,9 @@ For disabling the behaviour for certain buffers and/or modes."
                                  ;; (: gnus-group-split-fancy "INBOX" t "INBOX")
                                  ;; gnu
                                  (list ".*<\\(.*\\)\\.\\(non\\)?gnu\\.org>.*" "l.\\1")
-                                 ;; *@lists.sr.ht
-                                 (list ".*<~\\(.*\\)/\\(.*\\)@lists.sr.ht>" "l.~\\1.\\2")
+                                 ;; *@lists.sr.ht, omitting one dot if present
+                                 ;;    add more \\.?\\([^.@]*\\) if needed
+                                 (list ".*<~\\(.*\\)/\\([^.@]*\\)\\.?\\([^.@]*\\)@lists.sr.ht>.*" "l.~\\1.\\2\\3")
                                  ;; webmasters
                                  (from "webmasters\\(-comment\\)?@gnu\\.org" "webmasters")
                                  ;; other