; * lisp/epa-ks.el (epa-ks-do-key-to-fetch): Fix 'when' usage

diff --git a/lisp/epa-ks.el b/lisp/epa-ks.el
index bb64b61b8fa27a4a464e06449cd6dfc6b232dba0..668cdf9a618be1b6fd66f7812fb1a0148c71918f 100644 (file)
--- a/lisp/epa-ks.el
+++ b/lisp/epa-ks.el
@@ -135,9 +135,9 @@ Keys are marked using `epa-ks-mark-key-to-fetch'."
                 keys))
         (forward-line))
       (when (yes-or-no-p (format "Proceed with fetching all %d key(s)? "
-                                 (length keys))))
-      (dolist (id keys)
-        (epa-ks--fetch-key id))))
+                                 (length keys)))
+        (dolist (id keys)
+          (epa-ks--fetch-key id)))))
   (tabulated-list-clear-all-tags))
 
 (defun epa-ks--query-url (query exact)