[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 6546ebc: Small tweaks to gnus-registry reindexing messaging
From: |
Eric Abrahamsen |
Subject: |
master 6546ebc: Small tweaks to gnus-registry reindexing messaging |
Date: |
Mon, 26 Apr 2021 15:08:27 -0400 (EDT) |
branch: master
commit 6546ebcb97ec4a4ff1de0970c1f62a2d9f62467a
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>
Small tweaks to gnus-registry reindexing messaging
* lisp/gnus/gnus-registry.el (gnus-registry-fixup-registry): Use
`seq-set-equal-p' so we don't care about list element ordering. Don't
show messages within `registry-reindex' if we aren't at gnus-verbose
level 9.
---
lisp/gnus/gnus-registry.el | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/lisp/gnus/gnus-registry.el b/lisp/gnus/gnus-registry.el
index 11b6f7d..0468d72 100644
--- a/lisp/gnus/gnus-registry.el
+++ b/lisp/gnus/gnus-registry.el
@@ -319,9 +319,12 @@ Encode names if ENCODE is non-nil, otherwise decode."
(setf (oref db tracked)
(append gnus-registry-track-extra
'(mark group keyword)))
- (when (not (equal old (oref db tracked)))
+ (when (not (seq-set-equal-p old (oref db tracked)))
(gnus-message 9 "Reindexing the Gnus registry (tracked change)")
- (registry-reindex db))
+ (let ((message-log-max (if (< gnus-verbose 9)
+ nil
+ message-log-max)))
+ (registry-reindex db)))
(gnus-registry--munge-group-names db)))
db)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 6546ebc: Small tweaks to gnus-registry reindexing messaging,
Eric Abrahamsen <=