lisp/gnus/registry.el (registry-prune): Allow registry to reach full size before...

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 7e962f7306863e5acb1263ff356380be9c5bfc2e..63a28266e42a84e2e22d5f92813dac4e060badfa 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2015-03-19  Eric Abrahamsen  <eric@ericabrahamsen.net>
+
+       * registry.el (registry-prune): Allow registry to reach full size
+       before pruning.
+
 2015-03-19  Eric Abrahamsen  <eric@ericabrahamsen.net>
 
        * registry.el (registry-collect-prune-candidates): Fix call to

diff --git a/lisp/gnus/registry.el b/lisp/gnus/registry.el
index 6ee1c316643657106e78d2819ad56206af902085..e0f944addc1ad4b940667d9c2d8d809c3219e2eb 100644 (file)
--- a/lisp/gnus/registry.el
+++ b/lisp/gnus/registry.el
@@ -345,7 +345,7 @@ Returns the number of deleted entries."
                        (* (oref db :max-size)
                           (oref db :prune-factor))))
        candidates)
-    (if (> size target-size)
+    (if (> size (oref db :max-size))
        (progn
          (setq candidates
                (registry-collect-prune-candidates