;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\307\310\311\312\313\314\315\302&\210\316\317\320\321\322DD\323\324\325\313\314&\207" [require cl-lib epa subr-x tabulated-list url url-http custom-declare-group epa-ks nil "The EasyPG Assistant Keyserver client." :version "28.1" :group custom-declare-variable epa-keyserver funcall function #[0 "\300\207" ["pgp.mit.edu"] 1 ""] "Domain of keyserver.\n\nThis is used by `epa-ks-lookup-key', for looking up public keys." :type (choice :tag "Keyserver" (repeat :tag "Random pool" (string :tag "Keyserver address")) (const "keyring.debian.org") (const "keys.gnupg.net") (const "keyserver.ubuntu.com") (const "pgp.mit.edu") (const "pool.sks-keyservers.net") (const "zimmermann.mayfirst.org") (string :tag "Custom keyserver"))] 8)
#@69 compiler-macro for inlining `epa-ks-key-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'epa-ks-key-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epa-ks-key-p (and (memq (type-of cl-x) cl-struct-epa-ks-key-tags) t)) nil] 9 (#$ . 902)])
(put 'epa-ks-key-p 'compiler-macro 'epa-ks-key-p--cmacro)
#@13 

(fn CL-X)
(defalias 'epa-ks-key-p #[257 "\301
!>\205	\302\207" [cl-struct-epa-ks-key-tags type-of t] 3 (#$ . 1235)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put epa-ks-key-p side-effect-free error-free put epa-ks-key cl-deftype-satisfies] 5)
#@70 compiler-macro for inlining `epa-ks-key-id'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'epa-ks-key-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epa-ks-key-id (progn (or (epa-ks-key-p cl-x) (signal 'wrong-type-argument (list 'epa-ks-key cl-x))) (aref cl-x 1))) nil] 9 (#$ . 1509)])
(put 'epa-ks-key-id 'compiler-macro 'epa-ks-key-id--cmacro)
#@58 Access slot "id" of `epa-ks-key' struct CL-X.

(fn CL-X)
(defalias 'epa-ks-key-id #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-epa-ks-key-tags type-of signal wrong-type-argument epa-ks-key 1] 5 (#$ . 1893)])
(byte-code "\300\301\302\303#\300\207" [function-put epa-ks-key-id side-effect-free t] 4)
#@72 compiler-macro for inlining `epa-ks-key-algo'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'epa-ks-key-algo--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epa-ks-key-algo (progn (or (epa-ks-key-p cl-x) (signal 'wrong-type-argument (list 'epa-ks-key cl-x))) (aref cl-x 2))) nil] 9 (#$ . 2219)])
(put 'epa-ks-key-algo 'compiler-macro 'epa-ks-key-algo--cmacro)
#@60 Access slot "algo" of `epa-ks-key' struct CL-X.

(fn CL-X)
(defalias 'epa-ks-key-algo #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-epa-ks-key-tags type-of signal wrong-type-argument epa-ks-key 2] 5 (#$ . 2613)])
(byte-code "\300\301\302\303#\300\207" [function-put epa-ks-key-algo side-effect-free t] 4)
#@71 compiler-macro for inlining `epa-ks-key-len'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'epa-ks-key-len--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epa-ks-key-len (progn (or (epa-ks-key-p cl-x) (signal 'wrong-type-argument (list 'epa-ks-key cl-x))) (aref cl-x 3))) nil] 9 (#$ . 2945)])
(put 'epa-ks-key-len 'compiler-macro 'epa-ks-key-len--cmacro)
#@59 Access slot "len" of `epa-ks-key' struct CL-X.

(fn CL-X)
(defalias 'epa-ks-key-len #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-epa-ks-key-tags type-of signal wrong-type-argument epa-ks-key 3] 5 (#$ . 3334)])
(byte-code "\300\301\302\303#\300\207" [function-put epa-ks-key-len side-effect-free t] 4)
#@75 compiler-macro for inlining `epa-ks-key-created'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'epa-ks-key-created--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epa-ks-key-created (progn (or (epa-ks-key-p cl-x) (signal 'wrong-type-argument (list 'epa-ks-key cl-x))) (aref cl-x 4))) nil] 9 (#$ . 3663)])
(put 'epa-ks-key-created 'compiler-macro 'epa-ks-key-created--cmacro)
#@63 Access slot "created" of `epa-ks-key' struct CL-X.

(fn CL-X)
(defalias 'epa-ks-key-created #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-epa-ks-key-tags type-of signal wrong-type-argument epa-ks-key 4] 5 (#$ . 4072)])
(byte-code "\300\301\302\303#\300\207" [function-put epa-ks-key-created side-effect-free t] 4)
#@75 compiler-macro for inlining `epa-ks-key-expires'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'epa-ks-key-expires--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epa-ks-key-expires (progn (or (epa-ks-key-p cl-x) (signal 'wrong-type-argument (list 'epa-ks-key cl-x))) (aref cl-x 5))) nil] 9 (#$ . 4413)])
(put 'epa-ks-key-expires 'compiler-macro 'epa-ks-key-expires--cmacro)
#@63 Access slot "expires" of `epa-ks-key' struct CL-X.

(fn CL-X)
(defalias 'epa-ks-key-expires #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-epa-ks-key-tags type-of signal wrong-type-argument epa-ks-key 5] 5 (#$ . 4822)])
(byte-code "\300\301\302\303#\300\207" [function-put epa-ks-key-expires side-effect-free t] 4)
#@73 compiler-macro for inlining `epa-ks-key-names'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'epa-ks-key-names--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epa-ks-key-names (progn (or (epa-ks-key-p cl-x) (signal 'wrong-type-argument (list 'epa-ks-key cl-x))) (aref cl-x 6))) nil] 9 (#$ . 5163)])
(put 'epa-ks-key-names 'compiler-macro 'epa-ks-key-names--cmacro)
#@61 Access slot "names" of `epa-ks-key' struct CL-X.

(fn CL-X)
(defalias 'epa-ks-key-names #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-epa-ks-key-tags type-of signal wrong-type-argument epa-ks-key 6] 5 (#$ . 5562)])
(byte-code "\300\301\302\303#\300\207" [function-put epa-ks-key-names side-effect-free t] 4)
#@73 compiler-macro for inlining `epa-ks-key-flags'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'epa-ks-key-flags--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epa-ks-key-flags (progn (or (epa-ks-key-p cl-x) (signal 'wrong-type-argument (list 'epa-ks-key cl-x))) (aref cl-x 7))) nil] 9 (#$ . 5897)])
(put 'epa-ks-key-flags 'compiler-macro 'epa-ks-key-flags--cmacro)
#@61 Access slot "flags" of `epa-ks-key' struct CL-X.

(fn CL-X)
(defalias 'epa-ks-key-flags #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-epa-ks-key-tags type-of signal wrong-type-argument epa-ks-key 7] 5 (#$ . 6296)])
(byte-code "\300\301\302\303#\304\305\306\"\207" [function-put epa-ks-key-flags side-effect-free t defalias copy-epa-ks-key copy-sequence] 4)
#@118 compiler-macro for inlining `make-epa-ks-key'.

(fn CL-WHOLE &cl-quote &key ID ALGO LEN CREATED EXPIRES NAMES FLAGS)
(defalias 'make-epa-ks-key--cmacro #[385 "\300
\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\211\203Y\211@\310>\203A\211AA\262
\202.\311	>A@\203P\312\262
\202.\313\314@\"\210\202.\210\315\316\317\312\f\312\f\f\f\f\f\f\f&\f\207" [plist-member :id :algo :len :created :expires :names :flags (:id :algo :len :created :expires :names :flags :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:id :algo :len :created :expires :names :flags)" cl--defsubst-expand (id algo len created expires names flags) (cl-block make-epa-ks-key (record 'epa-ks-key id algo len created expires names flags))] 22 (#$ . 6681)])
(put 'make-epa-ks-key 'compiler-macro 'make-epa-ks-key--cmacro)
#@98 Constructor for objects of type `epa-ks-key'.

(fn &key ID ALGO LEN CREATED EXPIRES NAMES FLAGS)
(defalias 'make-epa-ks-key #[128 "\300
\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\211\203Y\211@\310>\203A\211AA\262
\202.\311	>A@\203P\312\262
\202.\313\314@\"\210\202.\210\315\316&\207" [plist-member :id :algo :len :created :expires :names :flags (:id :algo :len :created :expires :names :flags :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:id :algo :len :created :expires :names :flags)" record epa-ks-key] 17 (#$ . 7563)])
(byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303&	\207" [function-put make-epa-ks-key side-effect-free t cl-struct-define epa-ks-key "Structure to hold key data." cl-structure-object record nil ((cl-tag-slot) (id) (algo) (len) (created) (expires) (names) (flags)) cl-struct-epa-ks-key-tags] 11)
#@70 compiler-macro for inlining `epa-ks-name-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'epa-ks-name-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epa-ks-name-p (and (memq (type-of cl-x) cl-struct-epa-ks-name-tags) t)) nil] 9 (#$ . 8514)])
(put 'epa-ks-name-p 'compiler-macro 'epa-ks-name-p--cmacro)
#@13 

(fn CL-X)
(defalias 'epa-ks-name-p #[257 "\301
!>\205	\302\207" [cl-struct-epa-ks-name-tags type-of t] 3 (#$ . 8854)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put epa-ks-name-p side-effect-free error-free put epa-ks-name cl-deftype-satisfies] 5)
#@72 compiler-macro for inlining `epa-ks-name-uid'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'epa-ks-name-uid--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epa-ks-name-uid (progn (or (epa-ks-name-p cl-x) (signal 'wrong-type-argument (list 'epa-ks-name cl-x))) (aref cl-x 1))) nil] 9 (#$ . 9132)])
(put 'epa-ks-name-uid 'compiler-macro 'epa-ks-name-uid--cmacro)
#@60 Access slot "uid" of `epa-ks-name' struct CL-X.

(fn CL-X)
(defalias 'epa-ks-name-uid #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-epa-ks-name-tags type-of signal wrong-type-argument epa-ks-name 1] 5 (#$ . 9528)])
(byte-code "\300\301\302\303#\300\207" [function-put epa-ks-name-uid side-effect-free t] 4)
#@76 compiler-macro for inlining `epa-ks-name-created'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'epa-ks-name-created--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epa-ks-name-created (progn (or (epa-ks-name-p cl-x) (signal 'wrong-type-argument (list 'epa-ks-name cl-x))) (aref cl-x 2))) nil] 9 (#$ . 9862)])
(put 'epa-ks-name-created 'compiler-macro 'epa-ks-name-created--cmacro)
#@64 Access slot "created" of `epa-ks-name' struct CL-X.

(fn CL-X)
(defalias 'epa-ks-name-created #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-epa-ks-name-tags type-of signal wrong-type-argument epa-ks-name 2] 5 (#$ . 10278)])
(byte-code "\300\301\302\303#\300\207" [function-put epa-ks-name-created side-effect-free t] 4)
#@76 compiler-macro for inlining `epa-ks-name-expires'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'epa-ks-name-expires--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epa-ks-name-expires (progn (or (epa-ks-name-p cl-x) (signal 'wrong-type-argument (list 'epa-ks-name cl-x))) (aref cl-x 3))) nil] 9 (#$ . 10625)])
(put 'epa-ks-name-expires 'compiler-macro 'epa-ks-name-expires--cmacro)
#@64 Access slot "expires" of `epa-ks-name' struct CL-X.

(fn CL-X)
(defalias 'epa-ks-name-expires #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-epa-ks-name-tags type-of signal wrong-type-argument epa-ks-name 3] 5 (#$ . 11042)])
(byte-code "\300\301\302\303#\300\207" [function-put epa-ks-name-expires side-effect-free t] 4)
#@74 compiler-macro for inlining `epa-ks-name-flags'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'epa-ks-name-flags--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epa-ks-name-flags (progn (or (epa-ks-name-p cl-x) (signal 'wrong-type-argument (list 'epa-ks-name cl-x))) (aref cl-x 4))) nil] 9 (#$ . 11389)])
(put 'epa-ks-name-flags 'compiler-macro 'epa-ks-name-flags--cmacro)
#@62 Access slot "flags" of `epa-ks-name' struct CL-X.

(fn CL-X)
(defalias 'epa-ks-name-flags #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-epa-ks-name-tags type-of signal wrong-type-argument epa-ks-name 4] 5 (#$ . 11796)])
(byte-code "\300\301\302\303#\304\305\306\"\207" [function-put epa-ks-name-flags side-effect-free t defalias copy-epa-ks-name copy-sequence] 4)
#@105 compiler-macro for inlining `make-epa-ks-name'.

(fn CL-WHOLE &cl-quote &key UID CREATED EXPIRES FLAGS)
(defalias 'make-epa-ks-name--cmacro #[385 "\300
\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\211\203D\211@\305>\203,\211AA\262
\202\306>A@\203;\307\262
\202\310\311@\"\210\202\210\312\313\314\307	\307				&	\207" [plist-member :uid :created :expires :flags (:uid :created :expires :flags :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:uid :created :expires :flags)" cl--defsubst-expand (uid created expires flags) (cl-block make-epa-ks-name (record 'epa-ks-name uid created expires flags))] 16 (#$ . 12188)])
(put 'make-epa-ks-name 'compiler-macro 'make-epa-ks-name--cmacro)
#@85 Constructor for objects of type `epa-ks-name'.

(fn &key UID CREATED EXPIRES FLAGS)
(defalias 'make-epa-ks-name #[128 "\300
\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\211\203D\211@\305>\203,\211AA\262
\202\306>A@\203;\307\262
\202\310\311@\"\210\202\210\312\313%\207" [plist-member :uid :created :expires :flags (:uid :created :expires :flags :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:uid :created :expires :flags)" record epa-ks-name] 11 (#$ . 12927)])
(byte-code "\300\301\302\303#\304\305\306\307\310\311\312\313\305\303&	\207" [function-put make-epa-ks-name side-effect-free t cl-struct-define epa-ks-name "Structure to hold user associated with keys data." cl-structure-object record nil ((cl-tag-slot) (uid) (created) (expires) (flags)) cl-struct-epa-ks-name-tags] 11)
#@105 List of arguments to pass to `epa-search-keys'.
This is used when reverting a buffer to restart search.
(defvar epa-ks-last-query nil (#$ . 13770))
(defvar epa-ks-search-mode-map (byte-code "\300 \301
!\210\302
\303\304#\210\302
\305\306#\210\302
\307\310#\210\302
\311\312#\210\207" [make-sparse-keymap suppress-keymap define-key "f" epa-ks-mark-key-to-fetch "i" epa-ks-inspect-key-to-fetch "u" epa-ks-unmark-key-to-fetch "x" epa-ks-do-key-to-fetch] 5))
(defvar epa-ks-search-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [epa-ks-search-mode-hook variable-documentation put "Hook run after entering Keyserver mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp epa-ks-search-mode-map definition-name epa-ks-search-mode] 4)
(defvar epa-ks-search-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [epa-ks-search-mode-abbrev-table epa-ks-search-mode-map variable-documentation put purecopy "Keymap for `epa-ks-search-mode'." boundp epa-ks-search-mode-syntax-table definition-name epa-ks-search-mode (lambda (#1=#:def-tmp-var) (defvar epa-ks-search-mode-syntax-table #1#)) make-syntax-table "Syntax table for `epa-ks-search-mode'." (lambda (#1#) (defvar epa-ks-search-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `epa-ks-search-mode'." derived-mode-parent tabulated-list-mode] 5)
#@265 Major mode for listing public key search results.

In addition to any hooks its parent mode `tabulated-list-mode' might
have run, this mode runs the hook `epa-ks-search-mode-hook', as the
final or penultimate step during initialization.

\{epa-ks-search-mode-map}
(defalias 'epa-ks-search-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
$=\204R\326
\325$C#\210\327!\210\330\f!\210
$\331 \210\332%\333&\334'\335\336\337\340\307$\210\341 \210)\342\343!\207" [delay-mode-hooks major-mode mode-name epa-ks-search-mode-map epa-ks-search-mode-syntax-table epa-ks-search-mode-abbrev-table make-local-variable t tabulated-list-mode epa-ks-search-mode "Keyserver" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table buffer-disable-undo [("ID" 8 t) ("Algo." 5 nil) ("Created" 10 t) ("Expires" 10 t) ("User" 0 t)] ("User") 2 add-hook tabulated-list-revert-hook epa-ks--restart-search nil tabulated-list-init-header run-mode-hooks epa-ks-search-mode-hook local-abbrev-table tabulated-list-format tabulated-list-sort-key tabulated-list-padding] 5 (#$ . 15481) nil])
#@55 Display full ID of key under point in the minibuffer.
(defalias 'epa-ks-inspect-key-to-fetch #[0 "\301\302\303\304
\206	`\305\"\262
@\306
!>\204\307\310\311D\"\210\211\312H\262
\"\207" [cl-struct-epa-ks-key-tags message "Full ID: %s" nil get-text-property tabulated-list-id type-of signal wrong-type-argument epa-ks-key 1] 7 (#$ . 16850) nil])
#@98 Remove fetch mark for key under point.

If a region is active, unmark all keys in active region.
(defalias 'epa-ks-unmark-key-to-fetch #[0 "\300\301!\207" [epa-ks-mark-key-to-fetch ""] 2 (#$ . 17205) nil])
#@352 Add fetch-mark to key under point.

If a region is active, mark all keys in active region.

When all keys have been selected, use \[epa-ks-do-key-to-fetch] to
actually import the keys.

When called interactively, `epa-ks-mark-key-to-fetch' will always
add a "F" tag.  Non-interactivly the tag must be specified by
setting the TAG parameter.

(fn TAG)
(defalias 'epa-ks-mark-key-to-fetch #[257 "\300 \203'\301 \302\303\"\216\212\214\304 \305 S}\210eb\210m?\205%\306\307\"\210\202+\207\306
\307\"\207" [region-active-p save-mark-and-excursion--save make-closure #[0 "\301\300!\207" [V0 save-mark-and-excursion--restore] 2] region-beginning region-end tabulated-list-put-tag t] 5 (#$ . 17418) (list "F")])
#@106 Fetch all marked keys from keyserver and import them.

Keys are marked using `epa-ks-mark-key-to-fetch'.
(defalias 'epa-ks-do-key-to-fetch #[0 "\212\302eb\210m\204?\303\304\305
!)\262
\2039\302\306
\206`\307\"\262
@\310
!	>\2040\311\312\313D\"\210\211\314H\262

B\262
\302y\210\202\315\316\317G\"!\210\211\211\203Y\211@\320
!\210
A\266\202\202H\266)\321 \207" [inhibit-changing-match-data cl-struct-epa-ks-key-tags nil "^F" t looking-at get-text-property tabulated-list-id type-of signal wrong-type-argument epa-ks-key 1 yes-or-no-p format "Proceed with fetching all %d key(s)? " epa-ks--fetch-key tabulated-list-clear-all-tags] 6 (#$ . 18134) nil])
#@96 Return URL for QUERY.
If EXACT is non-nil, don't accept approximate matches.

(fn QUERY EXACT)
(defalias 'epa-ks--query-url #[514 "\301\302\204\f\303\304!\202#<\203\305!\202#;\203 \202#\306\307!\310\311\312D\313B\2051\314\"!#\207" [epa-keyserver format "https://%s/pks/lookup?%s" user-error "Empty keyserver pool" seq-random-elt error "Invalid type for `epa-keyserver'" url-build-query-string append "search" (("options" "mr") ("op" "index")) (("exact" "on"))] 9 (#$ . 18803)])
#@56 Send request to import key with specified ID.

(fn ID)
(defalias 'epa-ks--fetch-key #[257 "\300\301\302\303!P\304\"\305\"\207" [url-retrieve epa-ks--query-url "0x" url-hexify-string t #[257 "\302
\303\"\203\304\305\302\303\"AA@\236AA@\"\210\306 \210\212db\210`Sf\307>\203,\310u\210\202`d|\210)\311\312`d\"\210)\313 \207" [url-http-codes epa-popup-info-window plist-get :error error "Request failed: %s" forward-paragraph (32 9 10) -1 nil epa-import-armor-in-region kill-buffer] 6 "\n\n(fn STATUS)"]] 6 (#$ . 19304)])
#@152 Prepare KEYS for `tabulated-list-mode', for buffer BUF.

KEYS is a list of `epa-ks-key' structures, as parsed by
`epa-ks-parse-result'.

(fn BUF KEYS)
(defalias 'epa-ks--display-keys #[514 "\303!\205,
\304
\211\203
\211@\305
!>\204\306\307\310D\"\210\211\311H\211\203
\211@
B\312\305!>\204:\306\307\310D\"\210\313H\314\304O\305!>\204Q\306\307\310D\"\210\315HA\305!>\204f\306\307\310	D\"\210\316H\203\210\317\320\305	!>\204\200\306\307\310D\"\210\316H\"\202\211\321\305!>\204\232\306\307\310\nD\"\210\322H\203\320\305!>\204\262\306\307\310\nD\"\210\322H\317\320\"\323\324\325!!W\203\313\326
\327\330#\262
\262
\202\325\326\321\327\331#\332\305!	>\204\347\306\307\333\nD\"\210\313H\334\305\n!	>\204\375\306\307\333\fD\"\210	\313H\304\335#\"%DB\262
A\266\202\202 \210
A\266\202\202\210rq\210\211\336\337\211\"\210)\340\341!\262
\207" [cl-struct-epa-ks-key-tags cl-struct-epa-ks-name-tags tabulated-list-entries buffer-live-p nil type-of signal wrong-type-argument epa-ks-key 6 vector 1 -8 2 4 format-time-string "%F" "N/A" 5 0 time-to-seconds time-since propertize face font-lock-warning-face shadow decode-coding-string epa-ks-name select-safe-coding-system utf-8 tabulated-list-print t message "Press `f' to mark a key, `x' to fetch all marked keys."] 20 (#$ . 19837)])
(defalias 'epa-ks--restart-search #[0 "\205\301\302\"\207" [epa-ks-last-query apply epa-search-keys] 3])
#@317 Ask a keyserver for all keys matching QUERY.

The keyserver to be used is specified by `epa-keyserver'.

If EXACT is non-nil (interactively, prefix argument), require
exact matches.

Note that the request may fail if the query is not specific
enough, since keyservers have strict timeout settings.

(fn QUERY EXACT)
(defalias 'epa-search-keys #[514 "
\211\302\230\262
\203
\303\304!\210\305\306!r\211q\210\307\310 \210)\311 \210)\312\313\"\314\315\"\"\210\316
!\210D\210\317\320!\207" [inhibit-read-only epa-ks-last-query "" user-error "No query" get-buffer-create "*Key search*" t erase-buffer epa-ks-search-mode url-retrieve epa-ks--query-url make-closure #[257 "\302
\303\"\203\300\203\304\300!\210\305\306\302\303\"AA@	\236AA@\"\210eb\210\307\310\311\312#\2033\313\314\312\211#\210\202\"eb\210\315\316!\210\311\317 \320\321\"\216\322 \262\304p!\210)\210\300\205V\323\300\"\210\211\207" [V0 url-http-codes plist-get :error kill-buffer error "Request failed: %s" search-forward "
\n" nil t replace-match "\n" re-search-forward "\n\n" match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] epa-ks--parse-buffer epa-ks--display-keys] 6 "\n\n(fn STATUS)"] pop-to-buffer message "Searching keys..."] 8 (#$ . 21295) (byte-code "\301\302!D\207" [current-prefix-arg read-string "Search for: "] 2)])
(defalias 'epa-ks--parse-buffer #[0 "\303\304!\203\305\306!\307\230\204\310\311!\210\306y\210\312\211m\204'
\303\313!\204'
\303\314!\203\246\315\316\305\306!\317\305\320!\205G\305\320!\211\321\230\262
?\205G\322\323\305\320!!\"\324\305\325!\205_\305\325!\211\321\230\262
?\205_\323\305\325!!\326\305\327!\205y\305\327!\211\321\230\262
?\205y\330\323\305\327!!!\331\305\332!\205\223\305\332!\211\321\230\262
?\205\223\330\323\305\332!!!\333\334\335\305\336!\"&\f\262

B\262
\202!
\303\337!\203
\340\341\342\305\306!\343\"\326\305\320!\205\320\305\320!\211\321\230\262
?\205\320\344\330\323\305\320!!!!\331\305\325!\205\354\305\325!\211\321\230\262
?\205\354\344\330\323\305\325!!!!\333\334\345\305\327!\"&\346!	>\204
\347\350\351D\"\210\336\336HBI\266\202!
\352\343\303
!)\262
\204!
\310\353!\210\312y\210\202\207" [epg-pubkey-algorithm-alist cl-struct-epa-ks-key-tags inhibit-changing-match-data looking-at "^info:\\([[:digit:]]+\\):[[:digit:]]*$" match-string 1 "1" error "Unsupported keyserver version" nil "[ 	]*\n" "^pub:\\([[:alnum:]]+\\):\\([[:digit:]]*\\):\\([[:digit:]]*\\):\\([[:digit:]]*\\):\\([[:digit:]]*\\):\\([der]*\\)$" make-epa-ks-key :id :algo 2 "" assoc string-to-number :len 3 :created 4 seconds-to-time :expires 5 :flags mapcar #[257 "\211\300\236A\207" [((114 revoked) (100 disabled) (101 expired))] 3 "\n\n(fn FLAG)"] 6 "^uid:\\([^:]+\\):\\([[:digit:]]*\\):\\([[:digit:]]*\\):\\([der]*\\)$" make-epa-ks-name :uid url-unhex-string t decode-time #[257 "\211\300\236A\207" [((114 revoked) (100 disabled) (101 expired))] 3 "\n\n(fn FLAG)"] type-of signal wrong-type-argument epa-ks-key "^uat:" "Invalid server response"] 18])