1 files changed, 2 insertions, 2 deletions
diff --git a/bog.el b/bog.el
index 2af27c3..2187470 100644
--- a/bog.el
+++ b/bog.el
@@ -305,8 +305,8 @@ Otherwise, prompt for CATEGORY."
                        (mapcar (lambda (c) (symbol-name (car c)))
                                bog--citekey-cache)))))))
   (setq bog--citekey-cache
-        (unless (eq category t)
-          (assq-delete-all category bog--citekey-cache))))
+        (and (not (eq category t))
+             (assq-delete-all category bog--citekey-cache))))
 
 (defvar bog--no-sort nil)
 (defun bog--maybe-sort (values)