mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Marked groups should always be visible in *Group* buffer

Browse source 
* 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)
This commit is contained in:
Eric Abrahamsen 2017-05-15 17:26:16 +08:00
parent f79c33b39f
commit 0092a856ff
2 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/gnus/gnus-group.el
View file

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

2
lisp/gnus/gnus-topic.el
View file

@ -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.