Current File : //usr/local/share/emacs/27.2/lisp/obsolete/pgg.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\300\302!\210\303\304\305\"\210\306\307\304\"\210\306\310\311\"\207" [require pgg-def pgg-parse autoload run-at-time "timer" defalias pgg-run-at-time pgg-cancel-timer cancel-timer] 3)
(defalias 'pgg-invoke #[(func scheme &rest args) "\303\304\305\306\"!!\210\307\310\304\305\311 #!\n#\207" [scheme func args require intern format "pgg-%s" apply funcall "pgg-%s-%s"] 7])
(put 'pgg-save-coding-system 'lisp-indent-function 2)
(defalias 'pgg-save-coding-system '(macro . #[(start end &rest body) "\303\304\305\306\307\305\310\311\312 F\313\314\315\nB\316BB\257DE\317\320 E\nBBF\207" [start end body if (called-interactively-p 'interactive) let ((buffer (current-buffer))) with-temp-buffer (buffer-undo-list) insert-buffer-substring buffer (encode-coding-region (point-min) (point-max) buffer-file-coding-system) prog1 save-excursion ((push nil buffer-undo-list) (ignore-errors (undo))) save-restriction narrow-to-region] 12]))
(defalias 'pgg-temp-buffer-show-function #[(buffer) "\302\303\"\206 \304 \305 \"\210\306 !)\207" [buffer window get-buffer-window visible split-window-vertically set-window-buffer shrink-window-if-larger-than-buffer] 3])
#@182 Situate en/decryption results or pop up an error buffer.
Text from START to END is replaced by contents of output buffer if STATUS
is true, or else the output buffer is displayed.
(defalias 'pgg-display-output-buffer #[(start end status) "\203 \303 \n\"\207\304 \207" [status start end pgg-situate-output pgg-display-error-buffer] 3 (#$ . 1588)])
#@72 Place en/decryption result in place of current text from START to END.
(defalias 'pgg-situate-output #[(start end) " |\210\304\n!\210\305` #\207" [start end pgg-output-buffer buffer-file-coding-system insert-buffer-substring decode-coding-region] 4 (#$ . 1944)])
#@76 Pop up an error buffer indicating the reason for an en/decryption failure.
(defalias 'pgg-display-error-buffer #[nil "\306 r\307 !q\210p\310 \210\n\311\211\312\211\312 \313 \210\314\315!\210+\211 \211 q\210\316!\317!\210,\207" [temp-buffer-show-function default-directory #1=#:old-dir pgg-echo-buffer buffer-read-only buffer-file-name pgg-temp-buffer-show-function get-buffer-create kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook insert-buffer-substring internal-temp-output-buffer-show buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output pgg-errors-buffer] 4 (#$ . 2215)])
(defvar pgg-passphrase-cache (make-vector 7 0))
#@193 Hash table for managing scheduled pgg cache management timers.
We associate key and timer, so the timer can be canceled if a new
timeout for the key is set while an old one is still pending.
(defvar pgg-pending-timers (make-vector 7 0) (#$ . 2925))
#@247 Using PROMPT, obtain passphrase for KEY from cache or user.
Truncate the key to 8 trailing characters unless NOTRUNCATE is true
(default false).
Custom variables `pgg-cache-passphrase' and `pgg-passphrase-cache-expiry'
regulate cache behavior.
(defalias 'pgg-read-passphrase #[(prompt &optional key notruncate) "\303 \"\206\n \304\n!\207" [key notruncate prompt pgg-read-passphrase-from-cache read-passwd] 3 (#$ . 3182)])
#@249 Obtain passphrase for KEY from time-limited passphrase cache.
Truncate the key to 8 trailing characters unless NOTRUNCATE is true
(default false).
Custom variables `pgg-cache-passphrase' and `pgg-passphrase-cache-expiry'
regulate cache behavior.
(defalias 'pgg-read-passphrase-from-cache #[(key &optional notruncate) "\205% \205% \n\204 G\304V\203 \305 \306\"\202 \211\205% \307 \"J\207" [pgg-cache-passphrase key notruncate pgg-passphrase-cache 8 substring -8 intern-soft] 3 (#$ . 3614)])
#@251 Associate KEY with PASSPHRASE in time-limited passphrase cache.
Truncate the key to 8 trailing characters unless NOTRUNCATE is true
(default false).
Custom variables `pgg-cache-passphrase' and `pgg-passphrase-cache-expiry'
regulate cache behavior.
(defalias 'pgg-add-passphrase-to-cache #[(key passphrase &optional notruncate) "\203 \202 G\306V\203 \307 \310\"\202 \311 \n\"\211J \312 \f\203/ \313\f!\210\314 \n\"\210\315 \"L\210\315 \n\"\316\312\317 %L,\207" [notruncate key pgg-pending-timers interned-timer-key old-timer new-timer 8 substring -8 intern-soft nil cancel-timer unintern intern pgg-run-at-time pgg-remove-passphrase-from-cache pgg-passphrase-cache passphrase pgg-passphrase-cache-expiry] 8 (#$ . 4122)])
(byte-code "\300\301!\203 \302\303\301\"\210\202 \302\303\304\"\210\300\207" [fboundp clear-string defalias pgg-clear-string #[(string) "\301\302\"\207" [string fillarray 95] 3]] 3)
#@420 Omit passphrase associated with KEY in time-limited passphrase cache.
Truncate the key to 8 trailing characters unless NOTRUNCATE is true
(default false).
This is a no-op if there is not entry for KEY (eg, it's already expired.
The memory for the passphrase is filled with underscores to clear any
references to it.
Custom variables `pgg-cache-passphrase' and `pgg-passphrase-cache-expiry'
regulate cache behavior.
(defalias 'pgg-remove-passphrase-from-cache #[(key &optional notruncate) "\306 \" \203
\202 G\307V\203 \310\311\"\202 \312 \"\211 J \n\2033 \313\n!\210\314\"\210
\205? \315
!\210\314\f \",\207" [key notruncate passphrase pgg-pending-timers interned-timer-key old-timer pgg-read-passphrase-from-cache 8 substring -8 intern-soft pgg-clear-string unintern pgg-cancel-timer pgg-passphrase-cache] 4 (#$ . 5053)])
(defalias 'pgg-convert-lbt-region '(macro . #[(start end lbt) "\303\304\305\306EDC\307 D\310\n\311BBF\207" [end start lbt let pgg-conversion-end set-marker (make-marker) goto-char cl-case ((CRLF (while (progn (end-of-line) (> (marker-position pgg-conversion-end) (point))) (insert "
") (forward-line 1))) (LF (while (re-search-forward "
$" pgg-conversion-end t) (replace-match ""))))] 6]))
(put 'pgg-as-lbt 'lisp-indent-function 3)
(defalias 'pgg-as-lbt '(macro . #[(start end lbt &rest body) "\304\305\306 \nF\304 \307BC BB\310BBBB\207" [start end lbt body let ((inhibit-read-only t) buffer-read-only buffer-undo-list) pgg-convert-lbt-region ((point)) ((push nil buffer-undo-list) (ignore-errors (undo)))] 6]))
(put 'pgg-process-when-success 'lisp-indent-function 0)
(defalias 'pgg-process-when-success '(macro . #[(&rest body) "\301\302\303\304\305\306\307\"BBBE\207" [body with-current-buffer pgg-output-buffer if (zerop (buffer-size)) nil append (t)] 8]))
(byte-code "\300\301\302\303!\203\f \303\202
\304\"\207" [defalias pgg-make-temp-file fboundp make-temp-file #[(prefix &optional dir-flag) "\304\305!\306\307!\203 \307 \202 \" \203 \310\n!\210\n)\207" [prefix temporary-file-directory file dir-flag expand-file-name make-temp-name fboundp temp-directory make-directory] 4]] 4)
#@229 Encrypt the current region between START and END for RCPTS.
If optional argument SIGN is non-nil, do a combined sign and encrypt.
If optional PASSPHRASE is not specified, it will be obtained from the
passphrase cache or user.
(defalias 'pgg-encrypt-region #[(start end rcpts &optional sign passphrase) "\306\307!\203L p\310\311!r q\210\312\216\313\314 \f#\210\315ed
#\210\212\316\317\206* ed&)\313\nB\3201C \321 0\202G \210\202H \210-\202e \214 \f}\210\316\317\206Z ed&) \306\307!\203t \322 \f#\210)\207" [buffer #1=#:temp-buffer buffer-undo-list start end buffer-file-coding-system called-interactively-p interactive generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] nil insert-buffer-substring encode-coding-region pgg-invoke "encrypt-region" (error) undo pgg-display-output-buffer pgg-scheme pgg-default-scheme rcpts sign passphrase status] 8 (#$ . 7198) (list (region-beginning) (region-end) (split-string (read-string "Recipients: ") "[ ,]+"))])
#@163 Encrypt the current region between START and END symmetric with passphrase.
If optional PASSPHRASE is not specified, it will be obtained from the
cache or user.
(defalias 'pgg-encrypt-symmetric-region #[(start end &optional passphrase) "\306\307!\203G p\310\311!r q\210\312\216\313\314 \f#\210\315ed
#\210\212\316\317\206* ed%)\313\nB\3201> \321 0\202B \210\202C \210-\202[ \214 \f}\210\316\317\206U ed%) \306\307!\203j \322 \f#\210)\207" [buffer #1=#:temp-buffer buffer-undo-list start end buffer-file-coding-system called-interactively-p interactive generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] nil insert-buffer-substring encode-coding-region pgg-invoke "encrypt-symmetric-region" (error) undo pgg-display-output-buffer pgg-scheme pgg-default-scheme passphrase status] 6 (#$ . 8235) "r"])
#@258 Encrypt the current buffer using a symmetric, rather than key-pair, cipher.
If optional arguments START and END are specified, only encrypt within
the region.
If optional PASSPHRASE is not specified, it will be obtained from the
passphrase cache or user.
(defalias 'pgg-encrypt-symmetric #[(&optional start end passphrase) "\206 e \206 d\304 \n#\305\306!\203 \307 #\210 +\207" [start end passphrase status pgg-encrypt-symmetric-region called-interactively-p interactive pgg-display-output-buffer] 4 (#$ . 9106) nil])
#@291 Encrypt the current buffer for RCPTS.
If optional argument SIGN is non-nil, do a combined sign and encrypt.
If optional arguments START and END are specified, only encrypt within
the region.
If optional PASSPHRASE is not specified, it will be obtained from the
passphrase cache or user.
(defalias 'pgg-encrypt #[(rcpts &optional sign start end passphrase) "\206 e \206 d\306 \n \f% \307\310!\203 \311
#\210
+\207" [start end rcpts sign passphrase status pgg-encrypt-region called-interactively-p interactive pgg-display-output-buffer] 6 (#$ . 9642) (list (split-string (read-string "Recipients: ") "[ ,]+"))])
#@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-decrypt-region #[(start end &optional passphrase) "p\306\307!\203J p\310\311!r\nq\210\312\216\313\314 \f
#\210\315ed#\210\212\316\317\206- ed%)\313 B\3201A \321 0\202E \210\202F \210-\202^ \214\f
}\210\316\317\206X ed%) \306\307!\203m \322\f
#\210*\207" [buf buffer #1=#:temp-buffer buffer-undo-list start end called-interactively-p interactive generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] nil insert-buffer-substring encode-coding-region pgg-invoke "decrypt-region" (error) undo pgg-display-output-buffer buffer-file-coding-system pgg-scheme pgg-default-scheme passphrase status] 6 (#$ . 10272) "r"])
#@210 Decrypt the current buffer.
If optional arguments START and END are specified, only decrypt within
the region.
If optional PASSPHRASE is not specified, it will be obtained from the
passphrase cache or user.
(defalias 'pgg-decrypt #[(&optional start end passphrase) "\206 e \206 d\304 \n#\305\306!\203 \307 #\210 +\207" [start end passphrase status pgg-decrypt-region called-interactively-p interactive pgg-display-output-buffer] 4 (#$ . 11116) ""])
#@336 Make the signature from text between START and END.
If the optional 3rd argument CLEARTEXT is non-nil, it does not create
a detached signature.
If this function is called interactively, CLEARTEXT is enabled
and the output is displayed.
If optional PASSPHRASE is not specified, it will be obtained from the
passphrase cache or user.
(defalias 'pgg-sign-region #[(start end &optional cleartext passphrase) "\306\307!\203P p\310\311!r q\210\312\216\313\314 \f#\210\315ed
#\210\212\316\317\206* ed\306\307!\2064 &)\313\nB\3201G \321 0\202K \210\202L \210-\202m \214 \f}\210\316\317\206^ ed\306\307!\206h &) \306\307!\203| \322 \f#\210)\207" [buffer #1=#:temp-buffer buffer-undo-list start end buffer-file-coding-system called-interactively-p interactive generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] nil insert-buffer-substring encode-coding-region pgg-invoke "sign-region" (error) undo pgg-display-output-buffer pgg-scheme pgg-default-scheme cleartext passphrase status] 7 (#$ . 11584) "r"])
#@391 Sign the current buffer.
If the optional argument CLEARTEXT is non-nil, it does not create a
detached signature.
If optional arguments START and END are specified, only sign data
within the region.
If this function is called interactively, CLEARTEXT is enabled
and the output is displayed.
If optional PASSPHRASE is not specified, it will be obtained from the
passphrase cache or user.
(defalias 'pgg-sign #[(&optional cleartext start end passphrase) "\206 e \206 d\305 \306\307!\206 \n $ \306\307!\203% \310 \f#\210\f+\207" [start end cleartext passphrase status pgg-sign-region called-interactively-p interactive pgg-display-output-buffer] 5 (#$ . 12659) ""])
#@294 Verify the current region between START and END.
If the optional 3rd argument SIGNATURE is non-nil, it is treated as
the detached signature of the current region.
If the optional 4th argument FETCH is non-nil, we attempt to fetch the
signer's public key from `pgg-default-keyserver-address'.
(defalias 'pgg-verify-region #[(start end &optional signature fetch) "\205! \306\307!r q\210\310\216\311 \210\312\313!\210\314!\210\315\316ed\"\236A+\317\n\236A\313\211 ;\203x +\203x \320 G\321V\203D \322 \323\"\202E P\211\203x \324 !\204x ,\204\\ \325\326!\203x \327\330\331 \"!\203x \332\n\236A\206n -\211\203x \333
\"\210\325\326!\203\310 p .\306\307! /r/q\210\334\216\313 0\335.12#\210\336ed3#\210\212\337\3404\206\252 5ed%)\3130B0\3411\277 \342 0\202\303 \210\202\304 \210-\202\335 \21412}\210\337\3404\206\330 5ed%)\325\326!\203-\343 67 8r\3449!q\210p\345 \21087\313\211:;\346\2110\346 < =\347 \210\350\351!\210+\211 >\211 ?q\210\335\f\203#@\202%A!\210\352>!\210,\f,\207" [signature #1=#:temp-buffer packet key status keyserver generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] buffer-disable-undo set-buffer-multibyte nil insert-file-contents 2 pgg-decode-armor-region key-identifier "0x" 8 substring -8 pgg-lookup-key called-interactively-p interactive y-or-n-p format "Key %s not found; attempt to fetch? " preferred-key-server pgg-fetch-key #[nil "\301!\205 \302!\207" [#2=#:temp-buffer buffer-name kill-buffer] 2] insert-buffer-substring encode-coding-region pgg-invoke "verify-region" (error) undo pgg-temp-buffer-show-function get-buffer-create kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show pgg-query-keyserver fetch pgg-default-keyserver-address buffer #2# buffer-undo-list start end buffer-file-coding-system pgg-scheme pgg-default-scheme temp-buffer-show-function default-directory #3=#:old-dir pgg-echo-buffer buffer-read-only buffer-file-name inhibit-modification-hooks inhibit-read-only #4=#:buf standard-output pgg-output-buffer pgg-errors-buffer] 7 (#$ . 13340) "r"])
#@350 Verify the current buffer.
If the optional argument SIGNATURE is non-nil, it is treated as
the detached signature of the current region.
If the optional argument FETCH is non-nil, we attempt to fetch the
signer's public key from `pgg-default-keyserver-address'.
If optional arguments START and END are specified, only verify data
within the region.
(defalias 'pgg-verify #[(&optional signature fetch start end) "\206 e \206 d\306 \n $ \307\310!\203a \311 r\312!q\210p\313 \210\314\211\315\211\315 \316 \210\317\320!\210+\211 \211 q\210\321\f\203W \202Y !\210\322!\210,\f+\207" [start end signature fetch status temp-buffer-show-function pgg-verify-region called-interactively-p interactive pgg-temp-buffer-show-function get-buffer-create kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook insert-buffer-substring internal-temp-output-buffer-show default-directory #1=#:old-dir pgg-echo-buffer buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output pgg-output-buffer pgg-errors-buffer] 6 (#$ . 15479) ""])
#@38 Insert the ASCII armored public key.
(defalias 'pgg-insert-key #[nil "\302\303\206 \"\207" [pgg-scheme pgg-default-scheme pgg-invoke "insert-key"] 3 (#$ . 16615) nil])
#@65 Import public keys in the current region between START and END.
(defalias 'pgg-snarf-keys-region #[(start end) "\306\307!\203C p\310\311!r q\210\312\216\313\314 \f#\210\315ed
#\210\212\316\317\206* \f$)\313\nB\3201< \321 0\202@ \210\202A \210-\207\214 \f}\210\316\317\206Q \f$)\207" [buffer #1=#:temp-buffer buffer-undo-list start end buffer-file-coding-system called-interactively-p interactive generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] nil insert-buffer-substring encode-coding-region pgg-invoke "snarf-keys-region" (error) undo pgg-scheme pgg-default-scheme] 5 (#$ . 16792) "r"])
#@43 Import public keys in the current buffer.
(defalias 'pgg-snarf-keys #[nil "\300ed\"\207" [pgg-snarf-keys-region] 3 (#$ . 17448) ""])
(defalias 'pgg-lookup-key #[(string &optional type) "\304\305\206 \n $\207" [pgg-scheme pgg-default-scheme string type pgg-invoke "lookup-key"] 5])
(defvar pgg-insert-url-function 'pgg-insert-url-with-w3)
(defalias 'pgg-insert-url-with-w3 #[(url) "\3021 \303\301!\210\304\305 !)0\207\210\304\207" [buffer-file-name url (error) require nil url-insert-file-contents] 2])
(defvar pgg-insert-url-extra-arguments nil)
(defvar pgg-insert-url-program nil)
(defalias 'pgg-insert-url-with-program #[(url) "\306!\307\310\311!r q\210\312\216\313\314\315p\f\n
C\244%\316 \317\"\210\320 !\321=\2030 \322 \323\"\210\202 \324 !\210 \203D \320 !\321=\203D \325 !\210\326 +c*\207" [pgg-insert-url-extra-arguments process args #1=#:temp-buffer pgg-insert-url-program url copy-sequence nil generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] apply start-process " *PGG url*" set-process-sentinel ignore process-status run accept-process-output 5 delete-process interrupt-process buffer-string] 7])
#@77 Attempt to fetch a KEY from KEYSERVER for addition to PGP or GnuPG keyring.
(defalias 'pgg-fetch-key #[(keyserver key) "r\306!q\210\307 \210\310 \210\311\312 \"\205 \313 \314\211\225S#\212 \n\203% \202* \315\316 \f#!\210)\317\320\321\322#\205_ e\314\224|\210\317\323\321\324#\203I \321\210`d|\210\325c\210\326\327! r
q\210\330\216\331!\210\332ed\"+*\207" [pgg-output-buffer keyserver proto pgg-insert-url-function key #1=#:temp-buffer get-buffer-create buffer-disable-undo erase-buffer string-match "^[a-zA-Z\\+.-]+:" substring 0 format "http://%s:11371/pks/lookup?op=get&search=%s" re-search-forward "^-+BEGIN" nil last "^-+END" t "\n" generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] insert-buffer-substring pgg-snarf-keys-region] 5 (#$ . 18619)])
(provide 'pgg)
Mini Shell