Function: mml-secure-secret-key-exists-p

mml-secure-secret-key-exists-p is a byte-compiled function defined in mml-sec.el.gz.

Signature

(mml-secure-secret-key-exists-p CONTEXT SUBKEY)

Documentation

Return t if keyring for CONTEXT contains secret key for public SUBKEY.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mml-sec.el.gz
(defun mml-secure-secret-key-exists-p (context subkey)
  "Return t if keyring for CONTEXT contains secret key for public SUBKEY."
  (let* ((fpr (epg-sub-key-fingerprint subkey))
	 (candidates (epg-list-keys context fpr 'secret))
	 (candno (length candidates)))
    ;; If two or more subkeys with the same fingerprint exist, something is
    ;; terribly wrong.
    (when (>= candno 2)
      (error "Found %d secret keys with same fingerprint %s" candno fpr))
    (= 1 candno)))