[elpa] externals/openpgp a31d7bbb79 16/30: Fixed scoping in openpgp-mu4e-fetch-key

[ELPA Syncer]

branch: externals/openpgp
commit a31d7bbb796ab65691ae386567bf0fde2cf33fe9
Author: Philip Kaludercic <philip.kaludercic@fau.de>
Commit: Philip Kaludercic <philip.kaludercic@fau.de>

    Fixed scoping in openpgp-mu4e-fetch-key
---
 openpgp.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/openpgp.el b/openpgp.el
index 9d151c2121..c68d63e136 100644
--- a/openpgp.el
+++ b/openpgp.el
@@ -1,4 +1,4 @@
-;;; $Id: openpgp.el,v 1.14 2020/03/05 13:37:00 oj14ozun Exp oj14ozun $
+;;; $Id: openpgp.el,v 1.15 2020/03/05 13:45:21 oj14ozun Exp oj14ozun $
 ;;; Implementation of the keys.openpgp.org protocol as specified by
 ;;; https://keys.openpgp.org/about/api
 
@@ -166,8 +166,8 @@ key."
     (interactive)
     (let ((msg (mu4e-message-at-point 'noerror)))
       (unless msg
-       (error "There is no message to fetch a key for")))
-    (let ((email (or (mu4e-message-field msg :reply-to)
-                    (mu4e-message-field msg :from))))
-      (when (yes-or-no-p (format "Attempt to fetch key for %s? " email))
-       (openpgp-fetch-key-by-email email)))))
+       (error "There is no message to fetch a key for"))
+      (let ((email (or (mu4e-message-field msg :reply-to)
+                      (mu4e-message-field msg :from))))
+       (when (yes-or-no-p (format "Attempt to fetch key for %s? " email))
+         (openpgp-fetch-key-by-email email))))))