Function: epa-ks--fetch-key

epa-ks--fetch-key is a byte-compiled function defined in epa-ks.el.gz.

Signature

(epa-ks--fetch-key ID)

Documentation

Send request to import key with specified ID.

Source Code

;; Defined in /usr/src/emacs/lisp/epa-ks.el.gz
(defun epa-ks--fetch-key (id)
  "Send request to import key with specified ID."
  (url-retrieve
   (epa-ks--query-url (concat "0x" (url-hexify-string id)) t)
   (lambda (status)
     (when (plist-get status :error)
       (error "Request failed: %s"
              (caddr (assq (caddr (plist-get status :error))
                           url-http-codes))))
     (forward-paragraph)
     (save-excursion
       (goto-char (point-max))
       (while (memq (char-before) '(?\s ?\t ?\n))
         (forward-char -1))
       (delete-region (point) (point-max)))
     (let ((epa-popup-info-window nil))
       (epa-import-armor-in-region (point) (point-max)))
     (kill-buffer))))