From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/78541 Path: news.gmane.org!not-for-mail From: Andrew Cohen Newsgroups: gmane.emacs.gnus.general Subject: Re: gnus-registry rewrite Date: Mon, 18 Apr 2011 14:17:04 -0400 Message-ID: <87k4erh1b3.fsf@andy.bu.edu> References: <87mxjphv1m.fsf@andy.bu.edu> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: dough.gmane.org 1303150671 1514 80.91.229.12 (18 Apr 2011 18:17:51 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Mon, 18 Apr 2011 18:17:51 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M26844@lists.math.uh.edu Mon Apr 18 20:17:47 2011 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1QBt18-0003Sl-BE for ding-account@gmane.org; Mon, 18 Apr 2011 20:17:46 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1QBt0X-0000SR-Cf; Mon, 18 Apr 2011 13:17:09 -0500 Original-Received: from mx2.math.uh.edu ([129.7.128.33]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1QBt0W-0000SI-Av for ding@lists.math.uh.edu; Mon, 18 Apr 2011 13:17:08 -0500 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx2.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.72) (envelope-from ) id 1QBt0V-0008KU-AH for ding@lists.math.uh.edu; Mon, 18 Apr 2011 13:17:08 -0500 Original-Received: from andy.bu.edu ([128.197.41.152]) by quimby.gnus.org with esmtp (Exim 4.72) (envelope-from ) id 1QBt0T-0004mo-LR for ding@gnus.org; Mon, 18 Apr 2011 20:17:05 +0200 Original-Received: from cohen by andy.bu.edu with local (Exim 4.72) (envelope-from ) id 1QBt0S-0000Nu-GF for ding@gnus.org; Mon, 18 Apr 2011 14:17:04 -0400 In-Reply-To: <87mxjphv1m.fsf@andy.bu.edu> (Andrew Cohen's message of "Sun, 17 Apr 2011 09:22:29 -0400") User-Agent: Gnus/5.110016 (No Gnus v0.16) Emacs/24.0.50 (gnu/linux) X-Spam-Score: -1.9 (-) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:78541 Archived-At: I think I understand the logic in gnus-registry--split-fancy-with-parent-internal but I'm not 100% sure. The following changes seem to fix my problem that unfollowed groups are still followed. Ted, does this look right? Best, Andy diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el index eab4403..ac06be1 100644 --- a/lisp/gnus-registry.el +++ b/lisp/gnus-registry.el @@ -453,7 +453,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details." (loop for group in (gnus-registry-get-id-key reference 'group) when (gnus-registry-follow-group-p group) do (gnus-message 7 "%s traced %s to %s" log-agent reference group) - do (push group found))) + (push group found))) ;; filter the found groups and return them ;; the found groups are the full groups (setq found (gnus-registry-post-process-groups @@ -478,7 +478,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details." (if gnus-registry-track-extra 7 9) "%s (extra tracking) traced subject '%s' to %s" log-agent subject group) - collect group)) + and collect group)) ;; filter the found groups and return them ;; the found groups are NOT the full groups (setq found (gnus-registry-post-process-groups @@ -505,7 +505,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details." (if gnus-registry-track-extra 7 9) "%s (extra tracking) traced sender '%s' to %s" log-agent sender group) - collect group))) + and collect group))) ;; filter the found groups and return them ;; the found groups are NOT the full groups @@ -535,7 +535,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details." (if gnus-registry-track-extra 7 9) "%s (extra tracking) traced recipient '%s' to %s" log-agent recp group) - collect group))))) + and collect group))))) ;; filter the found groups and return them ;; the found groups are NOT the full groups