From daf7cbc449439c52cddbc869471efe7753d92157 Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 30 Jan 2007 05:44:36 +0000 Subject: [PATCH] Fixed prompt. --- epg.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/epg.el b/epg.el index 79a03c6..880db02 100644 --- a/epg.el +++ b/epg.el @@ -1265,11 +1265,13 @@ This function is for internal use only." (y-or-n-p (if entry (cdr entry) (concat string "? "))))) (defun epg--prompt-GET_BOOL-untrusted_key.override (context string) - (if (and (equal (car epg-last-status) "USERID_HINT") - (string-match "\\`\\([^ ]+\\) \\(.*\\)" (cdr epg-last-status))) - (y-or-n-p (format "Untrusted key %s %s. Trust this key anyway? " - (match-string 1 string) - (match-string 2 string))))) + (y-or-n-p + (if (and (equal (car epg-last-status) "USERID_HINT") + (string-match "\\`\\([^ ]+\\) \\(.*\\)" (cdr epg-last-status))) + (format "Untrusted key %s %s. Use this key anyway? " + (match-string 1 string) + (match-string 2 string)) + "Use this key anyway? "))) (defun epg--status-GET_BOOL (context string) (let (inhibit-quit) -- 1.7.10.4