From 0092a856ff3900c3771408893fb7fd8d731de568 Mon Sep 17 00:00:00 2001 From: Eric Abrahamsen Date: Mon, 15 May 2017 17:26:16 +0800 Subject: [PATCH] Marked groups should always be visible in *Group* buffer * lisp/gnus/gnus-group.el (gnus-group-prepare-flat): Check for the mark in these two locations. * lisp/gnus/gnus-topic.el (gnus-topic-find-groups) --- lisp/gnus/gnus-group.el | 2 ++ lisp/gnus/gnus-topic.el | 2 ++ 2 files changed, 4 insertions(+) diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index 89f17316cf1..3b6ff0ab813 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el @@ -1359,6 +1359,8 @@ if it is a string, only list groups matching REGEXP." (and gnus-permanently-visible-groups (string-match gnus-permanently-visible-groups group)) + ;; Marked groups are always visible. + (member group gnus-group-marked) (memq 'visible params) (cdr (assq 'visible params))))))) (gnus-group-insert-group-line diff --git a/lisp/gnus/gnus-topic.el b/lisp/gnus/gnus-topic.el index ea42a3e5052..ba756e0314c 100644 --- a/lisp/gnus/gnus-topic.el +++ b/lisp/gnus/gnus-topic.el @@ -220,6 +220,8 @@ If RECURSIVE is t, return groups in its subtopics too." ;; Check for permanent visibility. (and gnus-permanently-visible-groups (string-match gnus-permanently-visible-groups group)) + ;; Marked groups are always visible. + (member group gnus-group-marked) (memq 'visible params) (cdr (assq 'visible params))) ;; Add this group to the list of visible groups. -- 2.39.2