HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/obsolete/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/obsolete/pgg-pgp.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\316\317\306\303\313\314&\210\307\320\321\322\306\303\313\314&\210\307\323\304\324\306\303\313\325&\207" [require pgg custom-declare-group pgg-pgp nil "PGP 2.* and 6.* interface." :group custom-declare-variable pgg-pgp-program "pgp" "PGP 2.* and 6.* executable." :type string pgg-pgp-shell-file-name "/bin/sh" "File name to load inferior shells from.\nBourne shell or its equivalent (not tcsh) is needed for \"2>\"." pgg-pgp-shell-command-switch "-c" "Switch used to have the shell execute its command line argument." pgg-pgp-extra-args "Extra arguments for every PGP invocation." (choice (const :tag "None" nil) (string :tag "Arguments"))] 8)
#@34 PGP ID of your default identity.
(defvar pgg-pgp-user-id nil (#$ . 1155))
(defalias 'pgg-pgp-process-region #[(start end passphrase program args) "\306\307!	\n\310\311!R
4556789\312\211:;\312\211<=r\3137!q\210\314 \210\315 \210)>\203A\316\317\320\"\210\321\216\322\211?@\323\3247A\325	Q#;*\326;\327\"\210>\203j\330;>\331P\"\210\332;BC#\210\333;!\210\334;!\335=\203\212\336;\337\"\210\202x\334;!<\340;!=\341;!\210r7q\210\342 d\312\223Deb\210\343\344\345\"\203\306\312\210\346D!`V\203\335\347c\210\350y\210\202\261\343\344\211\"\203\335\351\352D\353#\203\335\354\355!\210\202\315)<\356>\203\355\357\360A=#\210=\361U\203\372\357\362A\"\210\3139!q\210\314 \210\315 \210\363!.
\207" [errors-file-name args pgg-pgp-extra-args pgg-pgp-shell-file-name shell-file-name pgg-pgp-shell-command-switch pgg-make-temp-file "pgg-errors" " 2>" shell-quote-argument nil get-buffer-create buffer-disable-undo erase-buffer setenv "PGPPASSFD" "0" #[nil "\203\302!\303=\203\304!\210\3051\306	!0\207\210\307\207" [process errors-file-name process-status run interrupt-process (file-error) delete-file nil] 2] binary start-process-shell-command "*PGP*" " " set-process-sentinel ignore process-send-string "\n" process-send-region process-send-eof process-status run accept-process-output 5 process-exit-status delete-process make-marker eql LF CRLF marker-position "
" 1 re-search-forward "
$" t replace-match "" (stop signal) error "%s exited abnormally: `%s'" 127 "%s could not be found" insert-file-contents shell-command-switch process-environment pgg-output-buffer output-buffer pgg-errors-buffer errors-buffer process-connection-type process status exit-status passphrase coding-system-for-write coding-system-for-read program start end pgg-conversion-end] 7])
#@37 Search keys associated with STRING.
(defalias 'pgg-pgp-lookup-key #[(string &optional type) "\304\305\306Fr\307\n!q\210\310 \210\311 \210\312\313\314\315\314	&\210eb\210\316\317\314\315#\203/`\320`\\{\202H\316\321\314\315#\205H\322\323!\210\323\324`\314\210`{!8\323\314O*\207" [string args pgg-output-buffer pgg-pgp-program "+batchmode" "+language=en" "-kv" get-buffer-create buffer-disable-undo erase-buffer apply call-process nil t re-search-forward "^pub\\s +[0-9]+/" 8 "^Type" beginning-of-line 2 split-string] 7 (#$ . 2975)])
#@51 Encrypt the current region between START and END.
(defalias 'pgg-pgp-encrypt-region #[(start end recipients &optional sign passphrase) "\206	\n\206\205\306\307\310\"\"\311\f\204
\205,\312\313\314\f
\205)C\"\315#\2055\316\313!PQ\317\320%\210rq\210\321 \322U?\205R\323,\207" [pgg-pgp-user-id pgg-default-user-id passphrase sign recipients pgg-encrypt-for-me pgg-read-passphrase format "PGP passphrase for %s: " "+encrypttoself=off +verbose=1 +batchmode +language=us -fate " mapconcat shell-quote-argument append " " " -s -u " pgg-pgp-process-region nil buffer-size 0 t args start end pgg-pgp-program pgg-output-buffer] 6 (#$ . 3520)])
#@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-pgp-decrypt-region #[(start end &optional passphrase) "\206	\306\307\"\206\310\311\312\"\n\"\313\314
\f%\210rq\210\315 \316U?\205;\203:\317\n\"\210\320-\207" [pgg-pgp-user-id pgg-default-user-id key passphrase args start pgg-pgp-lookup-key encrypt pgg-read-passphrase format "PGP passphrase for %s: " "+verbose=1 +batchmode +language=us -f" pgg-pgp-process-region buffer-size 0 pgg-add-passphrase-to-cache t end pgg-pgp-program pgg-output-buffer pgg-cache-passphrase] 6 (#$ . 4193)])
#@155 Make detached signature from text between START and END.

If optional PASSPHRASE is not specified, it will be obtained from the
passphrase cache or user.
(defalias 'pgg-pgp-sign-region #[(start end &optional clearsign passphrase) "\206	\n\206\306\307\310\"\311\312\"\"\203\313\202\314\315\316\317!R\320
\n\f%\210rq\210\321 \322U?\205deb\210\323\324\325\326#\203c\327\330\331\327!\210`d\"\236A \203b\332\333\236A\n\"\210)\326,\207" [pgg-pgp-user-id pgg-default-user-id passphrase clearsign args start pgg-read-passphrase format "PGP passphrase for %s: " pgg-pgp-lookup-key sign "-fast" "-fbast" " +verbose=1 +language=us +batchmode" " -u " shell-quote-argument pgg-pgp-process-region buffer-size 0 re-search-forward "^-+BEGIN PGP" nil t 2 pgg-parse-armor-region beginning-of-line pgg-add-passphrase-to-cache key-identifier end pgg-pgp-program pgg-output-buffer packet pgg-cache-passphrase] 6 (#$ . 4870)])
#@74 Verify region between START and END as the detached signature SIGNATURE.
(defalias 'pgg-pgp-verify-region #[(start end &optional signature) "\306\307!\310\311 \312\216\313\314!\210\315\316\211\317#\210- ;\2037\320 \321P\211 \"\210	\322\323 !Q	\322\323!Q\324``\316!	%\210\325!\210 \203U\325 !\210r\"q\210\326 \327U?\205\221eb\210\330#\331\332\316\330#\203|\327\224\333\334!\210`|\210\202h)eb\210\331\335\316\330#\203\220e\333\334!\210`|\210\330+\207" [orig-file args #1=#:umask jam-zcat-filename-list jka-compr-compression-info-list coding-system-for-write pgg-make-temp-file "pgg" "+verbose=1 +batchmode +language=us" default-file-modes #[nil "\301!\207" [#1# set-default-file-modes] 2] set-default-file-modes 448 binary nil write-region copy-file ".asc" " " shell-quote-argument pgg-pgp-process-region delete-file buffer-size 0 t re-search-forward "^warning: " beginning-of-line 2 "^\\.$" start end signature pgg-pgp-program pgg-output-buffer case-fold-search] 6 (#$ . 5811)])
#@29 Insert public key at point.
(defalias 'pgg-pgp-insert-key #[nil "\206	\305\306!P\307``\310\n%\210\311\f!*\207" [pgg-pgp-user-id pgg-default-user-id args pgg-pgp-program pgg-output-buffer "+verbose=1 +batchmode +language=us -kxaf " shell-quote-argument pgg-pgp-process-region nil insert-buffer-substring] 6 (#$ . 6827)])
#@69 Add all public keys in region between START and END to the keyring.
(defalias 'pgg-pgp-snarf-keys-region #[(start end) "\206	\306\307!\310\311\n!P\312\313
\n#\210)\314
\315%\210\316\n!\210rq\210\317 \320U?\2056\321,\207" [pgg-pgp-user-id pgg-default-user-id key-file args coding-system-for-write start pgg-make-temp-file "pgg" "+verbose=1 +batchmode +language=us -kaf " shell-quote-argument raw-text-dos write-region pgg-pgp-process-region nil delete-file buffer-size 0 t end pgg-pgp-program pgg-output-buffer] 6 (#$ . 7160)])
(provide 'pgg-pgp)