Function: epa-ks-do-key-to-fetch

epa-ks-do-key-to-fetch is an interactive and byte-compiled function defined in epa-ks.el.gz.

Signature

(epa-ks-do-key-to-fetch)

Documentation

Fetch all marked keys from keyserver and import them.

Keys are marked using epa-ks-mark-key-to-fetch.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/epa-ks.el.gz
(defun epa-ks-do-key-to-fetch ()
  "Fetch all marked keys from keyserver and import them.

Keys are marked using `epa-ks-mark-key-to-fetch'."
  (interactive)
  (save-excursion
    (let (keys)
      (goto-char (point-min))
      (while (not (eobp))
        (when (looking-at-p (rx bol "F"))
          (push (epa-ks-key-id (car (tabulated-list-get-id)))
                keys))
        (forward-line))
      (when (yes-or-no-p (format "Proceed with fetching all %d key(s)? "
                                 (length keys))))
      (dolist (id keys)
        (epa-ks--fetch-key id))))
  (tabulated-list-clear-all-tags))