From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/56063 Path: main.gmane.org!not-for-mail From: Nevin Kapur Newsgroups: gmane.emacs.gnus.general Subject: [PATCH] Quieter gnus-registry Date: Sat, 17 Jan 2004 10:04:29 -0800 Organization: Computer Science, Caltech Sender: ding-owner@lists.math.uh.edu Message-ID: NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1074362818 1960 80.91.224.253 (17 Jan 2004 18:06:58 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sat, 17 Jan 2004 18:06:58 +0000 (UTC) Original-X-From: ding-owner+M4603@lists.math.uh.edu Sat Jan 17 19:06:51 2004 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1AhuqQ-00064l-00 for ; Sat, 17 Jan 2004 19:06:50 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1Ahuor-0000yu-00; Sat, 17 Jan 2004 12:05:13 -0600 Original-Received: from justine.libertine.org ([66.139.78.221]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1Ahuoh-0000ym-00 for ding@lists.math.uh.edu; Sat, 17 Jan 2004 12:05:03 -0600 Original-Received: from main.gmane.org (main.gmane.org [80.91.224.249]) by justine.libertine.org (Postfix) with ESMTP id 3CE933A0043 for ; Sat, 17 Jan 2004 12:04:32 -0600 (CST) Original-Received: from list by main.gmane.org with local (Exim 3.35 #1 (Debian)) id 1AhuoB-0006tV-00 for ; Sat, 17 Jan 2004 19:04:31 +0100 Mail-Followup-To: ding@gnus.org X-Injected-Via-Gmane: http://gmane.org/ Original-To: ding@gnus.org Original-Received: from sea.gmane.org ([80.91.224.252]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1Ahuo9-0006tM-00 for ; Sat, 17 Jan 2004 19:04:29 +0100 Original-Received: from news by sea.gmane.org with local (Exim 3.35 #1 (Debian)) id 1Ahuo9-0000RN-00 for ; Sat, 17 Jan 2004 19:04:29 +0100 Original-Lines: 84 Original-X-Complaints-To: usenet@sea.gmane.org Mail-Copies-To: never User-Agent: Gnus/5.110002 (No Gnus v0.2) Emacs/21.3 (darwin) Cancel-Lock: sha1:QmtK+BD4Afl32VXZZVD3Lr7HIY4= Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:56063 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:56063 I am proposing the following the patch for gnus-registry-split-fancy-with-parent. It suppresses messages in the minibuffer that don't convey any useful information. If the patch is unacceptable someone with commit privileges should commit it. Thanks, -Nevin 2004-01-17 Nevin Kapur * gnus-registry.el (gnus-registry-split-fancy-with-parent): Suppress unnecessary messages. Index: lisp/gnus-registry.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/gnus-registry.el,v retrieving revision 7.2 diff -u -r7.2 gnus-registry.el --- lisp/gnus-registry.el 5 Jan 2004 23:01:16 -0000 7.2 +++ lisp/gnus-registry.el 17 Jan 2004 08:44:06 -0000 @@ -384,13 +384,14 @@ (unless (equal res (gnus-registry-fetch-group key)) (setq single-match nil)) (setq res (gnus-registry-fetch-group key)) - (gnus-message - ;; raise level of messaging if gnus-registry-track-extra - (if gnus-registry-track-extra 5 9) - "%s (extra tracking) traced sender %s to group %s" - "gnus-registry-split-fancy-with-parent" - sender - (if res res "nil"))))) + (when (and sender res) + (gnus-message + ;; raise level of messaging if gnus-registry-track-extra + (if gnus-registry-track-extra 5 9) + "%s (extra tracking) traced sender %s to group %s" + "gnus-registry-split-fancy-with-parent" + sender + res))))) gnus-registry-hashtb)) (when (and single-match (gnus-registry-track-subject-p) @@ -407,13 +408,14 @@ (unless (equal res (gnus-registry-fetch-group key)) (setq single-match nil)) (setq res (gnus-registry-fetch-group key)) - (gnus-message - ;; raise level of messaging if gnus-registry-track-extra - (if gnus-registry-track-extra 5 9) - "%s (extra tracking) traced subject %s to group %s" - "gnus-registry-split-fancy-with-parent" - subject - (if res res "nil"))))) + (when (and subject res) + (gnus-message + ;; raise level of messaging if gnus-registry-track-extra + (if gnus-registry-track-extra 5 9) + "%s (extra tracking) traced subject %s to group %s" + "gnus-registry-split-fancy-with-parent" + subject + res))))) gnus-registry-hashtb)) (unless single-match (gnus-message @@ -421,10 +423,11 @@ "gnus-registry-split-fancy-with-parent: too many extra matches for %s" refstr) (setq res nil)))) - (gnus-message - 5 - "gnus-registry-split-fancy-with-parent traced %s to group %s" - refstr (if res res "nil")) + (when (and refstr res) + (gnus-message + 5 + "gnus-registry-split-fancy-with-parent traced %s to group %s" + refstr res)) (when (and res gnus-registry-use-long-group-names) (let ((m1 (gnus-find-method-for-group res))