[Emacs-diffs] master 0092a85: Marked groups should always be visible in *Group* buffer

[Eric Abrahamsen]

branch: master
commit 0092a856ff3900c3771408893fb7fd8d731de568
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    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 89f1731..3b6ff0a 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 ea42a3e..ba756e0 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.