+2007-03-08 Daiki Ueno <ueno@unixuser.org>
+
+ * epg.el (epg--start): Make the process-buffer unibyte.
+ (epg--status-USERID_HINT): Decode user-id.
+ (epg--status-IMPORTED): Decode user-id.
+
2007-03-07 Daiki Ueno <ueno@unixuser.org>
* epg.el (epg--start): Don't specify --use-agent if the protocol
epg-gpg-program)
(mapconcat #'identity args " ")))))
(with-current-buffer buffer
+ (if (fboundp 'set-buffer-multibyte)
+ (set-buffer-multibyte nil))
(make-local-variable 'epg-last-status)
(setq epg-last-status nil)
(make-local-variable 'epg-read-point)
(let* ((key-id (match-string 1 string))
(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)))
+ (error))
(if entry
(setcdr entry user-id)
(setq epg-user-id-alist (cons (cons key-id user-id)
'verify
(cons (epg-make-signature status key-id)
(epg-context-result-for context 'verify)))
- (if (eq (epg-context-protocol context) 'CMS)
- (condition-case nil
- (setq user-id (epg-dn-from-string user-id))
- (error)))
(condition-case nil
- (setq user-id (epg--decode-coding-string user-id 'utf-8))
+ (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)))
(error))
(if entry
(setcdr entry user-id)
(let* ((key-id (match-string 1 string))
(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)))
+ (error))
(if entry
(setcdr entry user-id)
(setq epg-user-id-alist (cons (cons key-id user-id)
Otherwise, only public keyring should be searched and the key
signatures should be included."
(let ((lines (epg--list-keys-1 context name mode))
- keys cert pointer pointer-1 user-id-string)
+ keys cert pointer pointer-1)
(while lines
(cond
((member (aref (car lines) 0) '("pub" "sec" "crt" "crs"))