diff options
| author | Eric Abrahamsen <eric@ericabrahamsen.net> | 2017-05-15 17:26:16 +0800 |
|---|---|---|
| committer | Eric Abrahamsen <eric@ericabrahamsen.net> | 2017-11-22 14:20:46 -0800 |
| commit | 0092a856ff3900c3771408893fb7fd8d731de568 (patch) | |
| tree | 17c68a34a7c32eeb98673554056877d80bfaf875 | |
| parent | f79c33b39f195d1b30d7a3e085804e45ab76358e (diff) | |
| download | emacs-0092a856ff3900c3771408893fb7fd8d731de568.tar.gz | |
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)
| -rw-r--r-- | lisp/gnus/gnus-group.el | 2 | ||||
| -rw-r--r-- | lisp/gnus/gnus-topic.el | 2 |
2 files changed, 4 insertions, 0 deletions
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. |