From 2d0de8f48e1aad4ae310cc750525a66bd353d74c Mon Sep 17 00:00:00 2001 From: ueno Date: Thu, 26 Apr 2007 06:30:54 +0000 Subject: [PATCH] Fixed. --- epg.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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))) -- 1.7.10.4