From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Eric Abrahamsen Newsgroups: gmane.emacs.bugs Subject: bug#26937: Marked groups should always be visible Date: Mon, 15 May 2017 17:30:35 +0800 Message-ID: <874lwmmpqc.fsf@ericabrahamsen.net> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: blaine.gmane.org 1494840734 4646 195.159.176.226 (15 May 2017 09:32:14 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Mon, 15 May 2017 09:32:14 +0000 (UTC) User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/26.0.50 (gnu/linux) To: 26937@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Mon May 15 11:32:10 2017 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dACML-00014y-44 for geb-bug-gnu-emacs@m.gmane.org; Mon, 15 May 2017 11:32:09 +0200 Original-Received: from localhost ([::1]:35633 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dACMQ-0008Ok-Lt for geb-bug-gnu-emacs@m.gmane.org; Mon, 15 May 2017 05:32:14 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:43751) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dACMK-0008Ob-Kf for bug-gnu-emacs@gnu.org; Mon, 15 May 2017 05:32:09 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dACMF-0000Wq-MS for bug-gnu-emacs@gnu.org; Mon, 15 May 2017 05:32:08 -0400 Original-Received: from debbugs.gnu.org ([208.118.235.43]:42814) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1dACMF-0000Wk-GT for bug-gnu-emacs@gnu.org; Mon, 15 May 2017 05:32:03 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1dACME-0006xw-KQ; Mon, 15 May 2017 05:32:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Eric Abrahamsen Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org, bugs@gnus.org Resent-Date: Mon, 15 May 2017 09:32:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 26937 X-GNU-PR-Package: emacs,gnus X-GNU-PR-Keywords: X-Debbugs-Original-To: submit@debbugs.gnu.org (The Gnus Bugfixing Girls + Boys) Original-Received: via spool by submit@debbugs.gnu.org id=B.149484067526721 (code B ref -1); Mon, 15 May 2017 09:32:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 15 May 2017 09:31:15 +0000 Original-Received: from localhost ([127.0.0.1]:45490 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dACLS-0006wu-KV for submit@debbugs.gnu.org; Mon, 15 May 2017 05:31:14 -0400 Original-Received: from mail.ericabrahamsen.net ([50.56.99.223]:54165) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dACLP-0006wm-Sr for submit@debbugs.gnu.org; Mon, 15 May 2017 05:31:12 -0400 Original-Received: from localhost (unknown [125.34.234.130]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (Client did not present a certificate) (Authenticated sender: eric@ericabrahamsen.net) by mail.ericabrahamsen.net (Postfix) with ESMTPSA id 2BB58BF374 for ; Mon, 15 May 2017 09:31:09 +0000 (UTC) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=mail.ericabrahamsen.net; s=mail; t=1494840671; bh=P4Sd16fB16ThmapiwGtyCIv5tIKu7asKPQh3PFJqH7c=; h=From:To:Subject:Date:From; b=RjNT6d9WgK9KVmNF5qn+lCsBXq2lcJX8rVU7btxkq4EvdLzE4yBPrdVKM3httnZvy 1UWb1ZU6guZawbRN+/XbRh2FVQsF7gfPaZxcUz1ruBLMEEvUERXhqNW7wiCkSGMtoI E7WD4dEZFSy3D4hi+ny1odrRWBMBAg5OCtNj+Q6s= X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 208.118.235.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.org gmane.emacs.bugs:132517 Archived-At: --=-=-= Content-Type: text/plain It would be nice if marked groups could always remain visible in the *Group* buffer. The attached patch does that, so far as I know -- if there aren't any objects or emendations, I'd like to push this. --=-=-= Content-Type: text/x-diff Content-Disposition: attachment; filename=0001-Marked-groups-should-always-be-visible-in-Group-buff.patch >From 941cdfd13c6ace719c9e38a141072bb2ef6bdc45 Mon Sep 17 00:00:00 2001 From: Eric Abrahamsen Date: Mon, 15 May 2017 17:26:16 +0800 Subject: [PATCH] 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 8a061b70bf..636c771181 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el @@ -1359,6 +1359,8 @@ gnus-group-prepare-flat (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 6d6e20dc12..88df38e7c3 100644 --- a/lisp/gnus/gnus-topic.el +++ b/lisp/gnus/gnus-topic.el @@ -220,6 +220,8 @@ gnus-topic-find-groups ;; 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. -- 2.13.0 --=-=-= Content-Type: text/plain Gnus v5.13 GNU Emacs 26.0.50 (build 8, x86_64-pc-linux-gnu, GTK+ Version 3.22.15) of 2017-05-13 200 news.gmane.org InterNetNews NNRP server INN 2.5.4 ready (posting ok) 100 Legal commands ARTICLE [message-ID|number] AUTHINFO USER name|PASS password|SASL mechanism [initial-response]|GENERIC program [argument ...] BODY [message-ID|number] CAPABILITIES [keyword] DATE GROUP newsgroup HDR header [message-ID|range] HEAD [message-ID|number] HELP IHAVE message-ID LAST LIST [ACTIVE [wildmat]|ACTIVE.TIMES [wildmat]|COUNTS [wildmat]|DISTRIB.PATS|DISTRIBUTIONS|HEADERS [MSGID|RANGE]|MODERATORS|MOTD|NEWSGROUPS [wildmat]|OVERVIEW.FMT|SUBSCRIPTIONS [wildmat]] LISTGROUP [newsgroup [range]] MODE READER NEWGROUPS [yy]yymmdd hhmmss [GMT] NEWNEWS wildmat [yy]yymmdd hhmmss [GMT] NEXT OVER [range] POST QUIT STARTTLS STAT [message-ID|number] XGTITLE [wildmat] XHDR header [message-ID|range] XOVER [range] XPAT header message-ID|range pattern [pattern ...] Report problems to . . 382 Begin TLS negotiation now 100 Legal commands ARTICLE [message-ID|number] AUTHINFO USER name|PASS password|SASL mechanism [initial-response]|GENERIC program [argument ...] BODY [message-ID|number] CAPABILITIES [keyword] DATE GROUP newsgroup HDR header [message-ID|range] HEAD [message-ID|number] HELP IHAVE message-ID LAST LIST [ACTIVE [wildmat]|ACTIVE.TIMES [wildmat]|COUNTS [wildmat]|DISTRIB.PATS|DISTRIBUTIONS|HEADERS [MSGID|RANGE]|MODERATORS|MOTD|NEWSGROUPS [wildmat]|OVERVIEW.FMT|SUBSCRIPTIONS [wildmat]] LISTGROUP [newsgroup [range]] MODE READER NEWGROUPS [yy]yymmdd hhmmss [GMT] NEWNEWS wildmat [yy]yymmdd hhmmss [GMT] NEXT OVER [range] POST QUIT STARTTLS STAT [message-ID|number] XGTITLE [wildmat] XHDR header [message-ID|range] XOVER [range] XPAT header message-ID|range pattern [pattern ...] Report problems to . . --=-=-=--