;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\330%\207" [require pgg custom-declare-group pgg-pgp nil "PGP 2.* and 6.* interface." :group custom-declare-variable pgg-pgp-program funcall function #[0 "\300\207" ["pgp"] 1 #1=""] "PGP 2.* and 6.* executable." :type string pgg-pgp-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-pgp-shell-command-switch #[0 "\300\207" ["-c"] 1 #1#] "Switch used to have the shell execute its command line argument." pgg-pgp-extra-args #[0 "\300\207" [nil] 1 #1#] "Extra arguments for every PGP invocation." (choice (const :tag "None" nil) (string :tag "Arguments"))] 6) #@34 PGP ID of your default identity. (defvar pgg-pgp-user-id nil (#$ . 954)) #@42 (fn START END PASSPHRASE PROGRAM ARGS) (defalias 'pgg-pgp-process-region #[1285 "\306\307!\310\311!R   /0\312\2111C\312\211r\313!q\210\314 \210\315 \210) \2032\316\317\320\"\210\321\322#\216\323\21123\324\325\f\326 Q#\240\210*\327\242\330\"\210 \203b\331\242 \332P\"\210\333\242  #\210\334\242!\210\335\242!\336=\203\202\337\242\340\"\210\202p\335\242!\262\341\242!\262\342\242!\210rq\210\343 d\312\223eb\210\344\345\346#\203\256\347\350!\210\202\237\210\351>\203\274\352\353\n#\210\211\354U\203\310\352\355\n\"\210\313!q\210\314 \210\315 \210\356!.\207" [pgg-pgp-extra-args pgg-pgp-shell-file-name shell-file-name pgg-pgp-shell-command-switch shell-command-switch process-environment pgg-make-temp-file "pgg-errors" " 2>" shell-quote-argument 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 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] 20 (#$ . 1033)]) #@65 Search keys associated with STRING. (fn STRING &optional TYPE) (defalias 'pgg-pgp-lookup-key #[513 "\302\303\304Fr\305!q\210\306 \210\307 \210\310\311 \312\313\312&\210eb\210\314\315\312\313#\203/`\316`\\{\202H\314\317\312\313#\205H\320\321!\210\321\322`\312\210`{!8\321\312O)\207" [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] 10 (#$ . 2594)]) #@104 Encrypt the current region between START and END. (fn START END RECIPIENTS &optional SIGN PASSPHRASE) (defalias 'pgg-pgp-encrypt-region #[1283 "\206 \211\204\203\305\306\307\"\"\210\310\311\204 \n\205.\312\313\314\n\205+C\"\315#\2057\316\313!PQ\317\310 %\210r\fq\210\320 \321U?\205O\322*\207" [pgg-pgp-user-id pgg-default-user-id pgg-encrypt-for-me pgg-pgp-program pgg-output-buffer pgg-read-passphrase format "PGP passphrase for %s: " nil "+encrypttoself=off +verbose=1 +batchmode +language=us -fate " mapconcat shell-quote-argument append " " " -s -u " pgg-pgp-process-region buffer-size 0 t] 13 (#$ . 3136)]) #@185 Decrypt the current region between START and END. If optional PASSPHRASE is not specified, it will be obtained from the passphrase cache or user. (fn START END &optional PASSPHRASE) (defalias 'pgg-pgp-decrypt-region #[770 "\206 \305\306\"\206\307\310\311\"\"\312\n\313%\210r q\210\314 \315U?\2053\f\2032\316\"\210\317*\207" [pgg-pgp-user-id pgg-default-user-id pgg-pgp-program pgg-output-buffer pgg-cache-passphrase pgg-pgp-lookup-key encrypt pgg-read-passphrase format "PGP passphrase for %s: " pgg-pgp-process-region "+verbose=1 +batchmode +language=us -f" buffer-size 0 pgg-add-passphrase-to-cache t] 11 (#$ . 3783)]) #@202 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. (fn START END &optional CLEARSIGN PASSPHRASE) (defalias 'pgg-pgp-sign-region #[1026 "\206 \211\206\305\306\307\"\310\311\"\"\203\312\202\313\314\315!Q\316\n%\210r q\210\317 \320U?\205\\eb\210\321\322\323\324#\203[\325\326\327\325!\210`d\"\236A\f\203Z\330\331\236A\"\210\210\324*\207" [pgg-pgp-user-id pgg-default-user-id pgg-pgp-program pgg-output-buffer pgg-cache-passphrase 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] 12 (#$ . 4430)]) #@110 Verify region between START and END as the detached signature SIGNATURE. (fn START END &optional SIGNATURE) (defalias 'pgg-pgp-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\324!P\262\211\325\324!Q\262\326``\317 %\210\327!\210\203Q\327!\210r\fq\210\330 \331U?\205\213eb\210\332\333\334\317\332#\203v\331\224\335\336!\210`|\210\202b)eb\210\333\337\317\332#\203\212e\335\336!\210`|\210\332)\207" [jam-zcat-filename-list jka-compr-compression-info-list coding-system-for-write pgg-pgp-program pgg-output-buffer case-fold-search pgg-make-temp-file "pgg" "+verbose=1 +batchmode +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" "+verbose=1 +batchmode +language=us " shell-quote-argument " " pgg-pgp-process-region delete-file buffer-size 0 t re-search-forward "^warning: " beginning-of-line 2 "^\\.$"] 11 (#$ . 5330)]) #@29 Insert public key at point. (defalias 'pgg-pgp-insert-key #[0 "\206 \304\305!P\306``\307\n%\210\310 !)\207" [pgg-pgp-user-id pgg-default-user-id pgg-pgp-program pgg-output-buffer "+verbose=1 +batchmode +language=us -kxaf " shell-quote-argument pgg-pgp-process-region nil insert-buffer-substring] 7 (#$ . 6373)]) #@85 Add all public keys in region between START and END to the keyring. (fn START END) (defalias 'pgg-pgp-snarf-keys-region #[514 "\206 \305\306!\307\310!P\311\312#\210)\313\314 %\210\315!\210r\fq\210\316 \317U?\2050\320*\207" [pgg-pgp-user-id pgg-default-user-id coding-system-for-write pgg-pgp-program pgg-output-buffer 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] 10 (#$ . 6697)]) (provide 'pgg-pgp)