diff --git a/lisp/plstore.el b/lisp/plstore.el
index 6a1d858f958..c67ca37e716 100644
--- a/lisp/plstore.el
+++ b/lisp/plstore.el
@@ -478,7 +478,7 @@ perform a match."
 	(when match
 	  (setq plist (cdr entry))
 	  (while plist
-	    (if (plstore--has-secret-keys plstore)
+	    (if (plstore--has-secret-keys plist)
 		(setq decrypt t
 		      plist nil))
 	    (setq plist (nthcdr 2 plist)))
@@ -503,7 +503,7 @@ Return nil if there is none."
 	plist)
     (setq plist (cdr entry))
     (while plist
-      (if (plstore--has-secret-keys plstore)
+      (if (plstore--has-secret-keys plist)
 	  (progn
 	    (plstore--decrypt plstore)
 	    (setq entry (assoc name (plstore--get-merged-alist plstore))
@@ -663,7 +663,7 @@ GnuPG key, silently save with symmetric encryption." ; (FIXME)
 	       (let ((merged-plist (cdr (assoc (car entry) merged-alist)))
 		     (plist (cdr entry)))
 		 (while plist
-		   (if (plstore--has-secret-keys plstore)
+		   (if (plstore--has-secret-keys plist)
 		       (setcar (cdr plist)
 			       (plist-get
 				merged-plist
@@ -691,7 +691,7 @@ some plstore."
 	(error "Invalid plstore format %s" string))
       (setq plist (cdr (car pointer)))
       (while plist
-	(when (plstore--has-secret-keys plstore)
+	(when (plstore--has-secret-keys plist)
 	  (setq entry (assoc (car (car pointer)) secret-alist))
 	  (unless entry
 	    (setq entry (list (car (car pointer)))