From: ueno <ueno>
Date: Sat, 29 Apr 2006 23:32:13 +0000 (+0000)
Subject: Fixed user-id caching.
X-Git-Tag: epg-0_0_2~76
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=54de03788a8e63a33b0d932e3a74e6facc4ad1e5;p=elisp%2Fepg.git

Fixed user-id caching.
---

diff --git a/epg.el b/epg.el
index 13a8535..6989498 100644
--- a/epg.el
+++ b/epg.el
@@ -1185,7 +1185,16 @@ signatures should be included."
        (nreverse (epg-key-sub-key-list (car keys))))
       (epg-key-set-user-id-list
        (car keys)
-       (nreverse (epg-key-user-id-list (car keys)))))
+       (nreverse (epg-key-user-id-list (car keys))))
+      (setq key-id
+		(epg-sub-key-id (car (epg-key-sub-key-list (car keys))))
+		user-id-string
+		(epg-user-id-string (car (epg-key-user-id-list (car keys))))
+		entry (assoc key-id epg-user-id-alist))
+	  (if entry
+	      (setcdr entry user-id-string)
+	    (setq epg-user-id-alist (cons (cons key-id user-id-string)
+					  epg-user-id-alist))))
     (nreverse keys)))
 
 (if (fboundp 'make-temp-file)