From: Eric Abrahamsen <eric@ericabrahamsen.net>
Date: Fri, 5 Mar 2021 00:53:30 +0000 (-0800)
Subject: Small tweaks to gnus-registry reindexing messaging
X-Git-Tag: emacs-28.0.90~2708
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6546ebcb97ec4a4ff1de0970c1f62a2d9f62467a;p=emacs.git

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.
---

diff --git a/lisp/gnus/gnus-registry.el b/lisp/gnus/gnus-registry.el
index 11b6f7ddf07..0468d72edd0 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)