emacs: gnus: fix regexp for lists.sr.ht lists
authorAmin Bandali <bandali@gnu.org>
Thu, 22 Aug 2019 00:18:14 +0000 (20:18 -0400)
committerAmin Bandali <bandali@gnu.org>
Thu, 22 Aug 2019 00:18:14 +0000 (20:18 -0400)
omitting one dot if present.  e.g.,

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

.emacs.d/init.el

index d3f8850..0d23dfe 100644 (file)
@@ -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")
                                  ;; (: 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
                                  ;; webmasters
                                  (from "webmasters\\(-comment\\)?@gnu\\.org" "webmasters")
                                  ;; other