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



(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312\313\301&	\210\314\315\316\317\320DD\321\307\322\323\324\313\304&	\210\314\325\316\317\326DD\327\323\330\313\304&\210\314\331\316\317\332DD\333\323\334\313\304&\210\314\335\316\317\336DD\337\323\340\313\304\307\341&	\210\303\342\305\343\307\310\313\304&\210\344\345\346\347\313\342%\210\344\350\351\352\313\342%\210\344\353\354\355\313\342%\210\344\356\357\360\313\342%\210\344\361\362\363\313\342%\210\344\364\365\366\313\342%\210\344\367\370\371\307\372\313\342&\210\344\373\374\375\307\372\313\342&\210\314\376\316\317\377DD\201@\307\372\323\201A\313\342&	\207" [require epg derived custom-declare-group epa nil "The EasyPG Assistant." :version "23.1" :link (custom-manual "(epa) Top") :group custom-declare-variable epa-replace-original-text funcall function #[0 "\300\207" [ask] 1 #1=""] "Whether the original text shall be replaced by the decrypted.\n\nIf t, replace the original text without any confirmation.\nIf nil, don't replace the original text and show the result in a new buffer.\nIf neither t nor nil, ask user for confirmation." "26.1" :type (choice (const :tag "Never" nil) (const :tag "Ask the user" ask) (const :tag "Always" t)) epa-popup-info-window #[0 "\300\207" [t] 1 #1#] "If non-nil, display status information from epa commands in another window." boolean epa-info-window-height #[0 "\300\207" [5] 1 #1#] "Number of lines used to display status information." integer epa-mail-aliases #[0 "\300\207" [nil] 1 #1#] "Alist of aliases of email addresses that stand for encryption keys.\nEach element is a list of email addresses (ALIAS EXPANSIONS...).\nWhen one of the recipients of a message being encrypted is ALIAS,\ninstead of encrypting it for ALIAS, encrypt it for EXPANSIONS...\n\nIf EXPANSIONS is empty, ignore ALIAS as regards encryption.\nThis is a handy way to avoid warnings about addresses that you don't\nhave any key for.\n\nThe command `epa-mail-encrypt' uses this." (repeat (cons (string :tag "Alias") (repeat (string :tag "Expansion")))) "24.4" epa-faces "Faces for epa-mode." custom-declare-face epa-validity-high ((default :weight bold) (((class color) (background dark)) :foreground "PaleTurquoise")) "Face for high validity EPA information." epa-validity-medium ((default :slant italic) (((class color) (background dark)) :foreground "PaleTurquoise")) "Face for medium validity EPA information." epa-validity-low ((t :slant italic)) "Face used for displaying the low validity." epa-validity-disabled ((t :slant italic :inverse-video t)) "Face used for displaying the disabled validity." epa-string ((((class color) (background dark)) :foreground "lightyellow") (((class color) (background light)) :foreground "blue4")) "Face used for displaying the string." epa-mark ((default :weight bold) (((class color) (background dark)) :foreground "orange") (((class color) (background light)) :foreground "red")) "Face used for displaying the high validity." epa-field-name ((default :weight bold) (((class color) (background dark)) :foreground "PaleTurquoise")) "Face for the name of the attribute field." "28.1" epa-field-body ((default :slant italic) (((class color) (background dark)) :foreground "turquoise")) "Face for the body of the attribute field." epa-validity-face-alist #[0 "\300\207" [((unknown . epa-validity-disabled) (invalid . epa-validity-disabled) (disabled . epa-validity-disabled) (revoked . epa-validity-disabled) (expired . epa-validity-disabled) (none . epa-validity-low) (undefined . epa-validity-low) (never . epa-validity-low) (marginal . epa-validity-medium) (full . epa-validity-high) (ultimate . epa-validity-high))] 1 #1#] "An alist mapping validity values to faces." (repeat (cons symbol face))] 10)
(defconst epa-pubkey-algorithm-letter-alist '((1 . 82) (2 . 114) (3 . 115) (16 . 103) (17 . 68) (20 . 71)))
#@134 The default protocol.
The value can be either OpenPGP or CMS.

You should bind this variable with `let', but do not set it globally.
(defvar epa-protocol 'OpenPGP (#$ . 3938))
#@126 If non-nil, epa commands create ASCII armored output.

You should bind this variable with `let', but do not set it globally.
(defvar epa-armor nil (#$ . 4121))
#@124 If non-nil, epa commands treat input files as text.

You should bind this variable with `let', but do not set it globally.
(defvar epa-textmode nil (#$ . 4288))
(defvar epa-keys-buffer nil)
(defvar epa-key-buffer-alist nil)
(defvar epa-key nil)
(defvar epa-list-keys-arguments nil)
(defvar epa-info-buffer nil)
(defvar epa-error-buffer nil)
(defvar epa-suppress-error-buffer nil)
(defvar epa-last-coding-system-specified nil)
(defvar epa-key-list-mode-map (byte-code "\300 \301
\302\303#\210\301
\304\305#\210\301
\306\307#\210\301
\310\311#\210\301
\312\313#\210\301
\314\315#\210\301
\316\317#\210\301
\320\321#\210\301
\322\323#\210\301
\324\325#\210\301
\326\327#\210\301
\330\331#\210\301
\332\333#\210\301
\334\335#\210\301
\336\337#\210\301
\340\341#\210\301
\342\343#\210\301
\344\343#\210\301
\345\346#\210\207" [make-sparse-keymap define-key "
" epa-show-key [9] forward-button [backtab] backward-button "m" epa-mark-key "u" epa-unmark-key "d" epa-decrypt-file "v" epa-verify-file "s" epa-sign-file "e" epa-encrypt-file "r" epa-delete-keys "i" epa-import-keys "o" epa-export-keys "g" revert-buffer "n" next-line "p" previous-line " " scroll-up-command [33554464] scroll-down-command [delete] "q" epa-exit-buffer] 5))
#@31 Menu for `epa-key-list-mode'.
(defvar epa-key-list-mode-menu nil (#$ . 5521))
(easy-menu-do-define 'epa-key-list-mode-menu epa-key-list-mode-map "Menu for `epa-key-list-mode'." '("Keys" ["Export Keys" epa-export-keys :help "Export marked keys to a file"] ["Import Keys" epa-import-keys :help "Import keys from a file"] ["Delete Keys" epa-delete-keys :help "Delete Marked Keys"] "---" ["Encrypt File..." epa-encrypt-file :help "Encrypt file for recipients"] ["Decrypt File..." epa-decrypt-file :help "Decrypt file"] ["Sign File..." epa-sign-file :help "Sign file by signers keys selected"] ["Verify File..." epa-verify-file :help "Verify file"] "---" ["Mark Key" epa-mark-key :help "Mark a key"] ["Unmark Key" epa-unmark-key :help "Unmark a key"]))
(defvar epa-key-mode-map (byte-code "\300 \301
\302\303#\210\207" [make-sparse-keymap define-key "q" epa-exit-buffer] 5))
(defvar epa-info-mode-map (byte-code "\300 \301
\302\303#\210\207" [make-sparse-keymap define-key "q" delete-window] 5))
(defvar epa-exit-buffer-function 'quit-window)
#@12 

(fn KEY)
(defalias 'epa--button-key-text #[257 "\305
!>\204\306\307\310D\"\210\211\311H@\305!>\204\"\306\307\310D\"\210
\312H@\305\211!>\2047\306\307\310D\"\210\311H@!	>\204\\\306\307\313\305!>\204U\306\307\310D\"\210\311H@D\"\210\305!>\204k\306\307\310D\"\210\311H@\314H\315\211\316\317\305!	>\204\206\306\307\313	D\"\210\314H\203\251\320\305!	>\204\237\306\307\313\nD\"\210\314H\n\"@\202\252\321\"\322\316\323\305	!	>\204\277\306\307\313D\"\210\314H\"#\315\305!	>\204\327\306\307\313D\"\210\324H\325\203+
\305!>\204\361\306\307\326	D\"\210\311H;\203
\305!>\204\n
\306\307\326	D\"\210\311H\202,
\327\305!>\204#
\306\307\326\nD\"\210\311H!\202,
\330Q\322\316\331\305\211\f!>\204B
\306\307\310D\"\210\311H@!	>\204i
\306\307\313\305!>\204a
\306\307\310D\"\210
\311H@D\"\210\305!>\204z
\306\307\310
D\"\210\n\311H@\324H\"#P\332\203\220
\f\236A\202\221
\333#\207" [cl-struct-epg-key-tags cl-struct-epg-sub-key-tags epg-key-validity-alist cl-struct-epg-user-id-tags epa-validity-face-alist type-of signal wrong-type-argument epg-key 2 3 epg-sub-key 1 propertize format "%c " rassq 32 help-echo "Validity: %s" 6 " " epg-user-id epg-decode-dn "" "Show %s" face default] 18 (#$ . 6565)])
(defvar epa-key-list-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-key-list-mode-hook variable-documentation put "Hook run after entering EPA Keys 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-key-list-mode-map definition-name epa-key-list-mode] 4)
(defvar epa-key-list-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-key-list-mode-abbrev-table epa-key-list-mode-map variable-documentation put purecopy "Keymap for `epa-key-list-mode'." boundp epa-key-list-mode-syntax-table definition-name epa-key-list-mode (lambda (#1=#:def-tmp-var) (defvar epa-key-list-mode-syntax-table #1#)) make-syntax-table "Syntax table for `epa-key-list-mode'." (lambda (#1#) (defvar epa-key-list-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `epa-key-list-mode'." derived-mode-parent special-mode] 5)
#@238 Major mode for `epa-list-keys'.

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

\{epa-key-list-mode-map}
(defalias 'epa-key-list-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
\325C#\210\327!\210\330\f!\210
\331 \210\307\211 !\306\332!\210\306\333!\210\334)\335\336!\207" [delay-mode-hooks major-mode mode-name epa-key-list-mode-map epa-key-list-mode-syntax-table epa-key-list-mode-abbrev-table make-local-variable t special-mode epa-key-list-mode "EPA Keys" 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 epa-exit-buffer-function revert-buffer-function epa--key-list-revert-buffer run-mode-hooks epa-key-list-mode-hook local-abbrev-table truncate-lines buffer-read-only] 6 (#$ . 9075) nil])
(defvar epa-key-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-key-mode-hook variable-documentation put "Hook run after entering EPA Key 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-key-mode-map definition-name epa-key-mode] 4)
(defvar epa-key-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-key-mode-abbrev-table epa-key-mode-map variable-documentation put purecopy "Keymap for `epa-key-mode'." boundp epa-key-mode-syntax-table definition-name epa-key-mode (lambda (#1=#:def-tmp-var) (defvar epa-key-mode-syntax-table #1#)) make-syntax-table "Syntax table for `epa-key-mode'." (lambda (#1#) (defvar epa-key-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `epa-key-mode'." derived-mode-parent special-mode] 5)
#@230 Major mode for a key description.

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

\{epa-key-mode-map}
(defalias 'epa-key-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
\325C#\210\327!\210\330\f!\210
\331 \210\307\211\306\332!\210)\333\334!\207" [delay-mode-hooks major-mode mode-name epa-key-mode-map epa-key-mode-syntax-table epa-key-mode-abbrev-table make-local-variable t special-mode epa-key-mode "EPA Key" 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 epa-exit-buffer-function run-mode-hooks epa-key-mode-hook local-abbrev-table truncate-lines buffer-read-only] 6 (#$ . 11413) nil])
(defvar epa-info-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-info-mode-hook variable-documentation put "Hook run after entering EPA Info 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-info-mode-map definition-name epa-info-mode] 4)
(defvar epa-info-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-info-mode-abbrev-table epa-info-mode-map variable-documentation put purecopy "Keymap for `epa-info-mode'." boundp epa-info-mode-syntax-table definition-name epa-info-mode (lambda (#1=#:def-tmp-var) (defvar epa-info-mode-syntax-table #1#)) make-syntax-table "Syntax table for `epa-info-mode'." (lambda (#1#) (defvar epa-info-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `epa-info-mode'." derived-mode-parent special-mode] 5)
#@232 Major mode for `epa-info-buffer'.

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

\{epa-info-mode-map}
(defalias 'epa-info-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
\325C#\210\327!\210\330\f!\210
\331 \210\307\211)\332\333!\207" [delay-mode-hooks major-mode mode-name epa-info-mode-map epa-info-mode-syntax-table epa-info-mode-abbrev-table make-local-variable t special-mode epa-info-mode "EPA Info" 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 run-mode-hooks epa-info-mode-hook local-abbrev-table truncate-lines buffer-read-only] 6 (#$ . 13658) nil])
#@88 Mark a key on the current line.
If ARG is non-nil, unmark the key.

(fn &optional ARG)
(defalias 'epa-mark-key #[256 "\302\303\211
\304 \210\305`\306\"\204\307\310!\210\311`!\262
\312\313!\210\203&\314\202'\315c\210\316`S`#\210\303y*\207" [buffer-read-only inhibit-read-only t nil beginning-of-line get-text-property epa-key error "No key on this line" text-properties-at delete-char 1 " " "*" set-text-properties] 8 (#$ . 14702) "P"])
#@88 Unmark a key on the current line.
If ARG is non-nil, mark the key.

(fn &optional ARG)
(defalias 'epa-unmark-key #[256 "\300
?!\207" [epa-mark-key] 3 (#$ . 15153) "P"])
#@59 Exit the current buffer using `epa-exit-buffer-function'.
(defalias 'epa-exit-buffer #[0 " \207" [epa-exit-buffer-function] 1 (#$ . 15328) nil])
#@13 

(fn KEYS)
(defalias 'epa--insert-keys #[257 "\211\211\205!\211@\300\301\302!P\303\304\305\306\305&c\210\307c\210
A\266\202\202
\207" [propertize "  " epa--button-key-text epa-key button t category "\n"] 11 (#$ . 15480)])
#@184 NAME specifies which key to list.
SECRET says list data on the secret key (default, the public key).
DOC is documentation text to insert at the start.

(fn NAME SECRET &optional DOC)
(defalias 'epa--list-keys #[770 "\203\n\305!\204\306\307!q\210\310 \210\311\312e\313	!\314\315\"\204+\316\315\"\262\203A
\2047m\204;e|\210c\210`\262
\203S
\316\317\"\206Nd|\210
b\210\320\321		#!\210*\266\322\304!\210Deb\210\323p!\207" [epa-keys-buffer epa-protocol buffer-read-only inhibit-read-only epa-list-keys-arguments buffer-live-p generate-new-buffer "*Keys*" epa-key-list-mode t nil epg-make-context get-text-property epa-key next-single-property-change epa-list-keys epa--insert-keys epg-list-keys make-local-variable pop-to-buffer] 12 (#$ . 15715)])
#@79 List all keys matched with NAME from the public keyring.

(fn &optional NAME)
(defalias 'epa-list-keys #[256 "\300
\301\302#\207" [epa--list-keys nil "The letters at the start of a line have these meanings.\ne  expired key.  n  never trust.  m  trust marginally.  u  trust ultimately.\nf  trust fully (keys you have signed, usually).\nq  trust status questionable.  -  trust status unspecified.\n See GPG documentation for more explanation.\n\n"] 5 (#$ . 16496) (byte-code "\203\302\303	\205\f	@\"\211\304\232?\205\211C\207\305C\207" [current-prefix-arg epa-list-keys-arguments read-string "Pattern: " "" nil] 3)])
#@80 List all keys matched with NAME from the private keyring.

(fn &optional NAME)
(defalias 'epa-list-secret-keys #[256 "\300
\301\"\207" [epa--list-keys t] 4 (#$ . 17123) (byte-code "\203\302\303	\205\f	@\"\211\304\232?\205\211C\207\305C\207" [current-prefix-arg epa-list-keys-arguments read-string "Pattern: " "" nil] 3)])
#@40 

(fn &optional IGNORE-AUTO NOCONFIRM)
(defalias 'epa--key-list-revert-buffer #[512 "\301\302\"\207" [epa-list-keys-arguments apply epa--list-keys] 5 (#$ . 17457)])
(defalias 'epa--marked-keys #[0 "rq\210eb\210\301\211\302\303\301\304#\203$\305\306\224\307\"\211\262\203	\211B\262\202	
\237\266\202)\2069\305\310 \307\"\211\2057\211C\262
\207" [epa-keys-buffer nil re-search-forward "^\\*" t get-text-property 0 epa-key point-at-bol] 6])
#@20 

(fn PROMPT KEYS)
(defalias 'epa--select-keys #[514 "\203\n\305!\204\306\307!\310 \311\312\"\216rq\210\313 \210\314\315 \316\317#\210\320\321\322 \210\323\324\325!\261\210\326\327\330\331#\210\332c\210\326\333\330\334#\210\335c\210\336!\210\337eb\210\340\341p!\210+\342\216\343 \210\344 +\207" [epa-keys-buffer buffer-read-only inhibit-read-only epa-exit-buffer-function display-buffer-mark-dedicated buffer-live-p generate-new-buffer "*Keys*" current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] epa-key-list-mode define-key current-local-map "" exit-recursive-edit t nil erase-buffer "\n" substitute-command-keys "- `\\[epa-mark-key]' to mark a key on the line\n- `\\[epa-unmark-key]' to unmark a key on the line\n" insert-button "[Cancel]" action #[257 "\300 \207" [abort-recursive-edit] 2 "\n\n(fn BUTTON)"] " " "[OK]" #[257 "\300 \207" [exit-recursive-edit] 2 "\n\n(fn BUTTON)"] "\n\n" epa--insert-keys abort-recursive-edit soft pop-to-buffer #[0 "\301!\207" [epa-keys-buffer kill-buffer] 2] recursive-edit epa--marked-keys] 7 (#$ . 17911)])
#@317 Display a user's keyring and ask him to select keys.
CONTEXT is an `epg-context'.
PROMPT is a string to prompt with.
NAMES is a list of strings to be matched with keys.  If it is nil, all
the keys are listed.
If SECRET is non-nil, list secret keys instead of public keys.

(fn CONTEXT PROMPT &optional NAMES SECRET)
(defalias 'epa-select-keys #[1026 "\300#\301\"\207" [epg-list-keys epa--select-keys] 8 (#$ . 19026)])
#@33 Show a key on the current line.
(defalias 'epa-show-key #[0 "\300`\301\"\211\203\302 r\303\304\"\216\305!*\207\306\307!\207" [get-text-property epa-key internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] epa--show-key error "No key on this line"] 5 (#$ . 19455) nil])
#@12 

(fn KEY)
(defalias 'epa--show-key #[257 "\306
!>\204\307\310\311D\"\210\211\312H@\313\306!	>\204#\307\310\314D\"\210
\315H\n\"\316\317\211
\204J\306!	>\204@\307\310\314D\"\210\315HC\262
\nB
A\203V\320A!\204s
\321\322\323\306!	>\204k\307\310\314	D\"\210\315H\"!\241\210
Aq\210\324 \210\325\305!\210\326 \210\306!>\204\223\307\310\311D\"\210\327H\262
\211\2037
\211@\2030
\330\306@!4>\204\264\307\310\331@D\"\210
@\332H\203\334\333\334\306@!4>\204\320\307\310\331@D\"\210@\332H5\"@!\202\335\330\330\306@!4>\204\361\307\310\331@D\"\210@\312H;\203
\306@!4>\204\f
\307\310\331@D\"\210@\312H\202,
\335\306@!4>\204'
\307\310\331@D\"\210@\312H!\336\261\210\211A\262
\202\230\306!>\204G
\307\310\311D\"\210\312H\262
\211\203\252\330\306@!	>\204b
\307\310\314@D\"\210
@\332H\203\211
\333\334\306@!	>\204}
\307\310\314@D\"\210@\332H5\"@!\202\212
\330\330\306@!	>\204\235
\307\310\314@D\"\210@\315H\330\322\337\306@!	>\204\267
\307\310\314\n@D\"\210@\340H\"\330\306@!	>\204\321
\307\310\314\n@D\"\210@\341H6\236A\342\3431\376
\344\345\306\f@!	>\204\364
\307\310\314@D\"\210@\346H\"0\202\210\347\306@!	>\204\307\310\314
@D\"\210\n@\350H\203h\322\351\317\306@!	>\2041\307\310\314@D\"\210
@\350H\"\203>\352\202?\353\3541b\344\345\306@!	>\204X\307\310\314@D\"\210@\350H\"0\202d\210\347\"\202i\355\356\357\360\306@!	>\204\307\310\314@D\"\210@\312H\330#\361\306@!	>\204\232\307\310\314@D\"\210@\362H\336\261\210\211A\262
\202L
eb\210\363p!*\207" [cl-struct-epg-key-tags cl-struct-epg-sub-key-tags epa-key-buffer-alist inhibit-read-only buffer-read-only epa-key type-of signal wrong-type-argument epg-key 2 assoc epg-sub-key 6 t nil buffer-live-p generate-new-buffer format "*Key*%s" epa-key-mode make-local-variable erase-buffer 3 " " epg-user-id 1 char-to-string rassq epg-decode-dn "\n" "%dbits" 5 4 "\n	Created: " (error) format-time-string "%Y-%m-%d" 7 "????-??-??" 8 time-less-p "\n	Expires: %s" "\n	Expired: %s" (error) "" "\n	Capabilities: " mapconcat symbol-name "\n	Fingerprint: " 9 pop-to-buffer cl-struct-epg-user-id-tags epg-key-validity-alist epg-pubkey-algorithm-alist] 23 (#$ . 19797)])
#@13 

(fn INFO)
(defalias 'epa-display-info #[257 "\203c\305 r\306\307\"\216	\203\310	!\204\311\312!\313	!\203&\314\313	!!\210r	q\210\315\316\317 \210
c\210*\320 \210eb\210)\321 \fV\203P\322\323\316\321 \fZ\"	\"\202a\324	!\210\321 \fV\205a\325\321 \fZ!*\207\326\327\"\207" [epa-popup-info-window epa-info-buffer buffer-read-only inhibit-read-only epa-info-window-height internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] buffer-live-p generate-new-buffer "*Info*" get-buffer-window delete-window t nil erase-buffer epa-info-mode window-height set-window-buffer split-window pop-to-buffer shrink-window message "%s"] 7 (#$ . 22030)])
#@16 

(fn CONTEXT)
(defalias 'epa-display-error #[257 "\305
!>\204\306\307\310D\"\210\211\311H\312\232\206	?\205\274\313\314!\315 r\316\317\"\216\n\2031\320\n!\2045\321\314!\322\n!\203A\323\322\n!!\210r
q\210\324\325\326 \210\327\305!>\204]\306\307\310D\"\210\330H\211\331\267\202~\332\202\333\202\334\202\335\202\336\202\337\202\340\262
\305!>\204\221\306\307\310D\"\210\341H\"\342\305!>\204\246\306\307\310D\"\210\311H\261\210*\343 \210eb\210)\344!*\262
\262
\207" [cl-struct-epg-context-tags epa-suppress-error-buffer epa-error-buffer buffer-read-only inhibit-read-only type-of signal wrong-type-argument epg-context 21 "" get-buffer-create "*Error*" internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] buffer-live-p generate-new-buffer get-buffer-window delete-window t nil erase-buffer format 19 #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (decrypt 102 verify 106 sign 110 encrypt 114 import-keys 118 export-keys 122)) "Error while decrypting with \"%s\":" "Error while verifying with \"%s\":" "Error while signing with \"%s\":" "Error while encrypting with \"%s\":" "Error while importing keys with \"%s\":" "Error while exporting keys with \"%s\":" "Error while executing \"%s\":\n\n" 2 "\n\n" epa-info-mode display-buffer] 9 (#$ . 22745)])
#@32 

(fn CONTEXT KEY-ID HANDBACK)
(defalias 'epa-passphrase-callback-function #[771 "
\302=\203.\303\304\305;\203\304\306\"\202\307\"\310!>\204'\311\312\313D\"\210\314H\315=\"\207\303\316=\2039\317\202P\320	\"\211\203J\304\321A#\202N\304\322\"\262
!\207" [cl-struct-epg-context-tags epg-user-id-alist SYM read-passwd format "Passphrase for symmetric encryption%s: " " for %s" "" type-of signal wrong-type-argument epg-context 19 encrypt PIN "Passphrase for PIN: " assoc "Passphrase for %s %s: " "Passphrase for %s: "] 9 (#$ . 24147)])
#@49 

(fn CONTEXT WHAT CHAR CURRENT TOTAL HANDBACK)
(defalias 'epa-progress-callback-function #[1542 "\211\206	\300\301\"\302V\203'U\203\303\304\"\207\303\305\306\307_\"#\207\303\310\"\207" [format "Processing %s: " 0 message "%s...done" "%s...%d%%" floor 100.0 "%s..."] 13 (#$ . 24707)])
#@78 Interactively read an output file name based on INPUT file name.

(fn INPUT)
(defalias 'epa-read-file-name #[257 "\300\301!!\262
\301\302\303\304!\305Q\306!#!\207" [file-name-sans-extension expand-file-name read-file-name "To file (default " file-name-nondirectory ") " file-name-directory] 6 (#$ . 25014)])
#@158 Decrypt DECRYPT-FILE into PLAIN-FILE.
If you do not specify PLAIN-FILE, this functions prompts for the value to use.

(fn DECRYPT-FILE &optional PLAIN-FILE)
(defalias 'epa-decrypt-file #[513 "\211\204	\301!\262
\302!\262\303!\304
\305\"\210\306
\307\310\311\312!\"B\"\210\313\311\312!\"\210\31418\315
#0\210\202D\316!\210\317
@A\"\266\313\320\312!\312!#\210\321
\322\"\205]\323\324\321\322\"!!\207" [epa-protocol epa-read-file-name expand-file-name epg-make-context epg-context-set-passphrase-callback epa-passphrase-callback-function epg-context-set-progress-callback epa-progress-callback-function format "Decrypting %s..." file-name-nondirectory message (error) epg-decrypt-file epa-display-error signal "Decrypting %s...wrote %s" epg-context-result-for verify epa-display-info epg-verify-result-to-string] 10 (#$ . 25333) (byte-code "\300\301!\302
!

D\207" [read-file-name "File to decrypt: " epa-read-file-name] 4)])
#@25 Verify FILE.

(fn FILE)
(defalias 'epa-verify-file #[257 "\301
!\262
\302!\303!\304\232\205\305!\306\307\310\311\312!\"B\"\210\313\311\312!\"\210\31415\315#0\210\202A\316!\210\317
@A\"\266\313\320\312!\"\210\321\322\"\203X\323\324\321\322\"!!\207\313\325!\207" [epa-protocol expand-file-name epg-make-context file-name-extension "sig" file-name-sans-extension epg-context-set-progress-callback epa-progress-callback-function format "Verifying %s..." file-name-nondirectory message (error) epg-verify-file epa-display-error signal "Verifying %s...done" epg-context-result-for verify epa-display-info epg-verify-result-to-string "Verification not successful"] 10 (#$ . 26281) "fFile: "])
(defalias 'epa--read-signature-type #[0 "\306\211
\204[\307\310!\210\311 \262
\211\312\267\202U\313\262\202\314\262\202r\315\316!q\210p\317 \210
\306\211\320\211\320\321 \210\322\323!\210+\211rq\210\324c\210)\325
!\210)\266\202\326\262\202
\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only nil message "Signature type (n,c,d,?) " read-char #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (99 20 100 26 63 32)) clear detached get-buffer-create "*Help*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook "n - Create a normal signature\nc - Create a cleartext signature\nd - Create a detached signature\n? - Show this help\n" internal-temp-output-buffer-show normal standard-output] 7])
#@61 Sign FILE by SIGNERS keys selected.

(fn FILE SIGNERS MODE)
(defalias 'epa-sign-file #[771 "\304=\203#	\204
\305>\204\306\202.
\307>\203\310\202.\311\202.
\312>\203-\313\202.\314P\315!\316
!\n>\204A\317\320\321D\"\210\211\322	I\210\316
!\n>\204U\317\320\321D\"\210\211\323I\210\316
!\n>\204i\317\320\321D\"\210\211\324I\210\325
\326\"\210\327
\330\331\332\333\n!\"B\"\210\334\332\333!\"\210\3351\231\336
$0\210\202\245\337!\210\317
@A\"\266\334\340\333!\333!#\207" [epa-protocol epa-armor cl-struct-epg-context-tags epa-textmode OpenPGP (nil t normal detached) ".asc" (t detached) ".sig" ".gpg" (t detached) ".p7s" ".p7m" epg-make-context type-of signal wrong-type-argument epg-context 4 5 13 epg-context-set-passphrase-callback epa-passphrase-callback-function epg-context-set-progress-callback epa-progress-callback-function format "Signing %s..." file-name-nondirectory message (error) epg-sign-file epa-display-error "Signing %s...wrote %s"] 12 (#$ . 27834) (byte-code "\302\303\304!!
\205\305\306	!\307\310\311$\203\312 \202\313E\207" [current-prefix-arg epa-protocol expand-file-name read-file-name "File: " epa-select-keys epg-make-context "Select keys for signing.\nIf no one is selected, default secret key is used.  " nil t epa--read-signature-type clear] 7)])
#@52 Encrypt FILE for RECIPIENTS.

(fn FILE RECIPIENTS)
(defalias 'epa-encrypt-file #[514 "
\304=\203	\203\305\202\306\202\307P\310!\311
!\n>\204'\312\313\314D\"\210\211\315	I\210\311
!\n>\204;\312\313\314D\"\210\211\316I\210\317
\320\"\210\321
\322\323\324\325	!\"B\"\210\326\324\325!\"\210\3271i\330
$0\210\202u\331!\210\312
@A\"\266\326\332\325!\325!#\207" [epa-protocol epa-armor cl-struct-epg-context-tags epa-textmode OpenPGP ".asc" ".gpg" ".p7m" epg-make-context type-of signal wrong-type-argument epg-context 4 5 epg-context-set-passphrase-callback epa-passphrase-callback-function epg-context-set-progress-callback epa-progress-callback-function format "Encrypting %s..." file-name-nondirectory message (error) epg-encrypt-file epa-display-error "Encrypting %s...wrote %s"] 11 (#$ . 29158) (byte-code "\301\302\303!!\304\305!\306\"D\207" [epa-protocol expand-file-name read-file-name "File: " epa-select-keys epg-make-context "Select recipients for encryption.\nIf no one is selected, symmetric encryption will be performed.  "] 4)])
#@885 Decrypt the current region between START and END.

If MAKE-BUFFER-FUNCTION is non-nil, call it to prepare an output buffer.
It should return that buffer.  If it copies the input, it should
delete the text now being decrypted.  It should leave point at the
proper place to insert the plaintext.

Be careful about using this command in Lisp programs!
Since this function operates on regions, it does some tricks such
as coding-system detection and unibyte/multibyte conversion.  If
you are sure how the data in the region should be treated, you
should consider using the string based counterpart
`epg-decrypt-string', or the file based counterpart
`epg-decrypt-file' instead.

For example:

(let ((context (epg-make-context \='OpenPGP)))
  (decode-coding-string
    (epg-decrypt-string context (buffer-substring start end))
    \='utf-8))

(fn START END &optional MAKE-BUFFER-FUNCTION)
(defalias 'epa-decrypt-region #[770 "\212\306!\307\310\311\"\210\312\313\314B\"\210\315\314!\210\3161)\317{\"\211\2620\210\2025\320!\210\321
@A\"\266\315\322!\210\323
	\206H\324\325\"\206H\326\"\262
\203]r q\210\327\211c\210*\202\262\327=\204m\203}\330\331!\203}\327|\210b\210\211c\210)\202\262\fr\332\333!q\210p\334 \210
\307\211&\327\211'\327(\335 \210\336\337!\210+\211)\211q\210c\210\340 \210\341
!\210)\266\342\343\"\205\301\344\345\342\343\"!!\266\202)\207" [epa-protocol coding-system-for-read inhibit-read-only epa-replace-original-text default-directory buffer-read-only epg-make-context nil epg-context-set-passphrase-callback epa-passphrase-callback-function epg-context-set-progress-callback epa-progress-callback-function "Decrypting..." message (error) epg-decrypt-string epa-display-error signal "Decrypting...done" decode-coding-string get-text-property epa-coding-system-used undecided t y-or-n-p "Replace the original text? " get-buffer-create "*Temp*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook epa-info-mode internal-temp-output-buffer-show epg-context-result-for verify epa-display-info epg-verify-result-to-string buffer-file-name buffer-undo-list inhibit-modification-hooks standard-output] 11 (#$ . 30233) "r"])
#@21 

(fn MIME-CHARSET)
(defalias 'epa--find-coding-system-for-mime-charset #[257 "\300 \211\203\301
@\302\"=\204\211A\262
\202\211@\207" [coding-system-list coding-system-get mime-charset] 5 (#$ . 32432)])
#@195 Decrypt OpenPGP armors in the current region between START and END.

Don't use this command in Lisp programs!
See the reason described in the `epa-decrypt-region' documentation.

(fn START END)
(defalias 'epa-decrypt-armor-in-region #[514 "\212\214

}\210
b\210\301\211\302\303\301\304#\205J\305\224\262\302\306\301\304#\262
\211\204&\307\310!\210
b\210\206=\302\311\304#\205=\312\313\314\315!\227!!\211b\210\316\"\210)\202\266\202*\207" [coding-system-for-read nil re-search-forward "-----BEGIN PGP MESSAGE-----$" t 0 "^-----END PGP MESSAGE-----$" error "Encryption armor beginning has no matching end" "^Charset: \\(.*\\)" epa--find-coding-system-for-mime-charset intern match-string 1 epa-decrypt-region] 8 (#$ . 32649) "r"])
(byte-code "\300\301\302\303#\300\207" [function-put epa-decrypt-armor-in-region interactive-only t] 4)
#@593 Verify the current region between START and END.

Don't use this command in Lisp programs!
Since this function operates on regions, it does some tricks such
as coding-system detection and unibyte/multibyte conversion.  If
you are sure how the data in the region should be treated, you
should consider using the string based counterpart
`epg-verify-string', or the file based counterpart
`epg-verify-file' instead.

For example:

(let ((context (epg-make-context \='OpenPGP)))
  (decode-coding-string
    (epg-verify-string context (buffer-substring start end))
    \='utf-8))

(fn START END)
(defalias 'epa-verify-region #[514 "\306!\307\310!	>\204\311\312\313D\"\210
\314\315\316BI\210\317\316!\210\3201=\321\322{\n\2063\323\324\"\"\"\211\2620\210\202I\325!\210\311
@A\"\266\317\326!\210\327
\206\\\323\324\"\206\\\330\"\262
\331\332\"\204j\333\334!\210\f\335=\204z\f\203\215\336\337!\203\215\335\307*|\210b\210\211c\210*\202\305+r\340\341!q\210p\342 \210
+\307\211,\335\211-\335.*\343 \210\344\345!\210+\211/\211q\210c\210\346 \210\347
!\210)\266\331\332\"\205\324\350\351\331\332\"!!\207" [epa-protocol cl-struct-epg-context-tags coding-system-for-write coding-system-for-read epa-replace-original-text buffer-read-only epg-make-context nil type-of signal wrong-type-argument epg-context 11 epa-progress-callback-function "Verifying..." message (error) epg-verify-string encode-coding-string get-text-property epa-coding-system-used epa-display-error "Verifying...done" decode-coding-string undecided epg-context-result-for verify error "Unable to verify region" t y-or-n-p "Replace the original text? " get-buffer-create "*Temp*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook epa-info-mode internal-temp-output-buffer-show epa-display-info epg-verify-result-to-string inhibit-read-only default-directory buffer-file-name buffer-undo-list inhibit-modification-hooks standard-output] 12 (#$ . 33501) "r"])
(byte-code "\300\301\302\303#\300\207" [function-put epa-verify-region interactive-only t] 4)
#@204 Verify OpenPGP cleartext signed messages in current region from START to END.

Don't use this command in Lisp programs!
See the reason described in the `epa-verify-region' documentation.

(fn START END)
(defalias 'epa-verify-cleartext-in-region #[514 "\212\214

}\210
b\210\300\211\301\302\300\303#\205:\304\224\262\301\305\300\303#\204#\306\307!\210\301\310\300\303#\262
\211\2042\306\311!\210\312\"\210\202\266\202*\207" [nil re-search-forward "-----BEGIN PGP SIGNED MESSAGE-----$" t 0 "^-----BEGIN PGP SIGNATURE-----$" error "Invalid cleartext signed message" "^-----END PGP SIGNATURE-----$" "No cleartext tail" epa-verify-region] 8 (#$ . 35583) "r"])
(byte-code "\300\301\302\303#\300\207" [function-put epa-verify-cleartext-in-region interactive-only t] 4)
#@609 Sign the current region between START and END by SIGNERS keys selected.

Don't use this command in Lisp programs!
Since this function operates on regions, it does some tricks such
as coding-system detection and unibyte/multibyte conversion.  If
you are sure how the data should be treated, you should consider
using the string based counterpart `epg-sign-string', or the file
based counterpart `epg-sign-file' instead.

For example:

(let ((context (epg-make-context \='OpenPGP)))
  (epg-sign-string
    context
    (encode-coding-string (buffer-substring start end) \='utf-8)))

(fn START END SIGNERS MODE)
(defalias 'epa-sign-region #[1028 "\212\304!\305\306!	>\204\307\310\311D\"\210
\312\313I\210\306!	>\204(\307\310\311D\"\210
\314\313I\210\306!	>\204<\307\310\311D\"\210
\315I\210\316\317\"\210\320\321\322B\"\210\323\322!\210\3241i\325\326{\n\"#\211\2620\210\202u\327!\210\307
@A\"\266\323\330!\210|\210b\210\331`\332\206\211\n\"c\210`\333\n\334\305\335\313\257#\266\202)\207" [epa-protocol cl-struct-epg-context-tags epa-last-coding-system-specified coding-system-for-read epg-make-context nil type-of signal wrong-type-argument epg-context 4 t 5 13 epg-context-set-passphrase-callback epa-passphrase-callback-function epg-context-set-progress-callback epa-progress-callback-function "Signing..." message (error) epg-sign-string encode-coding-string epa-display-error "Signing...done" add-text-properties decode-coding-string epa-coding-system-used front-sticky rear-nonsticky] 15 (#$ . 36360) (byte-code "	\206\304\305 \306 \"\305 \306 \205\307\310!\311\312\313$\203%\314 \202&\315F\207" [current-prefix-arg coding-system-for-write epa-last-coding-system-specified epa-protocol select-safe-coding-system region-beginning region-end epa-select-keys epg-make-context "Select keys for signing.\nIf no one is selected, default secret key is used.  " nil t epa--read-signature-type clear] 8)])
(byte-code "\300\301\302\303#\304\305\306\307#\210\310\305\306\311#\207" [function-put epa-sign-region interactive-only t defalias epa--derived-mode-p derived-mode-p nil make-obsolete "28.1"] 5)
#@630 Encrypt the current region between START and END for RECIPIENTS.

Don't use this command in Lisp programs!
Since this function operates on regions, it does some tricks such
as coding-system detection and unibyte/multibyte conversion.  If
you are sure how the data should be treated, you should consider
using the string based counterpart `epg-encrypt-string', or the
file based counterpart `epg-encrypt-file' instead.

For example:

(let ((context (epg-make-context \='OpenPGP)))
  (epg-encrypt-string
    context
    (encode-coding-string (buffer-substring start end) \='utf-8)
    nil))

(fn START END RECIPIENTS SIGN SIGNERS)
(defalias 'epa-encrypt-region #[1285 "\212\303!\304\305!	>\204\306\307\310D\"\210
\311\312I\210\305!	>\204(\306\307\310D\"\210
\313\312I\210\203E\305!	>\204@\306\307\310D\"\210
\314I\210\315\316\"\210\317\320\321B\"\210\322\321!\210\3231p\324\325		{\n\"$\211\2620\210\202|\326!\210\306
@A\"\266\322\327!\210|\210b\210\330`c\210`\331\n\332\304\333\312\257#\266\202)\207" [epa-protocol cl-struct-epg-context-tags epa-last-coding-system-specified epg-make-context nil type-of signal wrong-type-argument epg-context 4 t 5 13 epg-context-set-passphrase-callback epa-passphrase-callback-function epg-context-set-progress-callback epa-progress-callback-function "Encrypting..." message (error) epg-encrypt-string encode-coding-string epa-display-error "Encrypting...done" add-text-properties epa-coding-system-used front-sticky rear-nonsticky] 16 (#$ . 38504) (byte-code "\304	!\305\n\206\306\307 \310 \"\307 \310 \311\312\"\205\313\314!\211\262\205+\311\315\"\257\207" [current-prefix-arg epa-protocol coding-system-for-write epa-last-coding-system-specified epg-make-context nil select-safe-coding-system region-beginning region-end epa-select-keys "Select recipients for encryption.\nIf no one is selected, symmetric encryption will be performed.  " y-or-n-p "Sign? " "Select keys for signing.  "] 10)])
(byte-code "\300\301\302\303#\300\207" [function-put epa-encrypt-region interactive-only t] 4)
#@57 Delete selected KEYS.

(fn KEYS &optional ALLOW-SECRET)
(defalias 'epa-delete-keys #[513 "\302!\303\304!\210\3051\306
#0\210\202!\307!\210\310
@A\"\266\303\311!\210\312\313	\"\207" [epa-protocol epa-list-keys-arguments epg-make-context message "Deleting..." (error) epg-delete-keys epa-display-error signal "Deleting...done" apply epa--list-keys] 7 (#$ . 40585) (byte-code "\301 \211\204\n\302\303!\210\211A@\304=D\207" [epa-list-keys-arguments epa--marked-keys error "No keys selected" t] 4)])
#@35 Import keys from FILE.

(fn FILE)
(defalias 'epa-import-keys #[257 "\303
!\262
\304!\305\306\307!\"\210\3101#\311
\"\210\305\312\307!\"0\210\202/\210\313
!\210\305\314\307!\"\210\315
\316\"\203?\317\320\315\316\"!!\210	\321=\205I\322\323\n\"\207" [epa-protocol major-mode epa-list-keys-arguments expand-file-name epg-make-context message "Importing %s..." file-name-nondirectory (error) epg-import-keys-from-file "Importing %s...done" epa-display-error "Importing %s...failed" epg-context-result-for import epa-display-info epg-import-result-to-string epa-key-list-mode apply epa--list-keys] 7 (#$ . 41097) "fFile: "])
#@46 Import keys from the region.

(fn START END)
(defalias 'epa-import-keys-region #[514 "\301!\302\303!\210\3041\305
{\"\210\302\306!0\210\202#\210\307
!\210\302\310!\210\311
\312\"\2052\313\314\311\312\"!!\207" [epa-protocol epg-make-context message "Importing..." (error) epg-import-keys-from-string "Importing...done" epa-display-error "Importing...failed" epg-context-result-for import epa-display-info epg-import-result-to-string] 8 (#$ . 41732) "r"])
#@98 Import keys in the OpenPGP armor format in the current region from START to END.

(fn START END)
(defalias 'epa-import-armor-in-region #[514 "\212\214

}\210
b\210\300\211\301\302\300\303#\2053\304\224\262\301\305\306\307!\310Q\300\303#\262
\211\204+\311\312!\210\313\"\210\202\266\202*\207" [nil re-search-forward "-----BEGIN \\(PGP \\(PUBLIC\\|PRIVATE\\) KEY BLOCK\\)-----$" t 0 "^-----END " match-string 1 "-----$" error "No armor tail" epa-import-keys-region] 8 (#$ . 42200) "r"])
#@47 Export selected KEYS to FILE.

(fn KEYS FILE)
(defalias 'epa-export-keys #[514 "\303!\304
!	>\204\305\306\307D\"\210\211\310\nI\210\311\312\313!\"\210\3141,\315
#0\210\2028\316!\210\305
@A\"\266\311\317\313!\"\207" [epa-protocol cl-struct-epg-context-tags epa-armor epg-make-context type-of signal wrong-type-argument epg-context 4 message "Exporting to %s..." file-name-nondirectory (error) epg-export-keys-to-file epa-display-error "Exporting to %s...done"] 7 (#$ . 42698) (byte-code "\304 \305
\204\306\307!\210\310\311\211@!>\204\312\313\314@D\"\210@\315H@!	>\204H\312\313\316\311@!>\204@\312\313\314@D\"\210@\315H@D\"\210\311@!>\204Y\312\313\314@D\"\210@\315H@\317H\n\203h\320\202i\321P\"\262

\310\322\323\324!\325Q\326!#!D\207" [cl-struct-epg-key-tags cl-struct-epg-sub-key-tags epa-armor default-directory epa--marked-keys nil error "No keys selected" expand-file-name type-of signal wrong-type-argument epg-key 2 epg-sub-key 6 ".asc" ".gpg" read-file-name "To file (default " file-name-nondirectory ") " file-name-directory] 10)])
#@50 Insert selected KEYS after the point.

(fn KEYS)
(defalias 'epa-insert-keys #[257 "\302!\303
!	>\204\304\305\306D\"\210\211\307\310I\210\3111\"\312
\"c0\207\313!\210\304
@A\"\207" [epa-protocol cl-struct-epg-context-tags epg-make-context type-of signal wrong-type-argument epg-context 4 t (error) epg-export-keys-to-string epa-display-error] 6 (#$ . 43785) (byte-code "\301\302!\303\"C\207" [epa-protocol epa-select-keys epg-make-context "Select keys to export.\nIf no one is selected, default public key is exported.  "] 3)])
(provide 'epa)