From: Eric Abrahamsen <eric@ericabrahamsen.net>
Date: Mon, 15 May 2017 09:26:16 +0000 (+0800)
Subject: Marked groups should always be visible in *Group* buffer
X-Git-Tag: emacs-27.0.90~6137
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0092a856ff3900c3771408893fb7fd8d731de568;p=emacs.git

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)
---

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.