From a85612bbae02ff1178e920425d550974ef5739bf Mon Sep 17 00:00:00 2001 From: ueno Date: Thu, 13 Apr 2006 09:17:52 +0000 Subject: [PATCH] Fixed. --- epa.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) 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 -- 1.7.10.4