;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:09 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/obsolete/pgg-pgp.el
;;; in Emacs version 24.3.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\302\303\304\305%\210\306\307\310\311\304\301\312\313&\210\306\314\315\316\304\301\312\313&\210\306\317\320\321\304\301\312\313&\210\306\322\302\323\304\301\312\324&\207" [custom-declare-group pgg-pgp nil "PGP 2.* and 6.* interface." :group pgg 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 (#$ . 1285))
(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" ((byte-code "\203\301!\302=\203\303!\210\304\305\306\217\207" [process process-status run interrupt-process nil (delete-file errors-file-name) ((file-error))] 3)) 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 (#$ . 3106)])
#@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\322 !?\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 zerop buffer-size t args start end pgg-pgp-program pgg-output-buffer] 6 (#$ . 3651)])
#@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\316 !?\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 zerop buffer-size pgg-add-passphrase-to-cache t end pgg-pgp-program pgg-output-buffer pgg-cache-passphrase] 6 (#$ . 4328)])
#@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\322 !?\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 zerop buffer-size 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 (#$ . 5009)])
#@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\327 !?\205\221eb\210\330$\331\332\316\330#\203|\333\224\334\335!\210`|\210\202h)eb\210\331\336\316\330#\203\220e\334\335!\210`|\210\330,\207" [orig-file args orig-mode 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 ((set-default-file-modes orig-mode)) set-default-file-modes 448 binary nil write-region copy-file ".asc" " " shell-quote-argument pgg-pgp-process-region delete-file zerop buffer-size t re-search-forward "^warning: " 0 beginning-of-line 2 "^\\.$" start end signature pgg-pgp-program pgg-output-buffer case-fold-search] 6 (#$ . 5954)])
#@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 (#$ . 6961)])
#@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\320 !?\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 zerop buffer-size t end pgg-pgp-program pgg-output-buffer] 6 (#$ . 7294)])
(provide 'pgg-pgp)