From: Eric Abrahamsen <eric@ericabrahamsen.net>
Date: Thu, 19 Mar 2015 05:42:43 +0000 (+0800)
Subject: Allow registry to reach full size before pruning
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=e2e8ae604f14d1acecb17a8213ebc3b891fd5e17;p=gnus

Allow registry to reach full size before pruning

* lisp/registry.el (registry-prune): Compare current size to max-size,
  not post-prune target size.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2199e3942..2e44b9c5d 100644
--- a/lisp/ChangeLog
+++ b/lisp/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/registry.el b/lisp/registry.el
index a5d8239e6..3a4ffa2c8 100644
--- a/lisp/registry.el
+++ b/lisp/registry.el
@@ -365,7 +365,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