From 775a547bbbd6caee9f3246cafa99add08380a8e2 Mon Sep 17 00:00:00 2001 From: ueno Date: Sat, 29 Apr 2006 21:05:42 +0000 Subject: [PATCH] Don't resolve user-id. --- mime-pgp.el | 15 +++------------ 1 file changed, 3 insertions(+), 12 deletions(-) diff --git a/mime-pgp.el b/mime-pgp.el index 5709244..e66c2f4 100644 --- a/mime-pgp.el +++ b/mime-pgp.el @@ -141,8 +141,7 @@ "\\`application/\\(x-\\)?pkcs7-signature\\'" protocol) 'CMS - (error "Unknown protocol: %s" protocol))))) - verify-result) + (error "Unknown protocol: %s" protocol)))))) (epg-verify-string context (mime-entity-content entity) (with-temp-buffer @@ -153,17 +152,9 @@ (while (search-forward "\n" nil t) (replace-match "\r\n")) (buffer-substring))) - (setq verify-result - (mapcar (lambda (signature) - (unless (stringp (epg-signature-user-id signature)) - (setq signature (copy-sequence signature)) - (epg-signature-set-user-id - signature - (epg-decode-dn (epg-signature-user-id signature)))) - signature) - (epg-context-result-for context 'verify))) (message "%s" - (epg-verify-result-to-string verify-result)))) + (epg-verify-result-to-string + (epg-context-result-for context 'verify))))) ;;; @ Internal method for application/pgp-encrypted -- 1.7.10.4