From 54de03788a8e63a33b0d932e3a74e6facc4ad1e5 Mon Sep 17 00:00:00 2001 From: ueno Date: Sat, 29 Apr 2006 23:32:13 +0000 Subject: [PATCH] Fixed user-id caching. --- epg.el | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) 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) -- 1.7.10.4