Function: epa-mail--find-usable-key

epa-mail--find-usable-key is a byte-compiled function defined in epa-mail.el.gz.

Signature

(epa-mail--find-usable-key KEYS USAGE)

Documentation

Find a usable key from KEYS for USAGE.

USAGE would be sign or encrypt.

Source Code

;; Defined in /usr/src/emacs/lisp/epa-mail.el.gz
;;; Utilities

(defun epa-mail--find-usable-key (keys usage)
  "Find a usable key from KEYS for USAGE.
USAGE would be `sign' or `encrypt'."
  (catch 'found
    (while keys
      (let ((pointer (epg-key-sub-key-list (car keys))))
	(while pointer
	  (if (and (memq usage (epg-sub-key-capability (car pointer)))
		   (not (memq (epg-sub-key-validity (car pointer))
			      '(revoked expired))))
	      (throw 'found (car keys)))
	  (setq pointer (cdr pointer))))
      (setq keys (cdr keys)))))