>From 941cdfd13c6ace719c9e38a141072bb2ef6bdc45 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 8a061b70bf..636c771181 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el @@ -1359,6 +1359,8 @@ gnus-group-prepare-flat (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 6d6e20dc12..88df38e7c3 100644 --- a/lisp/gnus/gnus-topic.el +++ b/lisp/gnus/gnus-topic.el @@ -220,6 +220,8 @@ gnus-topic-find-groups ;; 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.13.0