;ELC ;;; Compiled by buildd@akateko.buildd on Fri Oct 25 13:50:04 2013 ;;; from file /build/buildd/emacs23-23.4+1/debian/build-x/lisp/epa.el ;;; in Emacs version 23.4.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\301&\207" [require epg font-lock widget derived custom-declare-group epa nil "The EasyPG Assistant" :version "23.1" :group] 8) #@87 If non-nil, status information from epa commands is displayed on the separate window. (custom-declare-variable 'epa-popup-info-window 't '(#$ . 754) :type 'boolean :group 'epa) #@53 Number of lines used to display status information. (custom-declare-variable 'epa-info-window-height '5 '(#$ . 937) :type 'integer :group 'epa) (byte-code "\301\302\303\304\305\306\307\310&\210\311\312\313\314\315\316\236\203\317\202\320BBD\321\316\236\203)\322\202*\323DD\324\307\302%\210\311\325\326\314\315\327\236\203@\330\202A\331BBD\321\327\236\203O\332\202P\333DD\334\307\302%\210\311\335\321\327\236\203d\336\202e\337DC\340\307\302%\210\311\341\321\342\327\236\203z\343\202{\344\345\"DC\346\307\302%\210\311\347\350\351\307\302%\210\311\352\353\314\354\316\236\203\233\355\202\234\356BBD\357\314\360\316\236\203\254\361\202\255\362BBD\321\316\236\203\273\363\202\274\364DE\324\307\302%\210\311\365\366\314\315\316\236\203\322\367\202\323\370BBD\321\316\236\203\341\371\202\342\372DD\373\307\310%\210\311\374\375\314\376\327\236\203\370\377\202\373\201@BBD\321\327\236\203 \201A\202\201BDD\201C\307\310%\207" [custom-face-attributes custom-declare-group epa-faces nil "Faces for epa-mode." :version "23.1" :group epa custom-declare-face epa-validity-high ((class color) (background dark)) :foreground "PaleTurquoise" :weight (:weight bold) (:bold t) t (:weight bold) (:bold t) "Face used for displaying the high validity." epa-validity-medium ((class color) (background dark)) :slant (:slant italic) (:italic t) (:slant italic) (:italic t) "Face used for displaying the medium validity." epa-validity-low (:slant italic) (:italic t) "Face used for displaying the low validity." epa-validity-disabled append (:slant italic) (:italic t) (: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 ((class color) (background dark)) "orange" (:weight bold) (:bold t) ((class color) (background light)) "red" (:weight bold) (:bold t) (:weight bold) (:bold t) epa-field-name ((class color) (background dark)) (:weight bold) (:bold t) (:weight bold) (:bold t) "Face for the name of the attribute field." epa-field-body ((class color) (background dark)) "turquoise" (:slant italic) (:italic t) (:slant italic) (:italic t) "Face for the body of the attribute field."] 8) #@44 An alist mapping validity values to faces. (custom-declare-variable 'epa-validity-face-alist ''((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)) '(#$ . 3252) :type '(repeat (cons symbol face)) :group 'epa) #@43 Default expressions to addon in epa-mode. (defvar epa-font-lock-keywords '(("^\\*" (0 'epa-mark)) ("^ \\([^ :]+:\\)[ ]*\\(.*\\)$" (1 'epa-field-name) (2 'epa-field-body))) (#$ . 3762)) (byte-code "\301B\302\303!\207" [current-load-list epa-pubkey-algorithm-letter-alist (lambda (#1=#:defconst-tmp-var) (defconst epa-pubkey-algorithm-letter-alist #1#)) ((1 . 82) (2 . 114) (3 . 115) (16 . 103) (17 . 68) (20 . 71))] 2) #@135 *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 (#$ . -4190)) #@127 *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 (#$ . -4375)) #@125 *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 (#$ . -4544)) (byte-code "\303B\304\303!\204\305\303\306\"\210\307B\304\307!\204\305\307\306\"\210\310B\304\310!\204-\305\310\306\"\210\311B\304\311!\204<\305\311\306\"\210\312B\304\312!\204K\305\312\306\"\210\313B\304\313!\204Z\305\313\306\"\210\314B\304\314!\204\305\314\315 \315 \316\n\317\320#\210\316\n\321\322#\210\316\n\323\324#\210\316\n\325\326#\210\316\n\327\330#\210\316\n\331\332#\210\316\n\333\334#\210\316\n\335\336#\210\316\n\337\340#\210\316\n\341\342#\210\316\n\343\344#\210\316\n\345\346#\210\316\n\347\350#\210\316\n\351\352#\210\316\n\353\354#\210\316\n\355\356 B#\210\316 \357\360#\210\316 \361\362#\210\316 \363\364#\210\316 \365\366#\210\316 \367\370#\210\316 \371\372#\210\316 \373\374#\210\316 \375\376#\210\316 \377\201@#\210\316 \201A\201B#\210\316 \201C\201D#\210\n*\"\210\201EB\304\201E!\204=\305\201E\315 \316\n\353\354#\210\n)\"\210\201FB\304\201F!\204^\305\201F\315 \316\n\353\201G#\210\n)\"\210\201HB\304\201H!\204u\305\201H\201I\"\210\201J\310\201K\201L\201M\201N\201O\201P\201Q\201R\201S\201T\201U\201V& \207" [current-load-list menu-map keymap epa-keys-buffer default-boundp set-default nil epa-key-buffer-alist epa-key epa-list-keys-arguments epa-info-buffer epa-last-coding-system-specified epa-key-list-mode-map 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 [delete] scroll-down "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") epa-key-mode-map epa-info-mode-map delete-window epa-exit-buffer-function bury-buffer define-widget 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] 14) (defalias 'epa--key-widget-action #[(widget &optional event) "\303 \304\305\306 \"r\307\216\310\311\n\312\"!,\207" [save-selected-window-alist save-selected-window-window widget selected-window mapcar #[(frame) "\301!B\207" [frame frame-selected-window] 3] frame-list ((byte-code "\304\211\203(\n@\305 @!\203!\306 A!\203!\307 @ A\310#\210\nA\211\204*\306 !\2034\311 \310\"\210\304\207" [save-selected-window-alist elt --dolist-tail-- save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) epa--show-key widget-get :value] 4]) (defalias 'epa--key-widget-value-create #[(widget) "\305\306\"\307 !@\310 !@\311\312\313\n!\203!\314\313\n!\f\"@\202\"\315\"\316\n!\317 \203@\320 !;\2038\320 !\202A\321\320 !!\202A\322\261+\207" [widget key primary-sub-key primary-user-id epg-key-validity-alist widget-get :value epg-key-sub-key-list epg-key-user-id-list format "%c " epg-sub-key-validity rassq 32 epg-sub-key-id " " epg-user-id-string epg-decode-dn ""] 6]) (defalias 'epa--key-widget-button-face-get #[(widget) "\303\304\305\306\"!@!\211\203 \n\236A\202\307)\207" [widget validity epa-validity-face-alist epg-sub-key-validity epg-key-sub-key-list widget-get :value default] 6]) (defalias 'epa--key-widget-help-echo #[(widget) "\301\302\303\304\305\306\"!@!\"\207" [widget format "Show %s" epg-sub-key-id epg-key-sub-key-list widget-get :value] 7]) (byte-code "\300\301!\203\302\303\301\"\210\202\302\303\304\"\210\300\305!\203!\302\306\305\"\210\202&\302\306\304\"\210\300\207" [fboundp encode-coding-string defalias epa--encode-coding-string identity decode-coding-string epa--decode-coding-string] 3) #@33 Major mode for `epa-list-keys'. (defalias 'epa-key-list-mode #[nil "\306 \210\307 \210\310\311\312\211\313\f!\210\314\305!\210\315\316 \210\314\317!\210\314\320!\210\321\322\323!\207" [major-mode mode-name truncate-lines buffer-read-only epa-key-list-mode-map font-lock-defaults kill-all-local-variables buffer-disable-undo epa-key-list-mode "Keys" t use-local-map make-local-variable (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] 3 (#$ . 9316)]) #@35 Major mode for a key description. (defalias 'epa-key-mode #[nil "\306 \210\307 \210\310\311\312\211\313\f!\210\314\305!\210\315\316 \210\314\317!\210\320\321!\207" [major-mode mode-name truncate-lines buffer-read-only epa-key-mode-map font-lock-defaults kill-all-local-variables buffer-disable-undo epa-key-mode "Key" t use-local-map make-local-variable (epa-font-lock-keywords t) font-lock-set-defaults epa-exit-buffer-function run-mode-hooks epa-key-mode-hook] 3 (#$ . 9895)]) #@35 Major mode for `epa-info-buffer'. (defalias 'epa-info-mode #[nil "\305 \210\306 \210\307\310\311\211\312\f!\210\313\314!\207" [major-mode mode-name truncate-lines buffer-read-only epa-info-mode-map kill-all-local-variables buffer-disable-undo epa-info-mode "Info" t use-local-map run-mode-hooks epa-info-mode-hook] 3 (#$ . 10385)]) #@68 Mark a key on the current line. If ARG is non-nil, unmark the key. (defalias 'epa-mark-key #[(&optional arg) "\304\305\211\306 \210\307`\310\"\204\311\312!\210\313`!\314\315!\210 \203$\316\202%\317c\210\320`S`#\210\305y+\207" [properties buffer-read-only inhibit-read-only arg 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] 4 (#$ . 10727) "P"]) #@68 Unmark a key on the current line. If ARG is non-nil, mark the key. (defalias 'epa-unmark-key #[(&optional arg) "\301?!\207" [arg epa-mark-key] 2 (#$ . 11180) "P"]) #@77 Exit the current buffer. `epa-exit-buffer-function' is called if it is set. (defalias 'epa-exit-buffer #[nil " \207" [epa-exit-buffer-function] 1 (#$ . 11351) nil]) (defalias 'epa--insert-keys #[(keys) "\212\214``}\210\302 \2034`\303c\210\304`\305 @\306\302\307\310\311\310\312\310\257\n#\210\313\305\314 @#\210\315c\210 A\211\204\f)\304ed\316\310\306\302\307\310\311\310\312\310\257\n#*\207" [point keys nil " " add-text-properties epa-key front-sticky rear-nonsticky t start-open end-open widget-create :value "\n" epa-list-keys] 14]) (defalias 'epa--list-keys #[(name secret) "\203\n\306!\204\307\310!q\210\311 \210\312\313e\314 !\315 \316\"\204*\317 \316\" \203< \317 \316\"\2067d|\210 b\210\320\321\n#!\210\322 \210\323\324 \"\210,\325\326!\210Deb\210\327p!\207" [epa-keys-buffer epa-protocol context point buffer-read-only inhibit-read-only 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 epa-list-keys-arguments pop-to-buffer name secret widget-keymap] 5]) #@58 List all keys matched with NAME from the public keyring. (defalias 'epa-list-keys #[(&optional name) "\301\302\"\207" [name epa--list-keys nil] 3 (#$ . 12552) (byte-code "\203\303\304 \205\f @\"\211\305\232?\205\n)C\207\306C\207" [current-prefix-arg epa-list-keys-arguments name read-string "Pattern: " "" nil] 4)]) #@59 List all keys matched with NAME from the private keyring. (defalias 'epa-list-secret-keys #[(&optional name) "\301\302\"\207" [name epa--list-keys t] 3 (#$ . 12882) (byte-code "\203\303\304 \205\f @\"\211\305\232?\205\n)C\207\306C\207" [current-prefix-arg epa-list-keys-arguments name read-string "Pattern: " "" nil] 4)]) (defalias 'epa--key-list-revert-buffer #[(&optional ignore-auto noconfirm) "\301\302\"\207" [epa-list-keys-arguments apply epa--list-keys] 3]) (defalias 'epa--marked-keys #[nil "rq\210eb\210\303\211\304\305\303\306#\203$\307\310\224\311\"\211\203 \nB\202 \n\237+\206:\212\312 \210\307`\311\"\211\2059 C*\207" [epa-keys-buffer key keys nil re-search-forward "^\\*" t get-text-property 0 epa-key beginning-of-line] 5]) (defalias 'epa--select-keys #[(prompt keys) "\203\n\306!\204\307\310!rq\210\311 \210\312\313\314 \210 \315\316\317!\261\210\320\321\322\323\324\316\325!\326&\210\320\321\322\327\324\316\330!\331&\210\332c\210\333\f!\210\334 \210\335\336 \"\210\337%eb\210\340&\341p!\210+\342\216\343 \210\344 *\207" [epa-keys-buffer buffer-read-only inhibit-read-only prompt keys widget-keymap buffer-live-p generate-new-buffer "*Keys*" epa-key-list-mode 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 #[(&rest ignore) "\300 \207" [abort-recursive-edit] 1] :help-echo "Click here or \\[abort-recursive-edit] to cancel" "Cancel" #[(&rest ignore) "\300 \207" [exit-recursive-edit] 1] "Click here or \\[exit-recursive-edit] to finish" "OK" "\n\n" epa--insert-keys widget-setup set-keymap-parent current-local-map abort-recursive-edit soft pop-to-buffer ((kill-buffer epa-keys-buffer)) recursive-edit epa--marked-keys epa-exit-buffer-function display-buffer-mark-dedicated] 7]) #@271 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. (defalias 'epa-select-keys #[(context prompt &optional names secret) "\305 \n#\306\f \")\207" [context names secret keys prompt epg-list-keys epa--select-keys] 4 (#$ . 14752)]) (defalias 'epa--show-key #[(key) "\306!@\307\310 !\n\"\311\312\2111 \204!\310 !\312B\211\nB A\203-\313 A!\2048 \314\315\316\310 !\"!\241\210 Aq\210\317 \210\320\321!\210\322 \210\323!\2111\203\2271@\203\216\324\3251@!\203p\326\327\3251@!2\"@!\202q\324\324\3301@!;\203\203\3301@!\202\212\331\3301@!!\332\261\2101A\2111\204R\306!\2111\203\324\3331@!\203\270\326\327\3331@!2\"@!\202\271\324\324\3101@!\324\315\334\3351@!\"\324\3361@!3\236A\337\312\340\341\217\3421@!\203\371\315\343\344 \3421@!\"\203\360\345\202\361\346\312\347\350\217\"\202\372\351\352\353\354\3551@!\324#\356\3571@!\332\261\2101A\2111\204\240eb\210\360p!-\207" [key primary-sub-key epa-key-buffer-alist entry inhibit-read-only buffer-read-only epg-key-sub-key-list assoc epg-sub-key-id t nil buffer-live-p generate-new-buffer format "*Key*%s" epa-key-mode make-local-variable epa-key erase-buffer epg-key-user-id-list " " epg-user-id-validity char-to-string rassq epg-user-id-string epg-decode-dn "\n" epg-sub-key-validity "%dbits" epg-sub-key-length epg-sub-key-algorithm "\n Created: " (byte-code "\301\302\303@!\"\207" [pointer format-time-string "%Y-%m-%d" epg-sub-key-creation-time] 4) ((error "????-??-??")) epg-sub-key-expiration-time time-less-p current-time "\n Expires: %s" "\n Expired: %s" (byte-code "\301\302\303@!\"\207" [pointer format-time-string "%Y-%m-%d" epg-sub-key-expiration-time] 4) ((error "????-??-??")) "" "\n Capabilities: " mapconcat symbol-name epg-sub-key-capability "\n Fingerprint: " epg-sub-key-fingerprint pop-to-buffer pointer epg-key-validity-alist epg-pubkey-algorithm-alist] 17]) (defalias 'epa-display-info #[(info) "\203l\306 \307\310\311 \"r\312\216 \203\313 !\204\314\315!\316 !\203*\317\316 !!\210r q\210\320\321\322 \210c\210*\323 \210eb\210)\324 V\203W\325\326\321\324 Z\" \"\202j\327 !\210\324 V\205j\330\324 Z!,\207\331\332\"\207" [epa-popup-info-window save-selected-window-alist save-selected-window-window epa-info-buffer buffer-read-only inhibit-read-only selected-window mapcar #[(frame) "\301!B\207" [frame frame-selected-window] 3] frame-list ((byte-code "\304\211\203(\n@\305 @!\203!\306 A!\203!\307 @ A\310#\210\nA\211\204*\306 !\2034\311 \310\"\210\304\207" [save-selected-window-alist elt --dolist-tail-- save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) 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" info epa-info-window-height] 5]) (defalias 'epa-display-verify-result #[(verify-result) "\301\302!!\207" [verify-result epa-display-info epg-verify-result-to-string] 3]) (make-obsolete 'epa-display-verify-result 'epa-display-info "23.1") (defalias 'epa-passphrase-callback-function #[(context key-id handback) "\304=\203\305\306\307 !\310=\"\207\305\311=\203\312\2021\313\n\"\211\203,\314\315 A#\2020\314\316\")!\207" [key-id context epg-user-id-alist entry SYM read-passwd "Passphrase for symmetric encryption: " epg-context-operation encrypt PIN "Passphrase for PIN: " assoc format "Passphrase for %s %s: " "Passphrase for %s: "] 6]) (defalias 'epa-progress-callback-function #[(context what char current total handback) "\304\305\206 \306P\n\307V\203\310 \311\n!\245\312_!\202\307 \n%\207" [handback what total current message "%s%d%% (%d/%d)" ": " 0 floor float 100] 7]) #@15 Decrypt FILE. (defalias 'epa-decrypt-file #[(file) "\305!\306!\305\307\310\311 !\312Q\313 ! #!\314 !\315\f\316\"\210\317\f\320\321\322\311!\"B\"\210\323\322\311!\"\210\324\f\n#\210\323\325\311!\311\n!#\210\326\f\327\"\205R\330\331\326\f\327\"!!+\207" [file default-name plain epa-protocol context expand-file-name file-name-sans-extension read-file-name "To file (default " file-name-nondirectory ") " file-name-directory epg-make-context epg-context-set-passphrase-callback epa-passphrase-callback-function epg-context-set-progress-callback epa-progress-callback-function format "Decrypting %s..." message epg-decrypt-file "Decrypting %s...wrote %s" epg-context-result-for verify epa-display-info epg-verify-result-to-string] 7 (#$ . 18740) "fFile: "]) #@14 Verify FILE. (defalias 'epa-verify-file #[(file) "\304!\305 !\306!\307\232\205\310!\311\n\312\313\314\315!\"B\"\210\316\314\315!\"\210\317\n #\210\316\320\315!\"\210\321\n\322\"\205C\323\324\321\n\322\"!!*\207" [file epa-protocol context plain 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 epg-verify-file "Verifying %s...done" epg-context-result-for verify epa-display-info epg-verify-result-to-string] 7 (#$ . 19511) "fFile: "]) (defalias 'epa--read-signature-type #[nil "\303\211 \204A\304\305!\210\306 \211\307=\203\310\211\202\311=\203'\312\211\202\313=\203;\314\220r\nq\210\315c)\221\210\202\316\211\203 *\207" [c type standard-output nil message "Signature type (n,c,d,?) " read-char 99 clear 100 detached 63 "*Help*" "n - Create a normal signature\nc - Create a cleartext signature\nd - Create a detached signature\n? - Show this help\n" normal] 3]) #@37 Sign FILE by SIGNERS keys selected. (defalias 'epa-sign-file #[(file signers mode) " \306=\203#\n\204 \307>\204\310\202. \311>\203\312\202.\313\202. \314>\203-\315\202.\316P\317 !\320\f\n\"\210\321\f\"\210\322\f\"\210\323\f\324\"\210\325\f\326\327\330\331!\"B\"\210\332\330\331!\"\210\333\f $\210\332\334\331!\331 !#*\207" [file epa-protocol epa-armor mode context signature OpenPGP (nil t normal detached) ".asc" (t detached) ".sig" ".gpg" (t detached) ".p7s" ".p7m" epg-make-context epg-context-set-armor epg-context-set-textmode epg-context-set-signers 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 epg-sign-file "Signing %s...wrote %s" epa-textmode signers] 7 (#$ . 20569) (let ((verbose current-prefix-arg)) (list (expand-file-name (read-file-name "File: ")) (if verbose (epa-select-keys (epg-make-context epa-protocol) "Select keys for signing.\nIf no one is selected, default secret key is used. " nil t)) (if verbose (epa--read-signature-type) 'clear)))]) #@30 Encrypt FILE for RECIPIENTS. (defalias 'epa-encrypt-file #[(file recipients) " \306=\203\n\203\307\202\310\202\311P\312 !\313 \n\"\210\314 \"\210\315 \316\"\210\317 \320\321\322\323!\"B\"\210\324\322\323!\"\210\325 \f$\210\324\326\323!\323\f!#*\207" [file epa-protocol epa-armor context cipher epa-textmode OpenPGP ".asc" ".gpg" ".p7m" epg-make-context epg-context-set-armor epg-context-set-textmode 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 epg-encrypt-file "Encrypting %s...wrote %s" recipients] 7 (#$ . 21706) (list (expand-file-name (read-file-name "File: ")) (epa-select-keys (epg-make-context epa-protocol) "Select recipients for encryption.\nIf no one is selected, symmetric encryption will be performed. "))]) #@577 Decrypt 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-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)) (defalias 'epa-decrypt-region #[(start end) "\212\306!\307\310\n\311\"\210\312\n\313\314B\"\210\315\314!\210\316\n \f{\"\315\317!\210\320 \2060\321 \322\"\2060\323\"\324\325!\203L\326\307 \f|\210 b\210 c\210*\202Y\327\220q\210 c\210\330 \221\210\331\n\332\"\205h\333\334\331\n\332\"!!+\207" [epa-protocol plain context start end coding-system-for-read epg-make-context nil epg-context-set-passphrase-callback epa-passphrase-callback-function epg-context-set-progress-callback epa-progress-callback-function "Decrypting..." message epg-decrypt-string "Decrypting...done" epa--decode-coding-string get-text-property epa-coding-system-used undecided y-or-n-p "Replace the original text? " t "*Temp*" epa-info-mode epg-context-result-for verify epa-display-info epg-verify-result-to-string buffer-read-only inhibit-read-only standard-output] 5 (#$ . 22599) "r"]) (defalias 'epa--find-coding-system-for-mime-charset #[(mime-charset) "\302 \211\203\303@\301\" =\203A\211\204)\207" [pointer mime-charset coding-system-list coding-system-get] 4]) #@179 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. (defalias 'epa-decrypt-armor-in-region #[(start end) "\212\214 }\210b\210\305\211\306\307\305\310#\205J\311\224\306\312\305\310#\211\204&\313\314!\210 b\210\f\206=\306\315\n\310#\205=\316\317\320\321!\227!!\nb\210\322 \n\"\210)\202 ,\207" [start end armor-end armor-start coding-system-for-read nil re-search-forward "-----BEGIN PGP MESSAGE-----$" t 0 "^-----END PGP MESSAGE-----$" error "No armor tail" "^Charset: \\(.*\\)" epa--find-coding-system-for-mime-charset intern match-string 1 epa-decrypt-region] 5 (#$ . 24249) "r"]) #@573 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)) (defalias 'epa-verify-region #[(start end) "\306!\307\310\n\311\312B\"\210\313\312!\210\314\n\315 \f{ \206\316 \317\"\"\"\313\320!\210\321 \2065\316 \317\"\2065\322\"\323\324!\203Q\325\307 \f|\210 b\210 c\210*\202^\326\220q\210 c\210\327 \221\210\330\n\331\"\205m\332\333\330\n\331\"!!*\207" [epa-protocol plain context start end coding-system-for-write epg-make-context nil epg-context-set-progress-callback epa-progress-callback-function "Verifying..." message epg-verify-string epa--encode-coding-string get-text-property epa-coding-system-used "Verifying...done" epa--decode-coding-string undecided y-or-n-p "Replace the original text? " t "*Temp*" epa-info-mode epg-context-result-for verify epa-display-info epg-verify-result-to-string coding-system-for-read buffer-read-only inhibit-read-only standard-output] 7 (#$ . 24975) "r"]) #@196 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. (defalias 'epa-verify-cleartext-in-region #[(start end) "\212\214 }\210b\210\304\211\305\306\304\307#\205:\310\224\305\311\304\307#\204$\312\313!\210\305\314\304\307#\211\2042\312\315!\210\316 \n\"\210\202 ,\207" [start end cleartext-end cleartext-start 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] 5 (#$ . 26412) "r"]) (byte-code "\300\301!\203\302\303\301\"\210\202\302\303\304\"\210\300\207" [fboundp select-safe-coding-system defalias epa--select-safe-coding-system #[(from to) "\207" [buffer-file-coding-system] 1]] 3) #@576 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))) (defalias 'epa-sign-region #[(start end signers mode) "\212\306!\307\310\n\311\"\210\312\n\311\"\210\313\n \"\210\314\n\315\"\210\316\n\317\320B\"\210\321\320!\210\322\n\323\f {\"#\321\324!\210\f |\210\fb\210\325`\326 \206I\"c\210`\327\330\307\331\311\332\311\333\311\257\n#+\207" [epa-protocol signature context signers start end epg-make-context nil epg-context-set-armor t epg-context-set-textmode epg-context-set-signers epg-context-set-passphrase-callback epa-passphrase-callback-function epg-context-set-progress-callback epa-progress-callback-function "Signing..." message epg-sign-string epa--encode-coding-string "Signing...done" add-text-properties epa--decode-coding-string epa-coding-system-used front-sticky rear-nonsticky start-open end-open epa-last-coding-system-specified mode coding-system-for-read] 13 (#$ . 27318) (let ((verbose current-prefix-arg)) (setq epa-last-coding-system-specified (or coding-system-for-write (epa--select-safe-coding-system (region-beginning) (region-end)))) (list (region-beginning) (region-end) (if verbose (epa-select-keys (epg-make-context epa-protocol) "Select keys for signing.\nIf no one is selected, default secret key is used. " nil t)) (if verbose (epa--read-signature-type) 'clear)))]) (byte-code "\300\301!\203\302\303\301\"\210\202\302\303\304\"\210\300\207" [fboundp derived-mode-p defalias epa--derived-mode-p #[(&rest modes) " \n>\204 \303N\211\204 )\207" [major-mode parent modes derived-mode-parent] 2 "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."]] 3) #@586 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)) (defalias 'epa-encrypt-region #[(start end recipients sign signers) "\212\306!\307\310\n\311\"\210\312\n\311\"\210 \203\313\n\f\"\210\314\n\315\"\210\316\n\317\320B\"\210\321\320!\210\322\n\323 {\" $\321\324!\210 |\210 b\210\325` c\210`\326\327\307\330\311\331\311\332\311\257\n#+\207" [epa-protocol cipher context sign signers start epg-make-context nil epg-context-set-armor t epg-context-set-textmode epg-context-set-signers epg-context-set-passphrase-callback epa-passphrase-callback-function epg-context-set-progress-callback epa-progress-callback-function "Encrypting..." message epg-encrypt-string epa--encode-coding-string "Encrypting...done" add-text-properties epa-coding-system-used front-sticky rear-nonsticky start-open end-open end epa-last-coding-system-specified recipients] 13 (#$ . 29538) (let ((verbose current-prefix-arg) (context (epg-make-context epa-protocol)) sign) (setq epa-last-coding-system-specified (or coding-system-for-write (epa--select-safe-coding-system (region-beginning) (region-end)))) (list (region-beginning) (region-end) (epa-select-keys context "Select recipients for encryption.\nIf no one is selected, symmetric encryption will be performed. ") (setq sign (if verbose (y-or-n-p "Sign? "))) (if sign (epa-select-keys context "Select keys for signing. "))))]) #@23 Delete selected KEYS. (defalias 'epa-delete-keys #[(keys &optional allow-secret) "\305!\306\307!\210\310 \n #\210\306\311!\210\312\313\f\")\207" [epa-protocol context keys allow-secret epa-list-keys-arguments epg-make-context message "Deleting..." epg-delete-keys "Deleting...done" apply epa--list-keys] 4 (#$ . 31449) (let ((keys (epa--marked-keys))) (unless keys (error "No keys selected")) (list keys (eq (nth 1 epa-list-keys-arguments) t)))]) #@24 Import keys from FILE. (defalias 'epa-import-keys #[(file) "\305!\306 !\307\310\311!\"\210\312\313\314\217\210\315\n\316\"\203$\317\320\315\n\316\"!!\210 \321=\205.\322\323\f\")\207" [file epa-protocol context major-mode epa-list-keys-arguments expand-file-name epg-make-context message "Importing %s..." file-name-nondirectory nil (byte-code "\302 \"\210\303\304\305 !\"\207" [context file epg-import-keys-from-file message "Importing %s...done" file-name-nondirectory] 4) ((error (byte-code "\301\302\303!\"\207" [file message "Importing %s...failed" file-name-nondirectory] 4))) epg-context-result-for import epa-display-info epg-import-result-to-string epa-key-list-mode apply epa--list-keys] 5 (#$ . 31904) "fFile: "]) #@30 Import keys from the region. (defalias 'epa-import-keys-region #[(start end) "\302!\303\304!\210\305\306\307\217\210\310 \311\"\205\312\313\310 \311\"!!)\207" [epa-protocol context epg-make-context message "Importing..." nil (byte-code "\303 \n{\"\210\304\305!\207" [context start end epg-import-keys-from-string message "Importing...done"] 4) ((error (message "Importing...failed"))) epg-context-result-for import epa-display-info epg-import-result-to-string] 5 (#$ . 32642) "r"]) #@86 Import keys in the OpenPGP armor format in the current region between START and END. (defalias 'epa-import-armor-in-region #[(start end) "\212\214 }\210b\210\304\211\305\306\304\307#\2053\310\224\305\311\312\313!\314Q\304\307#\211\204+\315\316!\210\317 \n\"\210\202 ,\207" [start end armor-end armor-start nil re-search-forward "-----BEGIN \\(PGP \\(PUBLIC\\|PRIVATE\\) KEY BLOCK\\)-----$" t 0 "^-----END " match-string 1 "-----$" error "No armor tail" epa-import-keys-region] 5 (#$ . 33135) "r"]) #@31 Export selected KEYS to FILE. (defalias 'epa-export-keys #[(keys file) "\305!\306 \n\"\210\307\310\311 !\"\210\312 \f #\210\307\313\311 !\")\207" [epa-protocol context epa-armor file keys epg-make-context epg-context-set-armor message "Exporting to %s..." file-name-nondirectory epg-export-keys-to-file "Exporting to %s...done"] 4 (#$ . 33648) (let ((keys (epa--marked-keys)) default-name) (unless keys (error "No keys selected")) (setq default-name (expand-file-name (concat (epg-sub-key-id (car (epg-key-sub-key-list (car keys)))) (if epa-armor ".asc" ".gpg")) default-directory)) (list keys (expand-file-name (read-file-name (concat "To file (default " (file-name-nondirectory default-name) ") ") (file-name-directory default-name) default-name))))]) #@39 Insert selected KEYS after the point. (defalias 'epa-insert-keys #[(keys) "\303!\304 \305\"\210\306 \n\"c)\207" [epa-protocol context keys epg-make-context epg-context-set-armor t epg-export-keys-to-string] 3 (#$ . 34410) (list (epa-select-keys (epg-make-context epa-protocol) "Select keys to export. "))]) (provide 'epa)