| Current Path : /usr/share/emacs/24.3/lisp/obsolete/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/obsolete/pgg-pgp5.elc |
;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-pgp5.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\323\324\304\301\312\313&\210\306\325\326\327\304\301\312\313&\210\306\330\331\332\304\301\312\313&\210\306\333\302\334\304\301\312\335&\207" [custom-declare-group pgg-pgp5 nil "PGP 5.* interface." :group pgg custom-declare-variable pgg-pgp5-pgpe-program "pgpe" "PGP 5.* 'pgpe' executable." :type string pgg-pgp5-pgps-program "pgps" "PGP 5.* 'pgps' executable." pgg-pgp5-pgpk-program "pgpk" "PGP 5.* 'pgpk' executable." pgg-pgp5-pgpv-program "pgpv" "PGP 5.* 'pgpv' executable." pgg-pgp5-shell-file-name "/bin/sh" "File name to load inferior shells from.\nBourne shell or its equivalent (not tcsh) is needed for \"2>\"." pgg-pgp5-shell-command-switch "-c" "Switch used to have the shell execute its command line argument." pgg-pgp5-extra-args "Extra arguments for every PGP 5.* invocation." (choice (const :tag "None" nil) (string :tag "Arguments"))] 8)
#@38 PGP 5.* ID of your default identity.
(defvar pgg-pgp5-user-id nil (#$ . 1580))
(defalias 'pgg-pgp5-process-region #[(start end passphrase program args) "\306\307!\310 \n\311PC#
56 67 89 :\312\211 ; <\312\211 = >r\3138!q\210\314 \210\315 \210)?\203B \316\317\320\"\210\321\216\322\211 @ A\323\324\325\3268B &<*\327<\330\"\210?\203l \331<?\332P\"\210\333<CD#\210\334<!\210\335<!\336=\203\214 \337<\340\"\210\202z \335<!=\341<!>\342<!\210r8q\210\343 d\312\223 Eeb\210\344\345\346\"\203\310 \312\210\347E!`V\203\337 \350c\210\351y\210\202\263 \344\345\211\"\203\337 \352\353E\354#\203\337 \355\356!\210\202\317 )=\357>\203\357 \360\361B>#\210>\362U\203\374 \360\363B\"\210\313:!q\210\314 \210\315 \210\364!.
\207" [errors-file-name args pgg-pgp5-extra-args pgg-pgp5-shell-file-name shell-file-name pgg-pgp5-shell-command-switch pgg-make-temp-file "pgg-errors" append "2>" 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 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 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] 8])
#@37 Search keys associated with STRING.
(defalias 'pgg-pgp5-lookup-key #[(string &optional type) "\304\305Er\306\n!q\210\307 \210\310 \210\311\312 \313\314\313 &\210eb\210\315\316\313\314#\2054 \317\320\321\225\313\210`{!8\317\313O*\207" [string args 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] 7 (#$ . 3410)])
#@51 Encrypt the current region between START and END.
(defalias 'pgg-pgp5-encrypt-region #[(start end recipients &optional sign passphrase) "\206 \n\206 \205 \306\307\310\"\"\311\312\313\314\f\204\"
\2051 \315\311\316\317\311\f
\205. C\"\"\"BBB \2059 \320\" \321\322%\210rq\210\323\324 !?\205V \325,\207" [pgg-pgp5-user-id pgg-default-user-id passphrase sign recipients pgg-encrypt-for-me pgg-read-passphrase format "PGP passphrase for %s: " append "+NoBatchInvalidKeys=off" "-fat" "+batchmode=1" apply mapcar #[(rcpt) "\301\302\302QD\207" [rcpt "-r" "\""] 4] ("-s" "-u" pgg-pgp5-user-id) pgg-pgp5-process-region nil zerop buffer-size t args start end pgg-pgp5-pgpe-program pgg-output-buffer] 11 (#$ . 3862)])
#@51 Decrypt the current region between START and END.
(defalias 'pgg-pgp5-decrypt-region #[(start end &optional passphrase) "\206 \n\206 \306\307\310\"\311\312\"\"\313\314\f
\n %\210rq\210\315\316 !?\205. \317,\207" [pgg-pgp5-user-id pgg-default-user-id passphrase args start end pgg-read-passphrase format "PGP passphrase for %s: " pgg-pgp5-lookup-key encrypt ("+verbose=1" "+batchmode=1" "+language=us" "-f") pgg-pgp5-process-region zerop buffer-size t pgg-pgp5-pgpv-program pgg-output-buffer] 6 (#$ . 4598)])
#@58 Make detached signature from text between START and END.
(defalias 'pgg-pgp5-sign-region #[(start end &optional clearsign passphrase) "\206 \n\206 \306\307\310\"\311\312\"\" \203 \313\202 \314\315\316\317\320\257 \321
\n \f%\210r q\210\322\323 !?\205b \324\325\326\327#\203a \330\331\332\330!\210`d\"\236A !\203` \333\334 \236A\n\"\210)\327,\207" [pgg-pgp5-user-id pgg-default-user-id passphrase clearsign args start 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 zerop buffer-size re-search-forward "^-+BEGIN PGP SIGNATURE" nil t 2 pgg-parse-armor-region beginning-of-line pgg-add-passphrase-to-cache key-identifier end pgg-pgp5-pgps-program pgg-output-buffer packet pgg-cache-passphrase] 6 (#$ . 5125)])
#@74 Verify region between START and END as the detached signature SIGNATURE.
(defalias 'pgg-pgp5-verify-region #[(start end &optional signature) "\306\307!\310\311 \312\216\313\314!\210\315\316\211 \317\n#\210,;\2036 \320\n\321P\211\"\210\322 C\"\323``\316 %\210\324\n!\210\203M \324!\210r q\210eb\210\325\326\316\327#\205g q\210\330 !\210\327,\207" [orig-mode args orig-file jam-zcat-filename-list jka-compr-compression-info-list coding-system-for-write pgg-make-temp-file "pgg" ("+verbose=1" "+batchmode=1" "+language=us") default-file-modes ((set-default-file-modes orig-mode)) 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 start end signature pgg-pgp5-pgpv-program pgg-errors-buffer pgg-output-buffer] 6 (#$ . 5974)])
#@29 Insert public key at point.
(defalias 'pgg-pgp5-insert-key #[nil "\206 \305\306\307\310\311\311Q\257\312``\313 \n%\210\314\f!*\207" [pgg-pgp5-user-id pgg-default-user-id args pgg-pgp5-pgpk-program pgg-output-buffer "+verbose=1" "+batchmode=1" "+language=us" "-x" "\"" pgg-pgp5-process-region nil insert-buffer-substring] 7 (#$ . 6853)])
#@69 Add all public keys in region between START and END to the keyring.
(defalias 'pgg-pgp5-snarf-keys-region #[(start end) "\206 \306\307!\310\311\312\313\n\257\314 \315
\n#\210)\316
\317 %\210\320\n!\210rq\210\321\322 !?\2058 \323,\207" [pgg-pgp5-user-id pgg-default-user-id key-file args coding-system-for-write start pgg-make-temp-file "pgg" "+verbose=1" "+batchmode=1" "+language=us" "-a" raw-text-dos write-region pgg-pgp5-process-region nil delete-file zerop buffer-size t end pgg-pgp5-pgpk-program pgg-output-buffer] 6 (#$ . 7203)])
(provide 'pgg-pgp5)