HOME

Mini Shell 1.0
DIR:/usr/share/emacs/26.1/lisp/obsolete/
Current File : //usr/share/emacs/26.1/lisp/obsolete/pgg-gpg.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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\302\303\304\305\306\301%\210\307\310\311\312\306\303\313\314&\210\307\315\304\316\306\303\313\317&\210\307\320\321\322\306\303\313\323&\210\307\324\325\326\306\303\313\327&\207" [require pgg custom-declare-group pgg-gpg nil "GnuPG interface." :group custom-declare-variable pgg-gpg-program "gpg" "The GnuPG executable." :type string pgg-gpg-extra-args "Extra arguments for every GnuPG invocation." (repeat (string :tag "Argument")) pgg-gpg-recipient-argument "--recipient" "GnuPG option to specify recipient." (choice (const :tag "New `--recipient' option" "--recipient") (const :tag "Old `--remote-user' option" "--remote-user")) pgg-gpg-use-agent t "Whether to use gnupg agent for key caching." boolean] 8)
#@36 GnuPG ID of your default identity.
(defvar pgg-gpg-user-id nil (#$ . 1147))
(defalias 'pgg-gpg-process-region #[(start end passphrase program args) "?\205\306 \307\310!\311\312\313	\203\314\202\205\315\316\317\nE\f$BB
567\320 8\3219\322:\321\211;<\321\211=>\321?r\3237!q\210\324 \210\325 \210)\326\216\327\330!\210\331@\332\333\3347A\f%;)\335;\336\"\210\203\236\337P>B\203\220\340>\341B\342\"\"?\343>!\210\202\227>?\321>\344;?\"\210\345;CD#\210\346;!\210\347;!\350=\203\276\351;\352\"\210\202\254\351;\352\"\210\347;!<\353;!=\354;!\210r\3235!q\210\324 \210\325 \210\355\n!\203\371E\203\361\356\202\362\331F\357\n!\210)7q\210<\360>\203\f\361\362A=#\210=\363U\205\361\364A\".\207" [passphrase use-agent output-file-name pgg-gpg-extra-args args pgg-output-buffer pgg-gpg-use-agent-p pgg-make-temp-file "pgg-output" "--status-fd" "2" append ("--use-agent") ("--passphrase-fd" "0") "--yes" "--output" default-file-modes nil t get-buffer-create buffer-disable-undo erase-buffer #[nil "\203\305!\210	\203\305	!\210\n\203 \306\n!\307=\203 \310\n!\210\311!\203*\312!\210\313\f!\207" [passphrase-with-newline encoded-passphrase-with-new-line process output-file-name orig-mode pgg-clear-string process-status run interrupt-process file-exists-p delete-file set-default-file-modes] 2] set-default-file-modes 448 binary apply start-process "*GnuPG*" set-process-sentinel ignore "\n" encode-coding-string coding-system-change-eol-conversion unix pgg-clear-string process-send-string process-send-region process-send-eof process-status run accept-process-output 5 process-exit-status delete-process file-exists-p raw-text insert-file-contents (stop signal) error "%s exited abnormally: `%s'" 127 "%s could not be found" output-buffer pgg-errors-buffer errors-buffer orig-mode process-connection-type inhibit-redisplay process status exit-status passphrase-with-newline encoded-passphrase-with-new-line coding-system-for-write program pgg-passphrase-coding-system start end pgg-text-mode coding-system-for-read] 8])
(defalias 'pgg-gpg-possibly-cache-passphrase #[(passphrase &optional key notruncate) "\205,	\205,eb\210\304\305\306\307#\205,\310\n\206)eb\210\304\311\306\307#\205)\312\313!\314\306O#\207" [passphrase pgg-cache-passphrase key notruncate re-search-forward "^\\[GNUPG:] \\(GOOD_PASSPHRASE\\>\\)\\|\\(SIG_CREATED\\)" nil t pgg-add-passphrase-to-cache "^\\[GNUPG:] NEED_PASSPHRASE\\(_PIN\\)? \\w+ ?\\w*" match-string 0 -8] 5])
(defvar pgg-gpg-all-secret-keys 'unknown)
#@52 Return all secret keys present in secret key ring.
(defalias 'pgg-gpg-lookup-all-secret-keys #[nil "\304=\203:\305\306\307\310\311F\312\313!r\nq\210\314\216\315\316\305\317\305	&\210eb\210\320\321\305\317#\2039\322\323!\324\305OB\202%,\207" [pgg-gpg-all-secret-keys args #1=#:temp-buffer pgg-gpg-program unknown nil "--with-colons" "--no-greeting" "--batch" "--list-secret-keys" generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] apply call-process t re-search-forward "^\\(sec\\|pub\\):[^:]*:[^:]*:[^:]*:\\([^:]*\\)" match-string 2 8] 7 (#$ . 3715)])
#@37 Search keys associated with STRING.
(defalias 'pgg-gpg-lookup-key #[(string &optional type) "\305\306\307\203\310\202\f\311	\257\312\313!rq\210\314\216\315\316\f\317\320\317\n&\210eb\210\321\322\317\320#\2055\323\324!\325\317O,\207" [type string args #1=#:temp-buffer pgg-gpg-program "--with-colons" "--no-greeting" "--batch" "--list-secret-keys" "--list-keys" generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] apply call-process nil t re-search-forward "^\\(sec\\|pub\\):[^:]*:[^:]*:[^:]*:\\([^:]*\\)" match-string 2 8] 7 (#$ . 4328)])
#@316 Search keys associated with STRING and return owner of identified key.

The value may be just the bare key id, or it may be a combination of the
user name associated with the key and the key id, with the key id enclosed
in "<...>" angle brackets.

Optional ALL non-nil means search all keys, including secret keys.
(defalias 'pgg-gpg-lookup-key-owner #[(string &optional all) "\306\307\310\203\311\202\f\312	\257\313\314\315!r\fq\210\316\216\317\320
\321\322\321&\210eb\210\323\n\321\322#\2054\324\325!-\207" [all string key-regexp args #1=#:temp-buffer pgg-gpg-program "--with-colons" "--no-greeting" "--batch" "--list-secret-keys" "--list-keys" "^\\(sec\\|pub\\|uid\\):[^:]*:[^:]*:[^:]*:\\([^:]*\\):[^:]*:[^:]*:[^:]*:[^:]*:\\([^:]+\\):" generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] apply call-process nil t re-search-forward match-string 3] 7 (#$ . 4926)])
(defalias 'pgg-gpg-key-id-from-key-owner #[(key-owner) "\204\301\207\302\303\"\203\304\224\304\225O\207\207" [key-owner nil string-match "[^<]*<\\(.+\\)>[^>]*" 1] 3])
#@219 Encrypt the current region between START and END.

If optional argument SIGN is non-nil, do a combined sign and encrypt.

If optional PASSPHRASE is not specified, it will be obtained from the
passphrase cache or user.
(defalias 'pgg-gpg-encrypt-region #[(start end recipients &optional sign passphrase) "\206	\n\206\205\306 ?\205\307\310\311\"\"\312\313\314\315\316F\f\205(\317C\2050\320\321E
\2049\205I\322\323\324\325\312
\205FC\"\"\"$\326\n%\210\203kr q\210\327\n\"\210\327\n!\210)r!q\210\330 \331U?\205y\332,\207" [pgg-gpg-user-id pgg-default-user-id passphrase sign pgg-text-mode recipients pgg-gpg-use-agent-p pgg-read-passphrase format "GnuPG passphrase for %s: " append "--batch" "--armor" "--always-trust" "--encrypt" "--textmode" "--sign" "--local-user" apply nconc mapcar #[(rcpt) "	D\207" [pgg-gpg-recipient-argument rcpt] 2] pgg-gpg-process-region pgg-gpg-possibly-cache-passphrase buffer-size 0 t pgg-encrypt-for-me args start end pgg-gpg-program pgg-errors-buffer pgg-output-buffer] 11 (#$ . 6027)])
#@170 Encrypt the current region between START and END with symmetric cipher.

If optional PASSPHRASE is not specified, it will be obtained from the
passphrase cache or user.
(defalias 'pgg-gpg-encrypt-symmetric-region #[(start end &optional passphrase) "\206
\306 ?\205
\307\310!\311\312\313\314E	\205\315C\"\316\f
\n%\210rq\210\317 \320U?\2051\321+\207" [passphrase pgg-text-mode args start end pgg-gpg-program pgg-gpg-use-agent-p pgg-read-passphrase "GnuPG passphrase for symmetric encryption: " append "--batch" "--armor" "--symmetric" "--textmode" pgg-gpg-process-region buffer-size 0 t pgg-output-buffer] 6 (#$ . 7092)])
#@148 Decrypt the current region between START and END.

If optional PASSPHRASE is not specified, it will be obtained from the
passphrase cache or user.
(defalias 'pgg-gpg-decrypt-region #[(start end &optional passphrase) "p\306\307!r	q\210\310\216\311!\210\312ed\"+\313 \314\n\"\211\205&\315\f\316\"\317
!\211\206;\f\206;\206; \206^\320 ?\205^\321\322\323\n!\203T\324\202U\325
\206Z\326\"\" \327!\330\"# $!%\210r%q\210\331 \"\210eb\210\332\333\334\316#.\n\207" [current-buffer #1=#:temp-buffer message-keys secret-keys key key-owner generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] insert-buffer-substring pgg-decode-armor-region pgg-gpg-lookup-all-secret-keys pgg-gpg-select-matching-key pgg-gpg-lookup-key-owner t pgg-gpg-key-id-from-key-owner pgg-gpg-use-agent-p pgg-read-passphrase format pgg-gpg-symmetric-key-p "Passphrase for symmetric decryption: " "GnuPG passphrase for %s: " "??" ("--batch" "--decrypt") pgg-gpg-process-region pgg-gpg-possibly-cache-passphrase re-search-forward "^\\[GNUPG:] DECRYPTION_OKAY\\>" nil key-id pgg-gpg-user-id pgg-default-user-id passphrase args start end pgg-gpg-program pgg-errors-buffer] 7 (#$ . 7732)])
#@72 True if decoded armor MESSAGE-KEYS has symmetric encryption indicator.
(defalias 'pgg-gpg-symmetric-key-p #[(message-keys) "\304	\304\211\203#@\211@\305=\203\306\n\235\203\nA\211\204\n\304+\207" [result message-keys key --dolist-tail-- nil 3 (symmetric-key-algorithm)] 3 (#$ . 8963)])
#@77 Choose a key from MESSAGE-KEYS that matches one of the keys in SECRET-KEYS.
(defalias 'pgg-gpg-select-matching-key #[(message-keys secret-keys) "\306\211\306\307\306\f	:\203J	@\211@\310\232\205!\311\nA\236A\211\205*\312\313\"\211\203?\f
\235\203?\f\f\306\211\202@\307\203J	A\211\202\f.\207" [message-keys #1=#:--cl-var-- message-key message-key-id key #2=#:--cl-var-- nil t 1 key-identifier pgg-lookup-key encrypt #3=#:--cl-var-- secret-keys] 4 (#$ . 9270)])
#@58 Make detached signature from text between START and END.
(defalias 'pgg-gpg-sign-region #[(start end &optional cleartext passphrase) "\206	\n\206\306 ?\205\307\310\311\"\"\312\203!\313\202\"\314\315\316\317\320\257\f\205/\321C\"\322\323\324\n
%\210rq\210\325\n\"\210\325\n!\210)rq\210\326 \327U?\205_\322.\207" [pgg-gpg-user-id pgg-default-user-id passphrase cleartext pgg-text-mode args pgg-gpg-use-agent-p pgg-read-passphrase format "GnuPG passphrase for %s: " append "--clearsign" "--detach-sign" "--armor" "--batch" "--verbose" "--local-user" "--textmode" t nil pgg-gpg-process-region pgg-gpg-possibly-cache-passphrase buffer-size 0 inhibit-read-only buffer-read-only start end pgg-gpg-program pgg-errors-buffer pgg-output-buffer] 7 (#$ . 9761)])
#@74 Verify region between START and END as the detached signature SIGNATURE.
(defalias 'pgg-gpg-verify-region #[(start end &optional signature) "\306	;\203
\307	C\"\307\310\"\311\n\312\f%\210r
q\210eb\210\313\314\312\315#\203@rq\210\316
\317\224\320\225#\210)\320\224\320\225|\210\202!eb\210\313\321\312\315#*\207" [args signature start end pgg-gpg-program pgg-errors-buffer ("--batch" "--verify") append ("-") pgg-gpg-process-region nil re-search-forward "^gpg: \\(.*\\)\n" t insert-buffer-substring 1 0 "^\\[GNUPG:] GOODSIG\\>" pgg-output-buffer] 6 (#$ . 10553)])
#@29 Insert public key at point.
(defalias 'pgg-gpg-insert-key #[nil "\206	\305\306\307F\310``\311\n%\210\312\f!*\207" [pgg-gpg-user-id pgg-default-user-id args pgg-gpg-program pgg-output-buffer "--batch" "--export" "--armor" pgg-gpg-process-region nil insert-buffer-substring] 6 (#$ . 11133)])
#@69 Add all public keys in region between START and END to the keyring.
(defalias 'pgg-gpg-snarf-keys-region #[(start end) "\306\307\310\n\307\f	%\210
q\210eb\210\311\312\307\313#\203U\314\225\307\210`{\315\316\317\320!\"!\321 \210\322\323\324H\325H\\\314H\326H\327H\330H\\%\331H\314U\203Q\332\202R\333\261\210\334ed#\210rq\210\335 \314U?\205j\313+\207" [status args start end pgg-gpg-program pgg-errors-buffer ("--import" "--batch" "-") nil pgg-gpg-process-region re-search-forward "^\\[GNUPG:] IMPORT_RES\\>" t 0 vconcat mapcar string-to-number split-string erase-buffer format "Imported %d key(s).\n	Armor contains %d key(s) [%d bad, %d old].\n" 2 10 1 4 11 9 "" "	Secret keys are imported.\n" append-to-buffer buffer-size pgg-output-buffer] 8 (#$ . 11436)])
#@56 Try to connect to gpg-agent and send UPDATESTARTUPTTY.
(defalias 'pgg-gpg-update-agent #[nil "\303\304!\203B\305\306!\211\205\307\310\"\205\311\312\"\211\205)\304\313\314\315\316\317\316\320	&\211\205@\321\n!\322=\205@\323\n\324\"\210\325\n!\210\326+\207\326\207" [agent-info socket conn fboundp make-network-process getenv "GPG_AGENT_INFO" string-match "^\\([^:]*\\)" match-string 1 :name "gpg-agent-process" :host local :family :service process-status open process-send-string "UPDATESTARTUPTTY\n" delete-process t] 10 (#$ . 12223)])
#@66 Return t if `pgg-gpg-use-agent' is t and gpg-agent is available.
(defalias 'pgg-gpg-use-agent-p #[nil "\205\301 \207" [pgg-gpg-use-agent pgg-gpg-update-agent] 1 (#$ . 12779)])
(provide 'pgg-gpg)