From: Eric Abrahamsen Date: Fri, 20 Mar 2015 10:49:41 +0000 (+0000) Subject: lisp/gnus/registry.el (registry-prune): Allow registry to reach full size before... X-Git-Tag: emacs-25.0.90~2564^2~119 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1fcc552ac27503c502a9a6e6cf06268e6018db51;p=emacs.git lisp/gnus/registry.el (registry-prune): Allow registry to reach full size before pruning --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 7e962f73068..63a28266e42 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2015-03-19 Eric Abrahamsen + + * registry.el (registry-prune): Allow registry to reach full size + before pruning. + 2015-03-19 Eric Abrahamsen * registry.el (registry-collect-prune-candidates): Fix call to diff --git a/lisp/gnus/registry.el b/lisp/gnus/registry.el index 6ee1c316643..e0f944addc1 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