From: Nevin Kapur <nkapur@cs.caltech.edu>
Subject: [PATCH] Quieter gnus-registry
Date: Sat, 17 Jan 2004 10:04:29 -0800 [thread overview]
Message-ID: <m23caea1ua.fsf@nkpbook-invalid.cs.caltech.edu> (raw)
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 <nkapur@cs.caltech.edu>
* 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))
next reply other threads:[~2004-01-17 18:04 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
2004-01-17 18:04 Nevin Kapur [this message]
2004-01-17 21:07 ` Xavier Maillard
2004-01-17 23:40 ` Nevin Kapur
2004-01-18 9:26 ` Xavier Maillard
2004-01-21 0:11 ` Ted Zlatanov
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=m23caea1ua.fsf@nkpbook-invalid.cs.caltech.edu \
--to=nkapur@cs.caltech.edu \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).