From: Philip Kaludercic <philipk@posteo.net>
Date: Tue, 27 Dec 2022 12:46:40 +0000 (+0100)
Subject: ; * lisp/epa-ks.el (epa-ks-do-key-to-fetch): Fix 'when' usage
X-Git-Tag: emacs-29.0.90~961
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8ab6df0c9fdcef11170163e68248092ef2742801;p=emacs.git

; * 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 bb64b61b8fa..668cdf9a618 100644
--- 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)