ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/epa.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; 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\324\325\315\306&\210\316\326\320\321\327DD\330\324\331\315\306&\210\316\332\320\321\333DD\334\324\335\315\306\311\336& \210\305\337\307\340\311\312\315\306&\210\316\341\320\321\342DD\343\324\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 \324\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-popup-info-window funcall function #[0 "\300\207" [t] 1] "If non-nil, display status information from epa commands in another window." :type boolean epa-info-window-height #[0 "\300\207" [5] 1] "Number of lines used to display status information." integer epa-pinentry-mode #[0 "\300\207" [nil] 1] "The pinentry mode.\n\nGnuPG 2.1 or later has an option to control the behavior of\nPinentry invocation. Possible modes are: `ask', `cancel',\n`error', and `loopback'. See the GnuPG manual for the meanings.\n\nIn epa commands, a particularly useful mode is `loopback', which\nredirects all Pinentry queries to the caller, so Emacs can query\npassphrase through the minibuffer, instead of external Pinentry\nprogram." (choice (const nil) (const ask) (const cancel) (const error) (const loopback)) "25.1" 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))) (#$ . 4291))
(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 (#$ . 4592))
#@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 (#$ . 4775))
#@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 (#$ . 4942))
(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-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 a 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)
(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 "\n\n(fn WIDGET &optional EVENT)"])
(defalias 'epa--key-widget-value-create #[257 "\304\305\"\211\306H>\204 \307\310\311D\"\210\211\312H@\306H>\204& \307\310\311D\"\210\313H@\314\315\306H >\204< \307\310\316D\"\210\317H\203\\ \320\306H >\204S \307\310\316D\"\210\317H\n\"@\202] \321\"\306H >\204m \307\310\316D\"\210\322H\323\203\272 \306H >\204\205 \307\310\324D\"\210\312H;\203\242 \306H >\204\234 \307\310\324D\"\210\312H\202\273 \325\306H >\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 0 signal wrong-type-argument epg-key 2 3 format "%c " epg-sub-key 1 rassq 32 6 " " epg-user-id epg-decode-dn ""] 12 "\n\n(fn WIDGET)"])
(defalias 'epa--key-widget-button-face-get #[257 "\303\304\"\211\305H>\204 \306\307\310D\"\210\211\311H\262@\211\305H >\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 0 signal wrong-type-argument epg-key 2 epg-sub-key 1 default] 6 "\n\n(fn WIDGET)"])
(defalias 'epa--key-widget-help-echo #[257 "\302\303\304\305\"\211\306H>\204 \307\310\311D\"\210\211\312H\262@\211\306H >\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 0 signal wrong-type-argument epg-key 2 epg-sub-key 6] 8 "\n\n(fn WIDGET)"])
(byte-code "\300\301\302\303!\203\f \303\202
\304\"\210\300\305\302\306!\203 \306\202 \304\"\207" [defalias epa--encode-coding-string fboundp encode-coding-string identity epa--decode-coding-string decode-coding-string] 4)
#@161 Hook run after entering Keys mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar epa-key-list-mode-hook nil (#$ . 9762))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp epa-key-list-mode-map put definition-name epa-key-list-mode] 4)
(defvar epa-key-list-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [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] 5)
(defvar epa-key-list-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [epa-key-list-mode-syntax-table variable-documentation put purecopy "Syntax table for `epa-key-list-mode'." epa-key-list-mode-abbrev-table definition-name epa-key-list-mode] 5)
(defvar epa-key-list-mode-abbrev-table (progn (define-abbrev-table 'epa-key-list-mode-abbrev-table nil) epa-key-list-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [epa-key-list-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `epa-key-list-mode'." epa-key-list-mode derived-mode-parent special-mode] 5)
#@223 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 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\334 \210\306\335!\210\306\336!\210\337 )\340\341!\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 "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) font-lock-set-defaults 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 (#$ . 11117) nil])
#@160 Hook run after entering Key mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar epa-key-mode-hook nil (#$ . 12381))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp epa-key-mode-map put definition-name epa-key-mode] 4)
(defvar epa-key-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [epa-key-mode-map variable-documentation put purecopy "Keymap for `epa-key-mode'." boundp epa-key-mode-syntax-table definition-name epa-key-mode] 5)
(defvar epa-key-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [epa-key-mode-syntax-table variable-documentation put purecopy "Syntax table for `epa-key-mode'." epa-key-mode-abbrev-table definition-name epa-key-mode] 5)
(defvar epa-key-mode-abbrev-table (progn (define-abbrev-table 'epa-key-mode-abbrev-table nil) epa-key-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [epa-key-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `epa-key-mode'." epa-key-mode derived-mode-parent special-mode] 5)
#@215 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 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
\325 C#\210\327 !\210\330\f!\210
\331 \210\307\211!\"\306\332!\210\333\334 \210\306\335!\210)\336\337!\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 "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) font-lock-set-defaults epa-exit-buffer-function run-mode-hooks epa-key-mode-hook local-abbrev-table truncate-lines buffer-read-only] 6 (#$ . 13641) nil])
#@161 Hook run after entering Info mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar epa-info-mode-hook nil (#$ . 14794))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp epa-info-mode-map put definition-name epa-info-mode] 4)
(defvar epa-info-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [epa-info-mode-map variable-documentation put purecopy "Keymap for `epa-info-mode'." boundp epa-info-mode-syntax-table definition-name epa-info-mode] 5)
(defvar epa-info-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [epa-info-mode-syntax-table variable-documentation put purecopy "Syntax table for `epa-info-mode'." epa-info-mode-abbrev-table definition-name epa-info-mode] 5)
(defvar epa-info-mode-abbrev-table (progn (define-abbrev-table 'epa-info-mode-abbrev-table nil) epa-info-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [epa-info-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `epa-info-mode'." epa-info-mode derived-mode-parent special-mode] 5)
#@217 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 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
\325 C#\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 "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 (#$ . 16074) 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 (#$ . 17099) "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 (#$ . 17550) "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 (#$ . 17725) nil])
(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 "\n\n(fn KEYS)"])
(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\"\2068 d|\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 "\n\n(fn NAME SECRET)"])
#@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 (#$ . 18924) (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 (#$ . 19252) (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)])
(defalias 'epa--key-list-revert-buffer #[512 "\301\302\"\207" [epa-list-keys-arguments apply epa--list-keys] 5 "\n\n(fn &optional IGNORE-AUTO NOCONFIRM)"])
(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])
(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 link :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 "\n\n(fn PROMPT KEYS)"])
#@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 (#$ . 21219)])
(defalias 'epa--show-key #[257 "\211\306H>\204 \307\310\311D\"\210\211\312H@\313\306H >\204# \307\310\314D\"\210\315H\n\"\316\317\211 \204K \306H >\204@ \307\310\314D\"\210\315H\317B\262\nBA\203W \320A!\204t \321\322\323\306H >\204l \307\310\314 D\"\210\315H\"!\241\210Aq\210\324 \210\325\305!\210\326 \210\306H>\204\224 \307\310\311D\"\210\327H\262\211\2038\211@\2031\330@\306H5>\204\265 \307\310\331@D\"\210@\332H\203\335 \333\334@\306H5>\204\321 \307\310\331@D\"\210@\332H6\"@!\202\336 \330\330@\306H5>\204\362 \307\310\331@D\"\210@\312H;\203@\306H5>\204
\307\310\331@D\"\210@\312H\202-\335@\306H5>\204(\307\310\331@D\"\210@\312H!\336\261\210\211A\262\202\231 \306H>\204H\307\310\311D\"\210\312H\262\211\203\254\330@\306H >\204c\307\310\314@D\"\210@\332H\203\212\333\334@\306H >\204~\307\310\314@D\"\210@\332H6\"@!\202\213\330\330@\306H >\204\236\307\310\314@D\"\210@\315H\330\322\337@\306H >\204\270\307\310\314\n@D\"\210@\340H\"\330@\306H >\204\322\307\310\314\n@D\"\210@\341H7\236A\342\3431\377\344\345 @\306H >\204\365\307\310\314@D\"\210 @\346H\"0\202\210\347\n@\306H >\204\307\310\314
@D\"\210\n@\350H\203j\322\351\352
@\306H >\2043\307\310\314@D\"\210
@\350H\"\203@\353\202A\354\3551d\344\345@\306H >\204Z\307\310\314@D\"\210@\350H\"0\202f\210\347\"\202k\356\357\360\361@\306H >\204\201\307\310\314@D\"\210@\312H\330#\362@\306H >\204\234\307\310\314@D\"\210@\363H\336\261\210\211A\262\202Meb\210\364p!*\207" [cl-struct-epg-key-tags cl-struct-epg-sub-key-tags epa-key-buffer-alist inhibit-read-only buffer-read-only epa-key 0 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 current-time "\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 "\n\n(fn KEY)"])
(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 "\n\n(fn INFO)"])
(defalias 'epa-display-error #[257 "\211\305H>\204 \306\307\310D\"\210\211\311H\312\232?\205\313 \313\314!\315 r\316\305\317\320\321!\322\"\323$\216 \2034 \324 !\2048 \325\314!\326 !\203D \327\326 !!\210rq\210\330\331\332 \210\333\305H>\204` \306\307\310D\"\210\334H\211\335=\203m \336\202\240 \211\337=\203w \340\202\240 \211\341=\203\201 \342\202\240 \211\343=\203\213 \344\202\240 \211\345=\203\225 \346\202\240 \211\347=\203\237 \350\202\240 \351\262\f\"\352\305H>\204\265 \306\307\310D\"\210\311H\261\210*\353 \210eb\210)\354!*\262\262\207" [cl-struct-epg-context-tags epa-error-buffer buffer-read-only inhibit-read-only epg-gpg-program 0 signal wrong-type-argument epg-context 20 "" get-buffer-create "*Error*" internal--before-save-selected-window make-byte-code "\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 18 decrypt "Error while decrypting with \"%s\":" verify "Error while verifying with \"%s\":" sign "Error while signing with \"%s\":" encrypt "Error while encrypting with \"%s\":" import-keys "Error while importing keys with \"%s\":" export-keys "Error while exporting keys with \"%s\":" "Error while executing \"%s\":\n\n" "\n\n" epa-info-mode display-buffer] 9 "\n\n(fn CONTEXT)"])
(defalias 'epa-display-verify-result #[257 "\300\301!!\207" [epa-display-info epg-verify-result-to-string] 4 "\n\n(fn VERIFY-RESULT)"])
(make-obsolete 'epa-display-verify-result 'epa-display-info "23.1")
(defalias 'epa-passphrase-callback-function #[771 "\302=\203. \303\304\305;\203 \304\306\"\202 \307\"\310H>\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" "" 0 signal wrong-type-argument epg-context 18 encrypt PIN "Passphrase for PIN: " assoc "Passphrase for %s %s: " "Passphrase for %s: "] 9 "\n\n(fn CONTEXT KEY-ID 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 "\n\n(fn CONTEXT WHAT CHAR CURRENT TOTAL HANDBACK)"])
#@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 (#$ . 26994)])
#@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 (#$ . 27313) (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\"\205W \323\324\321\322\"!!\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] 10 (#$ . 28261) "fFile: "])
(defalias 'epa--read-signature-type #[0 "\306\211\204g \307\310!\210\311 \262\211\312=\203 \313\262\202 \211\314=\203& \315\262\202 \211\316=\203a r\317\320!q\210p\321 \210\306\211\322\211\322 \323 \210\324\325!\210+\211 rq\210\326c\210)\327!\210)\266\202 \330\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 99 clear 100 detached 63 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 "\305=\203# \204 \306>\204 \307\202. \310>\203 \311\202. \312\202. \313>\203- \314\202. \315P\316!\211\317H\n>\204A \320\321\322D\"\210\211\211\323 I\266\211\317H\n>\204W \320\321\322D\"\210\211\211\324 I\266\211\317H\n>\204m \320\321\322D\"\210\211\211\325I\266\326\327\"\210\330\331\332\333\334\n!\"B\"\210\211\317H\n>\204\226 \320\321\322D\"\210\211\211\335\fI\266\336\333\334!\"\210\3371\265 \340$0\202\301 \341!\210\320@A\"\262\210\336\342\334!\334!#\207" [epa-protocol epa-armor cl-struct-epg-context-tags epa-textmode epa-pinentry-mode OpenPGP (nil t normal detached) ".asc" (t detached) ".sig" ".gpg" (t detached) ".p7s" ".p7m" epg-make-context 0 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 19 message (error) epg-sign-file epa-display-error "Signing %s...wrote %s"] 12 (#$ . 29701) (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 "\305=\203 \203 \306\202 \307\202 \310P\311!\211\312H\n>\204' \313\314\315D\"\210\211\211\316 I\266\211\312H\n>\204= \313\314\315D\"\210\211\211\317 I\266\320\321\"\210\322\323\324\325\326 !\"B\"\210\211\312H\n>\204e \313\314\315D\"\210\211\211\327\fI\266\330\325\326!\"\210\3311\202 \332$0\202\216 \333!\210\313@A\"\262\210\330\334\326!\326!#\207" [epa-protocol epa-armor cl-struct-epg-context-tags epa-textmode epa-pinentry-mode OpenPGP ".asc" ".gpg" ".p7m" epg-make-context 0 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 19 message (error) epg-encrypt-file epa-display-error "Encrypting %s...wrote %s"] 11 (#$ . 31126) (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\315H >\204 \316\317\320D\"\210\211\321\nI\266\322\314!\210\3231> \324{\"\211\2620\202J \325!\210\316@A\"\262\210\322\326!\210\327 \206^ \330\331\"\206^ \332\"\262\203s r q\210\333 \211c\210*\202\277 \334\335!\203\211 \333 |\210b\210\211c\210)\202\277
r\336\337!q\210p\340 \210\307\211*+\333\211,\333 - \341 \210\342\343!\210+\211 .\211q\210c\210\344 \210\345!\210)\266\346\347\"\205\316 \350\351\346\347\"!!\266\202)\207" [epa-protocol cl-struct-epg-context-tags epa-pinentry-mode coding-system-for-read inhibit-read-only default-directory epg-make-context nil epg-context-set-passphrase-callback epa-passphrase-callback-function epg-context-set-progress-callback epa-progress-callback-function "Decrypting..." 0 signal wrong-type-argument epg-context 19 message (error) epg-decrypt-string epa-display-error "Decrypting...done" epa--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-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks standard-output] 11 (#$ . 32296) "r"])
(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 "\n\n(fn MIME-CHARSET)"])
#@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 (#$ . 34793) "r"])
(function-put 'epa-decrypt-armor-in-region 'interactive-only t)
#@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\310H >\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!\203y \333\307 |\210b\210\211c\210*\202\260 (r\334\335!q\210p\336 \210(\307\211)\333\211*\333 + \337 \210\340\341!\210+\211 ,\211q\210c\210\342 \210\343!\210)\266\344\345\"\205\277 \346\347\344\345\"!!\207" [epa-protocol cl-struct-epg-context-tags coding-system-for-write coding-system-for-read buffer-read-only inhibit-read-only epg-make-context nil 0 signal wrong-type-argument epg-context 11 epa-progress-callback-function "Verifying..." message (error) epg-verify-string epa--encode-coding-string get-text-property epa-coding-system-used epa-display-error "Verifying...done" epa--decode-coding-string undecided y-or-n-p "Replace the original text? " t 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 default-directory buffer-file-name buffer-undo-list inhibit-modification-hooks standard-output] 12 (#$ . 35605) "r"])
(function-put 'epa-verify-region 'interactive-only t)
#@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 (#$ . 37537) "r"])
(byte-code "\300\301\302\303#\210\304\305\306\307!\203 \307\202 \310\"\207" [function-put epa-verify-cleartext-in-region interactive-only t defalias epa--select-safe-coding-system fboundp select-safe-coding-system #[514 "\207" [buffer-file-coding-system] 3 "\n\n(fn FROM TO)"]] 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\305!\306\307H >\204 \310\311\312D\"\210\211\313\314I\266\307H >\204* \310\311\312D\"\210\211\315\314I\266\307H >\204@ \310\311\312D\"\210\211\316I\266\317\320\"\210\321\322\323B\"\210\307H >\204c \310\311\312D\"\210\211\324\nI\266\325\323!\210\3261\205 \327\330{ \"#\211\2620\202\221 \331!\210\310@A\"\262\210\325\332!\210|\210b\210\333`\334\f\206\246 \"c\210`\335 \336\306\337\314\340\314\341\314\257\n#\266\202)\207" [epa-protocol cl-struct-epg-context-tags epa-pinentry-mode epa-last-coding-system-specified coding-system-for-read epg-make-context nil 0 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..." 19 message (error) epg-sign-string epa--encode-coding-string epa-display-error "Signing...done" add-text-properties epa--decode-coding-string epa-coding-system-used front-sticky rear-nonsticky start-open end-open] 19 (#$ . 38499) (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 epa--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#\210\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)"]] 4)
#@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\304!\305\306H >\204 \307\310\311D\"\210\211\312\313I\266\306H >\204* \307\310\311D\"\210\211\314\313I\266\203K \306H >\204D \307\310\311D\"\210\211\315I\266\316\317\"\210\320\321\322B\"\210\306H >\204f \307\310\311D\"\210\211\323\nI\266\324\322!\210\3251\213 \326\327 { \"$\211\2620\202\227 \330!\210\307@A\"\262\210\324\331!\210|\210b\210\332`c\210`\333 \334\305\335\313\336\313\337\313\257\n#\266\202)\207" [epa-protocol cl-struct-epg-context-tags epa-pinentry-mode epa-last-coding-system-specified epg-make-context nil 0 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..." 19 message (error) epg-encrypt-string epa--encode-coding-string epa-display-error "Encrypting...done" add-text-properties epa-coding-system-used front-sticky rear-nonsticky start-open end-open] 20 (#$ . 41020) (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 epa--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)])
(function-put 'epa-encrypt-region 'interactive-only t)
#@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 (#$ . 43193) (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 (#$ . 43705) "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 (#$ . 44337) "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 (#$ . 44802) "r"])
#@47 Export selected KEYS to FILE.
(fn KEYS FILE)
(defalias 'epa-export-keys #[514 "\303!\211\304H >\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 0 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 (#$ . 45304) (byte-code "\304 \305\204 \306\307!\210\310@\311H>\204 \312\313\314@D\"\210@\315H@\311H >\204F \312\313\316@\311H>\204> \312\313\314@D\"\210@\315H@D\"\210@\311H>\204W \312\313\314@D\"\210@\315H@\317H\n\203f \320\202g \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 0 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!\211\303H >\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 0 signal wrong-type-argument epg-context 4 t (error) epg-export-keys-to-string epa-display-error] 6 (#$ . 46385) (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)
Kontol Shell Bypass