Fixed.

diff --git a/epa.el b/epa.el
index 8e9e041..8ef81b9 100644 (file)
--- a/epa.el
+++ b/epa.el
@@ -147,7 +147,7 @@ All normal editing commands are turned off."
   (epa-mode)
   (let ((inhibit-read-only t)
        buffer-read-only
-       configuration pointer entry point)
+       configuration pointer entry point key-id)
     (erase-buffer)
     (insert "EasyPG Assistant\n\n")
     (setq configuration (epg-configuration))
@@ -196,9 +196,9 @@ All normal editing commands are turned off."
     (insert "\nSecret keys:\n\n")
     (setq pointer (epg-list-keys nil t))
     (while pointer
-      (setq point (point))
-      (setq entry (cdr (assq 'sec (car pointer))))
-      (setq key-id (cdr (assq 'key-id entry)))
+      (setq point (point)
+           entry (cdr (assq 'sec (car pointer)))
+           key-id (cdr (assq 'key-id entry)))
       (insert (format "   %s %s\n"
                      key-id
                      (cdr (assq 'user-id (assq 'uid (car pointer))))))
@@ -208,9 +208,9 @@ All normal editing commands are turned off."
     (insert "\nPublic keys:\n\n")
     (setq pointer (epg-list-keys nil))
     (while pointer
-      (setq point (point))
-      (setq entry (cdr (assq 'pub (car pointer))))
-      (setq key-id (cdr (assq 'key-id entry)))
+      (setq point (point)
+           entry (cdr (assq 'pub (car pointer)))
+           key-id (cdr (assq 'key-id entry)))
       (insert (format " %s %s %s\n"
                      (or (cdr (assq 'validity entry)) ? )
                      key-id