From 7f312f0be6b4cd2b46f37c61609fe9ff6315a848 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Fri, 29 Oct 2021 15:29:17 +0200 Subject: [PATCH] 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 6644cc4d814..dbbbb71e57f 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)) -- 2.39.2