From: ueno <ueno>
Date: Thu, 13 Apr 2006 09:17:52 +0000 (+0000)
Subject: Fixed.
X-Git-Tag: epgsm-branchpoint~81
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a85612bbae02ff1178e920425d550974ef5739bf;p=elisp%2Fepg.git

Fixed.
---

diff --git a/epa.el b/epa.el
index 8e9e041..8ef81b9 100644
--- 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