(user-id (match-string 2 string))
(entry (assoc key-id epg-user-id-alist)))
(condition-case nil
- (if (eq (epg-context-protocol context) 'CMS)
- (setq user-id (epg-dn-from-string user-id))
- (setq user-id (epg--decode-coding-string user-id 'utf-8)))
+ (setq user-id (epg--decode-coding-string user-id 'utf-8))
(error))
(if entry
(setcdr entry user-id)
(user-id (match-string 2 string))
(entry (assoc key-id epg-user-id-alist)))
(condition-case nil
- (if (eq (epg-context-protocol context) 'CMS)
- (setq user-id (epg-dn-from-string user-id))
- (setq user-id (epg--decode-coding-string user-id 'utf-8)))
+ (setq user-id (epg--decode-coding-string user-id 'utf-8))
(error))
(if entry
(setcdr entry user-id)