master 7f312f0 1/2: Shorten Gnus groups with [foo] in the name better

[Lars Ingebrigtsen]

branch: master
commit 7f312f0be6b4cd2b46f37c61609fe9ff6315a848
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Shorten Gnus groups with [foo] in the name better
    
    * lisp/gnus/gnus.el (gnus-short-group-name): Shorten groups with
    [] in the names better (bug#51450).
---
 lisp/gnus/gnus.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el
index 6644cc4..dbbbb71 100644
--- a/lisp/gnus/gnus.el
+++ b/lisp/gnus/gnus.el
@@ -3785,6 +3785,8 @@ just the host name."
          (setq foreign server
                group (substring group (+ 1 colon))))
        (setq foreign (concat foreign ":")))
+      ;; Remove braces from name (common in IMAP groups).
+      (setq group (replace-regexp-in-string "[][]+" "" group))
       ;; Collapse group name leaving LEVELS uncollapsed elements
       (let* ((slist (split-string group "/"))
             (slen (length slist))