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 89f17316cf1e155a95b56aa9dd4308298f7de572..3b6ff0ab813d3b4c3ebc75fdd5519e456f30ea62 100644 (file)
--- 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 ea42a3e50528cd76386c48cd7e5f902919d782e4..ba756e0314cb432ecaa387d9e99aff7c76276bfa 100644 (file)
--- 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.