Function: pgg-gpg-select-matching-key

pgg-gpg-select-matching-key is a byte-compiled function defined in pgg-gpg.el.gz.

Signature

(pgg-gpg-select-matching-key MESSAGE-KEYS SECRET-KEYS)

Documentation

Choose a key from MESSAGE-KEYS that matches one of the keys in SECRET-KEYS.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/pgg-gpg.el.gz
(defun pgg-gpg-select-matching-key (message-keys secret-keys)
  "Choose a key from MESSAGE-KEYS that matches one of the keys in SECRET-KEYS."
  (cl-loop for message-key in message-keys
	for message-key-id = (and (equal (car message-key) 1)
				  (cdr (assq 'key-identifier
					     (cdr message-key))))
	for key = (and message-key-id (pgg-lookup-key message-key-id 'encrypt))
	when (and key (member key secret-keys)) return key))