Function: epg--filter-revoked-keys

epg--filter-revoked-keys is a byte-compiled function defined in epg.el.gz.

Signature

(epg--filter-revoked-keys KEYS)

Source Code

;; Defined in /usr/src/emacs/lisp/epg.el.gz
(defun epg--filter-revoked-keys (keys)
  (mapcar
   (lambda (key)
     ;; We have something revoked, so copy the key and remove the
     ;; revoked bits.
     (if (seq-find (lambda (user)
                     (eq (epg-user-id-validity user) 'revoked))
                   (epg-key-user-id-list key))
         (let ((copy (epg--copy-key key)))
           (setf (epg-key-user-id-list copy)
                 (seq-remove (lambda (user)
                               (eq (epg-user-id-validity user) 'revoked))
                             (epg-key-user-id-list copy)))
           copy)
       ;; Nothing to delete; return the key.
       key))
   keys))