From: ueno <ueno>
Date: Thu, 26 Apr 2007 06:30:54 +0000 (+0000)
Subject: Fixed.
X-Git-Tag: epg-0_0_12~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2d0de8f48e1aad4ae310cc750525a66bd353d74c;p=elisp%2Fepg.git

Fixed.
---

diff --git a/epg.el b/epg.el
index 7762285..29a8ee5 100644
--- 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)))