;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\302\303\304\305\306\301%\210\307\310\311\312\313DD\314\315\316%\210\307\317\311\312\320DD\321\315\316%\210\307\322\311\312\323DD\324\315\316%\210\307\325\311\312\326DD\327\315\316%\210\307\330\311\312\331DD\332\315\316%\210\307\333\311\312\334DD\335\315\316%\210\307\336\311\312\337DD\340\315\341%\207" [require pgg custom-declare-group pgg-pgp5 nil "PGP 5.* interface." :group custom-declare-variable pgg-pgp5-pgpe-program funcall function #[0 "\300\207" ["pgpe"] 1 #1=""] "PGP 5.* `pgpe' executable." :type string pgg-pgp5-pgps-program #[0 "\300\207" ["pgps"] 1 #1#] "PGP 5.* `pgps' executable." pgg-pgp5-pgpk-program #[0 "\300\207" ["pgpk"] 1 #1#] "PGP 5.* `pgpk' executable." pgg-pgp5-pgpv-program #[0 "\300\207" ["pgpv"] 1 #1#] "PGP 5.* `pgpv' executable." pgg-pgp5-shell-file-name #[0 "\300\207" ["/bin/sh"] 1 #1#] "File name to load inferior shells from.\nBourne shell or its equivalent (not tcsh) is needed for \"2>\"." pgg-pgp5-shell-command-switch #[0 "\300\207" ["-c"] 1 #1#] "Switch used to have the shell execute its command line argument." pgg-pgp5-extra-args #[0 "\300\207" [nil] 1 #1#] "Extra arguments for every PGP 5.* invocation." (choice (const :tag "None" nil) (string :tag "Arguments"))] 6)
#@38 PGP 5.* ID of your default identity.
(defvar pgg-pgp5-user-id nil (#$ . 1323))
#@42 

(fn START END PASSPHRASE PROGRAM ARGS)
(defalias 'pgg-pgp5-process-region #[1285 "\306\307!\310\311PC#	
01\312\2112C\312\211r\313!q\210\314 \210\315 \210)	\2033\316\317\320\"\210\321\322#\216\323\21134\324\325\326\327	\f&\240\210*\330\242\331\"\210	\203d\332\242\333P\"\210\334\242

#\210\335\242!\210\336\242!\337=\203\204\340\242\341\"\210\202r\336\242!\262\342\242!\262
\343\242!\210rq\210\344 d\312\223eb\210\345\346\347#\203\260\350\351!\210\202\241\210
\352>\203\276\353\354\n#\210\211\355U\203\312\353\356\n\"\210\313!q\210\314 \210\315 \210\357!.\207" [pgg-pgp5-extra-args pgg-pgp5-shell-file-name shell-file-name pgg-pgp5-shell-command-switch shell-command-switch process-environment pgg-make-temp-file "pgg-errors" append "2>" nil get-buffer-create buffer-disable-undo erase-buffer setenv "PGPPASSFD" "0" make-closure #[0 "\301\242\203\302\301\242!\303=\203\304\301\242!\210\3051\306\300!0\207\210\307\207" [V0 V1 process-status run interrupt-process (file-error) delete-file nil] 2] binary apply funcall 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 re-search-forward "
$" t replace-match "" (stop signal) error "%s exited abnormally: `%s'" 127 "%s could not be found" insert-file-contents pgg-output-buffer pgg-errors-buffer process-connection-type coding-system-for-write coding-system-for-read] 21 (#$ . 1408)])
#@65 Search keys associated with STRING.

(fn STRING &optional TYPE)
(defalias 'pgg-pgp5-lookup-key #[513 "\302\303Er\304!q\210\305 \210\306 \210\307\310	\311\312\311&\210eb\210\313\314\311\312#\2054\315\316\317\225\311\210`{!8\315\311O)\207" [pgg-output-buffer pgg-pgp5-pgpk-program "+language=en" "-l" get-buffer-create buffer-disable-undo erase-buffer apply call-process nil t re-search-forward "^sec" 2 split-string 0] 10 (#$ . 2973)])
#@104 Encrypt the current region between START and END.

(fn START END RECIPIENTS &optional SIGN PASSPHRASE)
(defalias 'pgg-pgp5-encrypt-region #[1283 "\206	\211\204
\203\305\306\307\"\"\210\310\311\312\313\314\204$\n\2054\315\311\316\317\311\f\n\2051C\"\"\"BBB\205<\320\"\321\310%\210r\fq\210\322 \323U?\205T\324*\207" [pgg-pgp5-user-id pgg-default-user-id pgg-encrypt-for-me pgg-pgp5-pgpe-program pgg-output-buffer pgg-read-passphrase format "PGP passphrase for %s: " nil append "+NoBatchInvalidKeys=off" "-fat" "+batchmode=1" apply mapcar #[257 "\300\301\301QD\207" ["-r" "\""] 5 "\n\n(fn RCPT)"] ("-s" "-u" pgg-pgp5-user-id) pgg-pgp5-process-region buffer-size 0 t] 17 (#$ . 3422)])
#@88 Decrypt the current region between START and END.

(fn START END &optional PASSPHRASE)
(defalias 'pgg-pgp5-decrypt-region #[770 "\206	\211\206\304\305\306\"\307\310\"\"\311\312\n%\210rq\210\313 \314U?\205*\315*\207" [pgg-pgp5-user-id pgg-default-user-id pgg-pgp5-pgpv-program pgg-output-buffer pgg-read-passphrase format "PGP passphrase for %s: " pgg-pgp5-lookup-key encrypt ("+verbose=1" "+batchmode=1" "+language=us" "-f") pgg-pgp5-process-region buffer-size 0 t] 11 (#$ . 4136)])
#@105 Make detached signature from text between START and END.

(fn START END &optional CLEARSIGN PASSPHRASE)
(defalias 'pgg-pgp5-sign-region #[1026 "\206	\211\206\305\306\307\"\310\311\"\"\203\312\202\313\314\315\316\317\257\320\n%\210rq\210\321 \322U?\205[\323\324\325\326#\203Z\327\330\331\327!\210`d\"\236A\f\203Y\332\333\236A\"\210\210\326*\207" [pgg-pgp5-user-id pgg-default-user-id pgg-pgp5-pgps-program pgg-output-buffer pgg-cache-passphrase pgg-read-passphrase format "PGP passphrase for %s: " pgg-pgp5-lookup-key sign "-fat" "-fbat" "+verbose=1" "+language=us" "+batchmode=1" "-u" pgg-pgp5-process-region buffer-size 0 re-search-forward "^-+BEGIN PGP SIGNATURE" nil t 2 pgg-parse-armor-region beginning-of-line pgg-add-passphrase-to-cache key-identifier] 12 (#$ . 4640)])
#@110 Verify region between START and END as the detached signature SIGNATURE.

(fn START END &optional SIGNATURE)
(defalias 'pgg-pgp5-verify-region #[770 "\306\307!\310\311 \312\313\"\216\314\315!\210\316\317\211\320#\210,\210;\2035\321\322P\211\262\"\210\323
C\"\262
\324``\317%\210\325!\210\203I\325!\210r\fq\210eb\210\326\327\317\330#\205`
q\210\331\f!\210\330)\207" [jam-zcat-filename-list jka-compr-compression-info-list coding-system-for-write pgg-pgp5-pgpv-program pgg-errors-buffer pgg-output-buffer pgg-make-temp-file "pgg" ("+verbose=1" "+batchmode=1" "+language=us") default-file-modes make-closure #[0 "\301\300!\207" [V0 set-default-file-modes] 2] set-default-file-modes 448 binary nil write-region copy-file ".asc" append pgg-pgp5-process-region delete-file re-search-forward "^Good signature" t insert-buffer-substring] 11 (#$ . 5450)])
#@29 Insert public key at point.
(defalias 'pgg-pgp5-insert-key #[0 "\206	\304\305\306\307\310\310Q\257\311``\312\n%\210\313!)\207" [pgg-pgp5-user-id pgg-default-user-id pgg-pgp5-pgpk-program pgg-output-buffer "+verbose=1" "+batchmode=1" "+language=us" "-x" "\"" pgg-pgp5-process-region nil insert-buffer-substring] 7 (#$ . 6325)])
#@85 Add all public keys in region between START and END to the keyring.

(fn START END)
(defalias 'pgg-pgp5-snarf-keys-region #[514 "\206	\305\306!\307\310\311\312\257\313\314#\210)\315\316%\210\317!\210r\fq\210\320 \321U?\2052\322*\207" [pgg-pgp5-user-id pgg-default-user-id coding-system-for-write pgg-pgp5-pgpk-program pgg-output-buffer pgg-make-temp-file "pgg" "+verbose=1" "+batchmode=1" "+language=us" "-a" raw-text-dos write-region pgg-pgp5-process-region nil delete-file buffer-size 0 t] 10 (#$ . 6666)])
(provide 'pgg-pgp5)