From b67d349d2dc07472a63ac21988f363b02e111fb0 Mon Sep 17 00:00:00 2001 From: ueno Date: Sun, 12 Nov 2006 05:59:38 +0000 Subject: [PATCH] Fixed error message. --- epg.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/epg.el b/epg.el index 541f8f4..02a98a1 100644 --- a/epg.el +++ b/epg.el @@ -2319,8 +2319,10 @@ If you are unsure, use synchronous version of this function (let ((entry (assq 'delete-problem (epg-context-result-for context 'error)))) (if entry - (error "Delete keys failed: %s" - (assq (cdr entry) epg-delete-problem-reason-alist))))) + (if (setq entry (assq (cdr (assq 'reason (cdr entry))) + epg-delete-problem-reason-alist)) + (error "Delete keys failed: %s" (cdr entry))) + (error "Delete keys failed" (cdr entry))))) (epg-reset context))) ;;;###autoload -- 1.7.10.4