[elpa] externals/autocrypt 25513ed635 71/94: Simplify autocrypt-find-function symbol searching

[ELPA Syncer]

branch: externals/autocrypt
commit 25513ed6355176ed8c53153f55137f2b49ffbd34
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Simplify autocrypt-find-function symbol searching
---
 autocrypt.el | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/autocrypt.el b/autocrypt.el
index 0fe2ba0e40..5f82b170cb 100644
--- a/autocrypt.el
+++ b/autocrypt.el
@@ -136,13 +136,9 @@ found."
       (unless backend
         (error "No backend found"))
       (catch 'ok
-        (dolist (fn (mapcar
-                     #'intern-soft
-                     (list (format "autocrypt-%S--%S" backend command)
-                           (format "%S-autocrypt-%S" backend command)
-                           (format "%S--autocrypt-%S" backend command))))
-          (when (and fn (fboundp fn))
-            (throw 'ok fn)))
+        (dolist (fmt '("autocrypt-%S--%S" "%S-autocrypt-%S" 
"%S--autocrypt-%S"))
+          (let ((fn (intern-soft (format fmt backend command))))
+            (when (fboundp fn) (throw 'ok fn))))
         (unless silent
           (error "Missing %S implementation for %S" command backend))))))