[Emacs-diffs] master 1fcc552: lisp/gnus/registry.el (registry-prune): Allow registry to reach full size before pruning

[Katsumi Yamaoka]

branch: master
commit 1fcc552ac27503c502a9a6e6cf06268e6018db51
Author: Eric Abrahamsen <address@hidden>
Commit: Katsumi Yamaoka <address@hidden>

    lisp/gnus/registry.el (registry-prune): Allow registry to reach full size 
before pruning
---
 lisp/gnus/ChangeLog   |    5 +++++
 lisp/gnus/registry.el |    2 +-
 2 files changed, 6 insertions(+), 1 deletions(-)

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 7e962f7..63a2826 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,10 @@
 2015-03-19  Eric Abrahamsen  <address@hidden>
 
+       * registry.el (registry-prune): Allow registry to reach full size
+       before pruning.
+
+2015-03-19  Eric Abrahamsen  <address@hidden>
+
        * registry.el (registry-collect-prune-candidates): Fix call to
        cl-subseq.
 
diff --git a/lisp/gnus/registry.el b/lisp/gnus/registry.el
index 6ee1c31..e0f944a 100644
--- 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