diff options
| author | Eric Abrahamsen <eric@ericabrahamsen.net> | 2021-03-04 16:53:30 -0800 |
|---|---|---|
| committer | Eric Abrahamsen <eric@ericabrahamsen.net> | 2021-04-26 12:08:14 -0700 |
| commit | 6546ebcb97ec4a4ff1de0970c1f62a2d9f62467a (patch) | |
| tree | 9f01d0d787c470792500b47e917be8c3459f1294 | |
| parent | a139f14c05cefa229d4dea1104af26fa66c213b2 (diff) | |
| download | emacs-6546ebcb97ec4a4ff1de0970c1f62a2d9f62467a.tar.gz emacs-6546ebcb97ec4a4ff1de0970c1f62a2d9f62467a.tar.bz2 emacs-6546ebcb97ec4a4ff1de0970c1f62a2d9f62467a.zip | |
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.
| -rw-r--r-- | lisp/gnus/gnus-registry.el | 7 |
1 files changed, 5 insertions, 2 deletions
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) |