OSDN Git Service

Fixed.
authorDaiki Ueno <ueno@unixuser.org>
Thu, 26 Apr 2007 06:30:54 +0000 (06:30 +0000)
committerDaiki Ueno <ueno@unixuser.org>
Thu, 26 Apr 2007 06:30:54 +0000 (06:30 +0000)
epg.el

diff --git a/epg.el b/epg.el
index 7762285..29a8ee5 100644 (file)
--- a/epg.el
+++ b/epg.el
@@ -1292,9 +1292,10 @@ This function is for internal use only."
 
 (defun epg--prompt-GET_BOOL-untrusted_key.override (context string)
   (y-or-n-p (if (and (equal (car epg-last-status) "USERID_HINT")
-                    (string-match "\\`\\([^ ]+\\) \\(.*\\)" string))
-               (let* ((key-id (match-string 1 string))
-                      (user-id (match-string 2 string))
+                    (string-match "\\`\\([^ ]+\\) \\(.*\\)"
+                                  (cdr epg-last-status)))
+               (let* ((key-id (match-string 1 (cdr epg-last-status)))
+                      (user-id (match-string 2 (cdr epg-last-status)))
                       (entry (assoc key-id epg-user-id-alist)))
                  (if entry
                      (setq user-id (cdr entry)))