From: ueno <ueno>
Date: Sun, 12 Nov 2006 05:59:38 +0000 (+0000)
Subject: Fixed error message.
X-Git-Tag: epg-0_0_8~18
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b67d349d2dc07472a63ac21988f363b02e111fb0;p=elisp%2Fepg.git

Fixed error message.
---

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