2011-05-09 Teodor Zlatanov <tzz@lifelogs.com>
- * registry.el (registry-full): Add convenience method.
- (registry-insert): Use it.
- (registry-full): Fix logic.
+ * registry.el (registry-full): Add convenience method. Fix logic.
+ (registry-insert): Use it. Fix logic here too.
* gnus-registry.el (gnus-registry-insert): Add wrapper that calls
`registry-prune' if `registry-full' returns t.
(assert (not (gethash key (oref db :data))) nil
"Key already exists in database")
- (assert (registry-full db)
+ (assert (not (registry-full db))
nil
"registry max-hard size limit reached")