%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/epa.elc

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

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\312\313\314\315\301&	\210\316\317\320\321\322DD\323\311\324\325\326\315\306&	\210\316\327\320\321\330DD\331\325\332\315\306&\210\316\333\320\321\334DD\335\325\336\315\306&\210\305\337\307\340\311\312\315\306&\210\316\341\320\321\342DD\343\325\344\315\306\311\345&	\210\346\347\350\351\315\337%\210\346\352\353\354\315\337%\210\346\355\356\357\315\337%\210\346\360\361\362\315\337%\210\346\363\364\365\315\337%\210\346\366\367\370\315\337%\210\346\371\372\373\315\306%\210\346\374\375\376\315\306%\210\316\377\320\321\201@DD\201A\325\201B\315\306&\207" [require epg font-lock widget 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] "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] "If non-nil, display status information from epa commands in another window." boolean epa-info-window-height #[0 "\300\207" [5] 1] "Number of lines used to display status information." integer epa-faces "Faces for epa-mode." epa-mail-aliases #[0 "\300\207" [nil] 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" 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." 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] "An alist mapping validity values to faces." (repeat (cons symbol face))] 10)
#@43 Default expressions to addon in epa-mode.
(defvar epa-font-lock-keywords '(("^\\*" (0 'epa-mark)) ("^	\\([^	:]+:\\)[ 	]*\\(.*\\)$" (1 'epa-field-name) (2 'epa-field-body))) (#$ . 4142))
(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 (#$ . 4443))
#@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 (#$ . 4626))
#@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 (#$ . 4793))
(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 \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\335#\210\301\337\340#\210\301\341\342B#\210\301\343\344#\210\301\345\346#\210\301\347\350#\210\301\351\352#\210\301\353\354#\210\301\355\356#\210\301\357\360#\210\301\361\362#\210\301\363\364#\210\301\365\366#\210\301\367\370#\210\207" [make-sparse-keymap define-key "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 [menu-bar epa-key-list-mode] "Keys" [epa-key-list-unmark-key] (menu-item "Unmark Key" epa-unmark-key :help "Unmark a key") [epa-key-list-mark-key] (menu-item "Mark Key" epa-mark-key :help "Mark a key") [separator-epa-file] (menu-item "--") [epa-verify-file] (menu-item "Verify File..." epa-verify-file :help "Verify FILE") [epa-sign-file] (menu-item "Sign File..." epa-sign-file :help "Sign FILE by SIGNERS keys selected") [epa-decrypt-file] (menu-item "Decrypt File..." epa-decrypt-file :help "Decrypt FILE") [epa-encrypt-file] (menu-item "Encrypt File..." epa-encrypt-file :help "Encrypt FILE for RECIPIENTS") [separator-epa-key-list] (menu-item "--") [epa-key-list-delete-keys] (menu-item "Delete Keys" epa-delete-keys :help "Delete Marked Keys") [epa-key-list-import-keys] (menu-item "Import Keys" epa-import-keys :help "Import keys from a file") [epa-key-list-export-keys] (menu-item "Export Keys" epa-export-keys :help "Export marked keys to a file")] 7))
(defvar epa-key-mode-map (byte-code "\300 \301\302\303#\210\211\207" [make-sparse-keymap define-key "q" epa-exit-buffer] 5))
(defvar epa-info-mode-map (byte-code "\300 \301\302\303#\210\211\207" [make-sparse-keymap define-key "q" delete-window] 5))
(defvar epa-exit-buffer-function 'quit-window)
(define-widget 'epa-key 'push-button "Button for representing an epg-key object." :format "%[%v%]" :button-face-get 'epa--key-widget-button-face-get :value-create 'epa--key-widget-value-create :action 'epa--key-widget-action :help-echo 'epa--key-widget-help-echo)
#@31 

(fn WIDGET &optional EVENT)
(defalias 'epa--key-widget-action #[513 "\300 r\301\302\303\304\305!\306\"\307$\216\310\311\312\"!*\207" [internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 epa--show-key widget-get :value] 9 (#$ . 7653)])
#@15 

(fn WIDGET)
(defalias 'epa--key-widget-value-create #[257 "\304\305\"\306!>\204\307\310\311D\"\210\211\312H@\306!>\204&\307\310\311D\"\210\313H@\314\315\306!	>\204<\307\310\316D\"\210\317H\203\\\320\306!	>\204S\307\310\316D\"\210\317H\n\"@\202]\321\"\306!	>\204m\307\310\316D\"\210\322H\323\203\272\306!>\204\205\307\310\324D\"\210\312H;\203\242\306!>\204\234\307\310\324D\"\210\312H\202\273\325\306!>\204\263\307\310\324D\"\210\312H!\202\273\326\261\207" [cl-struct-epg-key-tags cl-struct-epg-sub-key-tags epg-key-validity-alist cl-struct-epg-user-id-tags widget-get :value type-of signal wrong-type-argument epg-key 2 3 format "%c " epg-sub-key 1 rassq 32 6 " " epg-user-id epg-decode-dn ""] 12 (#$ . 7973)])
#@15 

(fn WIDGET)
(defalias 'epa--key-widget-button-face-get #[257 "\303\304\"\305!>\204\306\307\310D\"\210\211\311H\262@\305!	>\204(\306\307\312D\"\210\211\313H\262\211\2038\211\n\236A\2029\314\207" [cl-struct-epg-key-tags cl-struct-epg-sub-key-tags epa-validity-face-alist widget-get :value type-of signal wrong-type-argument epg-key 2 epg-sub-key 1 default] 6 (#$ . 8743)])
#@15 

(fn WIDGET)
(defalias 'epa--key-widget-help-echo #[257 "\302\303\304\305\"\306!>\204\307\310\311D\"\210\211\312H\262@\306!	>\204*\307\310\313D\"\210\211\314H\262\"\207" [cl-struct-epg-key-tags cl-struct-epg-sub-key-tags format "Show %s" widget-get :value type-of signal wrong-type-argument epg-key 2 epg-sub-key 6] 8 (#$ . 9135)])
(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
\325!C#\210\327!\210\330\f!\210
!\331 \210\307\211\"#\306\332!\210\333\306\334!\210\306\335!\210\336)\337\340!\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 font-lock-defaults (epa-font-lock-keywords t) 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 (#$ . 10713) 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\306\334!\210)\335\336!\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 font-lock-defaults (epa-font-lock-keywords t) epa-exit-buffer-function run-mode-hooks epa-key-mode-hook local-abbrev-table truncate-lines buffer-read-only] 6 (#$ . 13118) 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 (#$ . 15428) 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 (#$ . 16472) "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 (#$ . 16923) "P"])
#@77 Exit the current buffer.
`epa-exit-buffer-function' is called if it is set.
(defalias 'epa-exit-buffer #[0 " \207" [epa-exit-buffer-function] 1 (#$ . 17098) nil])
#@13 

(fn KEYS)
(defalias 'epa--insert-keys #[257 "\212\214``}\210\300\2034`\262\301c\210\302`\303@\304\300\305\306\307\306\310\306\257\n#\210\311\303\312@#\210\313c\210A\262\202\210\302ed\314\306\304\300\305\306\307\306\310\306\257\n#*\207" [nil "  " add-text-properties epa-key front-sticky rear-nonsticky t start-open end-open widget-create :value "\n" epa-list-keys] 15 (#$ . 17268)])
#@20 

(fn NAME SECRET)
(defalias 'epa--list-keys #[514 "\203\n\306!\204\307\310!q\210\311 \210\312\313e\314	!\315\316\"\204+\317\316\"\262\203=\317\316\"\2068d|\210b\210\320\321#!\210\322 \210\323\324 \f\"\210*\266\325\305!\210Deb\210\326p!\207" [epa-keys-buffer epa-protocol buffer-read-only inhibit-read-only widget-keymap epa-list-keys-arguments buffer-live-p generate-new-buffer "*Keys*" epa-key-list-mode t nil epg-make-context get-text-property epa-list-keys next-single-property-change epa--insert-keys epg-list-keys widget-setup set-keymap-parent current-local-map make-local-variable pop-to-buffer] 11 (#$ . 17669)])
#@79 List all keys matched with NAME from the public keyring.

(fn &optional NAME)
(defalias 'epa-list-keys #[256 "\300\301\"\207" [epa--list-keys nil] 4 (#$ . 18327) (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 (#$ . 18655) (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 (#$ . 18989)])
(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\306!\204\307\310!rq\210\311 \210\312\313 \314\315#\210\316\317\320 \210\321\322\323!\261\210\324\325\326\327\330\331\332&\210\324\325\326\333\330\334\335&\210\336c\210\337!\210\340 \210\341\313 \"\210\342eb\210\343\344p!\210+\345\216\346 \210\347 *\207" [epa-keys-buffer buffer-read-only inhibit-read-only widget-keymap epa-exit-buffer-function display-buffer-mark-dedicated buffer-live-p generate-new-buffer "*Keys*" 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" widget-create push-button :notify #[128 "\300 \207" [abort-recursive-edit] 2 "\n\n(fn &rest IGNORE)"] :help-echo "Click here or \\[abort-recursive-edit] to cancel" "Cancel" #[128 "\300 \207" [exit-recursive-edit] 2 "\n\n(fn &rest IGNORE)"] "Click here or \\[exit-recursive-edit] to finish" "OK" "\n\n" epa--insert-keys widget-setup set-keymap-parent abort-recursive-edit soft pop-to-buffer #[0 "\301!\207" [epa-keys-buffer kill-buffer] 2] recursive-edit epa--marked-keys] 9 (#$ . 19443)])
#@315 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 (#$ . 20659)])
#@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\204K\306!	>\204@\307\310\314D\"\210\315H\317B\262\nBA\203W\320A!\204t\321\322\323\306!	>\204l\307\310\314	D\"\210\315H\"!\241\210Aq\210\324 \210\325\305!\210\326 \210\306!>\204\224\307\310\311D\"\210\327H\262\211\2038\211@\2031\330\306@!4>\204\265\307\310\331@D\"\210@\332H\203\335\333\334\306@!4>\204\321\307\310\331@D\"\210@\332H5\"@!\202\336\330\330\306@!4>\204\362\307\310\331@D\"\210@\312H;\203\306@!4>\204
\307\310\331@D\"\210@\312H\202-\335\306@!4>\204(\307\310\331@D\"\210@\312H!\336\261\210\211A\262\202\231\306!>\204H\307\310\311D\"\210\312H\262\211\203\253\330\306@!	>\204c\307\310\314@D\"\210@\332H\203\212\333\334\306@!	>\204~\307\310\314@D\"\210@\332H5\"@!\202\213\330\330\306@!	>\204\236\307\310\314@D\"\210@\315H\330\322\337\306@!	>\204\270\307\310\314\n@D\"\210@\340H\"\330\306@!	>\204\322\307\310\314\n@D\"\210@\341H6\236A\342\3431\377\344\345\306\f@!	>\204\365\307\310\314@D\"\210@\346H\"0\202\210\347\306@!	>\204\307\310\314
@D\"\210\n@\350H\203i\322\351\317\306@!	>\2042\307\310\314@D\"\210
@\350H\"\203?\352\202@\353\3541c\344\345\306@!	>\204Y\307\310\314@D\"\210@\350H\"0\202e\210\347\"\202j\355\356\357\360\306@!	>\204\200\307\310\314@D\"\210@\312H\330#\361\306@!	>\204\233\307\310\314@D\"\210@\362H\336\261\210\211A\262\202Meb\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 (#$ . 21086)])
#@13 

(fn INFO)
(defalias 'epa-display-info #[257 "\203j\305 r\306\307\310\311\312!\313\"\314$\216	\203\315	!\204!\316\317!\320	!\203-\321\320	!!\210r	q\210\322\323\324 \210c\210*\325 \210eb\210)\326 \fV\203W\327\330\323\326 \fZ\"	\"\202h\331	!\210\326 \fV\205h\332\326 \fZ!*\207\333\334\"\207" [epa-popup-info-window epa-info-buffer buffer-read-only inhibit-read-only epa-info-window-height internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [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"] 8 (#$ . 23325)])
#@16 

(fn CONTEXT)
(defalias 'epa-display-error #[257 "\305!>\204\306\307\310D\"\210\211\311H\312\232\206	?\205\303\313\314!\315 r\316\317\320\321\322!\323\"\324$\216\n\2038\325\n!\204<\326\314!\327\n!\203H\330\327\n!!\210rq\210\331\332\333 \210\334\305!>\204d\306\307\310D\"\210\335H\211\336\267\202\205\337\202\206\340\202\206\341\202\206\342\202\206\343\202\206\344\202\206\345\262\305!>\204\230\306\307\310D\"\210\324H\"\346\305!>\204\255\306\307\310D\"\210\311H\261\210*\347 \210eb\210)\350!*\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-byte-code 0 "\301\300!\207" vconcat vector [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 109 verify 113 sign 117 encrypt 121 import-keys 125 export-keys 129)) "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" "\n\n" epa-info-mode display-buffer] 9 (#$ . 24073)])
#@22 

(fn VERIFY-RESULT)
(defalias 'epa-display-verify-result #[257 "\300\301!!\207" [epa-display-info epg-verify-result-to-string] 4 (#$ . 25527)])
(make-obsolete 'epa-display-verify-result 'epa-display-info "23.1")
#@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 (#$ . 25747)])
#@49 

(fn CONTEXT WHAT CHAR CURRENT TOTAL HANDBACK)
(defalias 'epa-progress-callback-function #[1542 "\211\206	\300\301\"\302V\203+U\203\303\304\"\202/\303\305\306\307_\"#\202/\303\310\"\207" [format "Processing %s: " 0 message "%s...done" "%s...%d%%" floor 100.0 "%s..."] 13 (#$ . 26307)])
#@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 (#$ . 26618)])
#@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\31417\315#0\202C\316!\210\317@A\"\262\210\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 (#$ . 26937) (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\31414\315#0\202@\316!\210\317@A\"\262\210\313\320\312!\"\210\321\322\"\203Z\323\324\321\322\"!!\202]\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 (#$ . 27885) "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\211\322	I\266\316!\n>\204W\317\320\321D\"\210\211\211\323I\266\316!\n>\204m\317\320\321D\"\210\211\211\324I\266\325\326\"\210\327\330\331\332\333\n!\"B\"\210\334\332\333!\"\210\3351\237\336$0\202\253\337!\210\317@A\"\262\210\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 (#$ . 29440) (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\211\315	I\266\311!\n>\204=\312\313\314D\"\210\211\211\316I\266\317\320\"\210\321\322\323\324\325	!\"B\"\210\326\324\325!\"\210\3271l\330$0\202x\331!\210\312@A\"\262\210\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 (#$ . 30780) (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\2024\320!\210\321@A\"\262\210\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 (#$ . 31865) "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 (#$ . 34064)])
#@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}\210b\210\301\211\302\303\301\304#\205J\305\224\262\302\306\301\304#\262\211\204&\307\310!\210b\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 (#$ . 34281) "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\211\314\315\316BI\266\317\316!\210\3201>\321\322{\n\2065\323\324\"\"\"\211\2620\202J\325!\210\311@A\"\262\210\317\326!\210\327\206^\323\324\"\206^\330\"\262\331\332\"\204l\333\334!\210\f\335=\204|\f\203\217\336\337!\203\217\335\307*|\210b\210\211c\210*\202\307+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\326\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 (#$ . 35133) "r"])
(byte-code "\300\301\302\303#\300\207" [function-put epa-verify-region interactive-only t] 4)
#@212 Verify OpenPGP cleartext signed messages in the current region
between START and 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}\210b\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 (#$ . 37218) "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\211\312\313I\266\306!	>\204*\307\310\311D\"\210\211\314\313I\266\306!	>\204@\307\310\311D\"\210\211\315I\266\316\317\"\210\320\321\322B\"\210\323\322!\210\3241o\325\326{\n\"#\211\2620\202{\327!\210\307@A\"\262\210\323\330!\210|\210b\210\331`\332\206\220\n\"c\210`\333\n\334\305\335\313\336\313\337\313\257\n#\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 start-open end-open] 19 (#$ . 38003) (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!\203\307\202\310\"\207" [function-put epa-sign-region interactive-only t defalias epa--derived-mode-p fboundp derived-mode-p #[128 "\211>\204\211\301N\211\262\204\211\207" [major-mode derived-mode-parent] 4 "Non-nil if the current major mode is derived from one of MODES.\nUses the `derived-mode-parent' property of the symbol to trace backwards.\n\n(fn &rest MODES)"]] 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\211\311\312I\266\305!	>\204*\306\307\310D\"\210\211\313\312I\266\203K\305!	>\204D\306\307\310D\"\210\211\314I\266\315\316\"\210\317\320\321B\"\210\322\321!\210\3231u\324\325		{\n\"$\211\2620\202\201\326!\210\306@A\"\262\210\322\327!\210|\210b\210\330`c\210`\331\n\332\304\333\312\334\312\335\312\257\n#\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 start-open end-open] 20 (#$ . 40435) (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\202 \307!\210\310@A\"\262\210\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 (#$ . 42571) (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\202-\210\313!\210\305\314\307!\"\210\315\316\"\203>\317\320\315\316\"!!\210	\321=\205H\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 (#$ . 43083) "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\202!\210\307!\210\302\310!\210\311\312\"\2051\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 (#$ . 43715) "r"])
#@102 Import keys in the OpenPGP armor format in the current region
between START and END.

(fn START END)
(defalias 'epa-import-armor-in-region #[514 "\212\214}\210b\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 (#$ . 44180) "r"])
#@47 Export selected KEYS to FILE.

(fn KEYS FILE)
(defalias 'epa-export-keys #[514 "\303!\304!	>\204\305\306\307D\"\210\211\211\310\nI\266\311\312\313!\"\210\3141-\315#0\2029\316!\210\305@A\"\262\210\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 (#$ . 44682) (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\211\307\310I\266\3111&\312\"c0\2022\313!\210\304@A\"\262\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 (#$ . 45774) (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)

Zerion Mini Shell 1.0