Fixed error message.

diff --git a/epg.el b/epg.el
index 541f8f4..02a98a1 100644 (file)
--- 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