ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/epg.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'epg-config)
#@36 GnuPG ID of your default identity.
(defvar epg-user-id nil (#$ . 432))
#@42 An alist mapping from key ID to user ID.
(defvar epg-user-id-alist nil (#$ . 509))
(defvar epg-last-status nil)
(defvar epg-read-point nil)
(defvar epg-process-filter-running nil)
(defvar epg-pending-status-list nil)
(defvar epg-key-id nil)
(defvar epg-context nil)
(defvar epg-debug-buffer nil)
(defvar epg-agent-file nil)
(defvar epg-agent-mtime nil)
(defconst epg-cipher-algorithm-alist '((0 . "NONE") (1 . "IDEA") (2 . "3DES") (3 . "CAST5") (4 . "BLOWFISH") (7 . "AES") (8 . "AES192") (9 . "AES256") (10 . "TWOFISH") (11 . "CAMELLIA128") (12 . "CAMELLIA256") (110 . "DUMMY")))
(defconst epg-pubkey-algorithm-alist '((1 . "RSA") (2 . "RSA_E") (3 . "RSA_S") (16 . "ELGAMAL_E") (17 . "DSA") (20 . "ELGAMAL")))
(defconst epg-digest-algorithm-alist '((1 . "MD5") (2 . "SHA1") (3 . "RIPEMD160") (8 . "SHA256") (9 . "SHA384") (10 . "SHA512") (11 . "SHA224")))
(defconst epg-compress-algorithm-alist '((0 . "NONE") (1 . "ZIP") (2 . "ZLIB") (3 . "BZIP2")))
(defconst epg-invalid-recipients-reason-alist '((0 . "No specific reason given") (1 . "Not Found") (2 . "Ambiguous specification") (3 . "Wrong key usage") (4 . "Key revoked") (5 . "Key expired") (6 . "No CRL known") (7 . "CRL too old") (8 . "Policy mismatch") (9 . "Not a secret key") (10 . "Key not trusted")))
(defconst epg-delete-problem-reason-alist '((1 . "No such key") (2 . "Must delete secret key first") (3 . "Ambiguous specification")))
(defconst epg-import-ok-reason-alist '((0 . "Not actually changed") (1 . "Entirely new key") (2 . "New user IDs") (4 . "New signatures") (8 . "New subkeys") (16 . "Contains private key")))
(defconst epg-import-problem-reason-alist '((0 . "No specific reason given") (1 . "Invalid Certificate") (2 . "Issuer Certificate missing") (3 . "Certificate Chain too long") (4 . "Error storing certificate")))
(defconst epg-no-data-reason-alist '((1 . "No armored data") (2 . "Expected a packet but did not found one") (3 . "Invalid packet found, this may indicate a non OpenPGP message") (4 . "Signature expected but not found")))
(defconst epg-unexpected-reason-alist nil)
(defvar epg-key-validity-alist '((111 . unknown) (105 . invalid) (100 . disabled) (114 . revoked) (101 . expired) (45 . none) (113 . undefined) (110 . never) (109 . marginal) (102 . full) (117 . ultimate)))
(defvar epg-key-capability-alist '((101 . encrypt) (115 . sign) (99 . certify) (97 . authentication) (68 . disabled)))
(defvar epg-new-signature-type-alist '((68 . detached) (67 . clear) (83 . normal)))
(defvar epg-dn-type-alist '(("1.2.840.113549.1.9.1" . "EMail") ("2.5.4.12" . "T") ("2.5.4.42" . "GN") ("2.5.4.4" . "SN") ("0.2.262.1.10.7.20" . "NameDistinguisher") ("2.5.4.16" . "ADDR") ("2.5.4.15" . "BC") ("2.5.4.13" . "D") ("2.5.4.17" . "PostalCode") ("2.5.4.65" . "Pseudo") ("2.5.4.5" . "SerialNumber")))
(defvar epg-prompt-alist nil)
(define-error 'epg-error "GPG error")
(defalias 'cl--struct-epg-data-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--struct-epg-data-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 3) (memq (aref cl-x 0) cl-struct-epg-data-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cl--struct-epg-data-p 'compiler-macro 'cl--struct-epg-data-p--cmacro)
(defalias 'cl--struct-epg-data-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-epg-data-tags vectorp 3 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put cl--struct-epg-data-p side-effect-free error-free put epg-data cl-deftype-satisfies] 4)
(defalias 'epg-data-file--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-data-file (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-data-tags)) (signal 'wrong-type-argument (list 'epg-data cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-data-file 'compiler-macro 'epg-data-file--cmacro)
(defalias 'epg-data-file #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-data-tags 0 signal wrong-type-argument epg-data 1] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [function-put epg-data-file side-effect-free t put gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" epg-data-file] 5 "\n\n(fn CL-DO CL-X)"]] 4)
(defalias 'epg-data-string--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-data-string (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-data-tags)) (signal 'wrong-type-argument (list 'epg-data cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-data-string 'compiler-macro 'epg-data-string--cmacro)
(defalias 'epg-data-string #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-data-tags 0 signal wrong-type-argument epg-data 2] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [function-put epg-data-string side-effect-free t put gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" epg-data-string] 5 "\n\n(fn CL-DO CL-X)"]] 4)
(defalias 'epg-make-data-from-string--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (string) (cl-block epg-make-data-from-string "Constructor for objects of type `epg-data'." (declare (side-effect-free t)) (vector 'cl-struct-epg-data nil string)) nil] 9 "\n\n(fn CL-WHOLE-ARG STRING)"])
(put 'epg-make-data-from-string 'compiler-macro 'epg-make-data-from-string--cmacro)
#@58 Constructor for objects of type `epg-data'.
(fn STRING)
(defalias 'epg-make-data-from-string #[257 "\300\301\302#\207" [vector cl-struct-epg-data nil] 5 (#$ . 6013)])
(function-put 'epg-make-data-from-string 'side-effect-free t)
(defalias 'epg-make-data-from-file--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (file) (cl-block epg-make-data-from-file "Constructor for objects of type `epg-data'." (declare (side-effect-free t)) (vector 'cl-struct-epg-data file nil)) nil] 9 "\n\n(fn CL-WHOLE-ARG FILE)"])
(put 'epg-make-data-from-file 'compiler-macro 'epg-make-data-from-file--cmacro)
#@56 Constructor for objects of type `epg-data'.
(fn FILE)
(defalias 'epg-make-data-from-file #[257 "\300\301\302#\207" [vector cl-struct-epg-data nil] 5 (#$ . 6630)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put epg-make-data-from-file side-effect-free t cl-struct-define epg-data nil cl-structure-object ((cl-tag-slot) (file nil :read-only t) (string nil :read-only t)) cl-struct-epg-data-tags cl-struct-epg-data] 10)
(defalias 'epg--gv-nreverse '(macro . #[257 "\300\301\"\207" [gv-get #[514 "\211\300D!\207" [nreverse] 5 "\n\n(fn GETTER SETTER)"]] 4 "\n\n(fn PLACE)"]))
(defalias 'cl--struct-epg-context-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--struct-epg-context-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 22) (memq (aref cl-x 0) cl-struct-epg-context-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cl--struct-epg-context-p 'compiler-macro 'cl--struct-epg-context-p--cmacro)
(defalias 'cl--struct-epg-context-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-epg-context-tags vectorp 22 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put cl--struct-epg-context-p side-effect-free error-free put epg-context cl-deftype-satisfies] 4)
(defalias 'epg-context-protocol--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-protocol (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-context-tags)) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-context-protocol 'compiler-macro 'epg-context-protocol--cmacro)
(defalias 'epg-context-protocol #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags 0 signal wrong-type-argument epg-context 1] 5 "\n\n(fn CL-X)"])
(function-put 'epg-context-protocol 'side-effect-free t)
(defalias 'epg-context-program--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-program (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-context-tags)) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-context-program 'compiler-macro 'epg-context-program--cmacro)
(defalias 'epg-context-program #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags 0 signal wrong-type-argument epg-context 2] 5 "\n\n(fn CL-X)"])
(function-put 'epg-context-program 'side-effect-free t)
(defalias 'epg-context-home-directory--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-home-directory (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-context-tags)) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-context-home-directory 'compiler-macro 'epg-context-home-directory--cmacro)
(defalias 'epg-context-home-directory #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags 0 signal wrong-type-argument epg-context 3] 5 "\n\n(fn CL-X)"])
(function-put 'epg-context-home-directory 'side-effect-free t)
(defalias 'epg-context-armor--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-armor (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-context-tags)) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 4)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-context-armor 'compiler-macro 'epg-context-armor--cmacro)
(defalias 'epg-context-armor #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags 0 signal wrong-type-argument epg-context 4] 5 "\n\n(fn CL-X)"])
(function-put 'epg-context-armor 'side-effect-free t)
(defalias 'epg-context-textmode--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-textmode (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-context-tags)) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 5)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-context-textmode 'compiler-macro 'epg-context-textmode--cmacro)
(defalias 'epg-context-textmode #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags 0 signal wrong-type-argument epg-context 5] 5 "\n\n(fn CL-X)"])
(function-put 'epg-context-textmode 'side-effect-free t)
(defalias 'epg-context-include-certs--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-include-certs (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-context-tags)) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 6)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-context-include-certs 'compiler-macro 'epg-context-include-certs--cmacro)
(defalias 'epg-context-include-certs #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags 0 signal wrong-type-argument epg-context 6] 5 "\n\n(fn CL-X)"])
(function-put 'epg-context-include-certs 'side-effect-free t)
(defalias 'epg-context-cipher-algorithm--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-cipher-algorithm (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-context-tags)) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 7)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-context-cipher-algorithm 'compiler-macro 'epg-context-cipher-algorithm--cmacro)
(defalias 'epg-context-cipher-algorithm #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags 0 signal wrong-type-argument epg-context 7] 5 "\n\n(fn CL-X)"])
(function-put 'epg-context-cipher-algorithm 'side-effect-free t)
(defalias 'epg-context-digest-algorithm--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-digest-algorithm (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-context-tags)) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 8)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-context-digest-algorithm 'compiler-macro 'epg-context-digest-algorithm--cmacro)
(defalias 'epg-context-digest-algorithm #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags 0 signal wrong-type-argument epg-context 8] 5 "\n\n(fn CL-X)"])
(function-put 'epg-context-digest-algorithm 'side-effect-free t)
(defalias 'epg-context-compress-algorithm--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-compress-algorithm (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-context-tags)) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 9)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-context-compress-algorithm 'compiler-macro 'epg-context-compress-algorithm--cmacro)
(defalias 'epg-context-compress-algorithm #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags 0 signal wrong-type-argument epg-context 9] 5 "\n\n(fn CL-X)"])
(function-put 'epg-context-compress-algorithm 'side-effect-free t)
(defalias 'epg-context-passphrase-callback--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-passphrase-callback (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-context-tags)) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 10)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-context-passphrase-callback 'compiler-macro 'epg-context-passphrase-callback--cmacro)
(defalias 'epg-context-passphrase-callback #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags 0 signal wrong-type-argument epg-context 10] 5 "\n\n(fn CL-X)"])
(function-put 'epg-context-passphrase-callback 'side-effect-free t)
(defalias 'epg-context-progress-callback--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-progress-callback (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-context-tags)) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 11)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-context-progress-callback 'compiler-macro 'epg-context-progress-callback--cmacro)
(defalias 'epg-context-progress-callback #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags 0 signal wrong-type-argument epg-context 11] 5 "\n\n(fn CL-X)"])
(function-put 'epg-context-progress-callback 'side-effect-free t)
(defalias 'epg-context-edit-callback--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-edit-callback (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-context-tags)) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 12)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-context-edit-callback 'compiler-macro 'epg-context-edit-callback--cmacro)
(defalias 'epg-context-edit-callback #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags 0 signal wrong-type-argument epg-context 12] 5 "\n\n(fn CL-X)"])
(function-put 'epg-context-edit-callback 'side-effect-free t)
(defalias 'epg-context-signers--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-signers (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-context-tags)) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 13)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-context-signers 'compiler-macro 'epg-context-signers--cmacro)
(defalias 'epg-context-signers #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags 0 signal wrong-type-argument epg-context 13] 5 "\n\n(fn CL-X)"])
(function-put 'epg-context-signers 'side-effect-free t)
(defalias 'epg-context-sig-notations--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-sig-notations (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-context-tags)) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 14)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-context-sig-notations 'compiler-macro 'epg-context-sig-notations--cmacro)
(defalias 'epg-context-sig-notations #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags 0 signal wrong-type-argument epg-context 14] 5 "\n\n(fn CL-X)"])
(function-put 'epg-context-sig-notations 'side-effect-free t)
(defalias 'epg-context-process--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-process (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-context-tags)) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 15)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-context-process 'compiler-macro 'epg-context-process--cmacro)
(defalias 'epg-context-process #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags 0 signal wrong-type-argument epg-context 15] 5 "\n\n(fn CL-X)"])
(function-put 'epg-context-process 'side-effect-free t)
(defalias 'epg-context-output-file--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-output-file (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-context-tags)) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 16)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-context-output-file 'compiler-macro 'epg-context-output-file--cmacro)
(defalias 'epg-context-output-file #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags 0 signal wrong-type-argument epg-context 16] 5 "\n\n(fn CL-X)"])
(function-put 'epg-context-output-file 'side-effect-free t)
(defalias 'epg-context-result--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-result (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-context-tags)) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 17)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-context-result 'compiler-macro 'epg-context-result--cmacro)
(defalias 'epg-context-result #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags 0 signal wrong-type-argument epg-context 17] 5 "\n\n(fn CL-X)"])
(function-put 'epg-context-result 'side-effect-free t)
(defalias 'epg-context-operation--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-operation (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-context-tags)) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 18)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-context-operation 'compiler-macro 'epg-context-operation--cmacro)
(defalias 'epg-context-operation #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags 0 signal wrong-type-argument epg-context 18] 5 "\n\n(fn CL-X)"])
(function-put 'epg-context-operation 'side-effect-free t)
(defalias 'epg-context-pinentry-mode--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-pinentry-mode (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-context-tags)) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 19)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-context-pinentry-mode 'compiler-macro 'epg-context-pinentry-mode--cmacro)
(defalias 'epg-context-pinentry-mode #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags 0 signal wrong-type-argument epg-context 19] 5 "\n\n(fn CL-X)"])
(function-put 'epg-context-pinentry-mode 'side-effect-free t)
(defalias 'epg-context-error-output--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-error-output (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-context-tags)) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 20)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-context-error-output 'compiler-macro 'epg-context-error-output--cmacro)
(defalias 'epg-context-error-output #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags 0 signal wrong-type-argument epg-context 20] 5 "\n\n(fn CL-X)"])
(function-put 'epg-context-error-output 'side-effect-free t)
(defalias 'epg-context-error-buffer--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-error-buffer (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-context-tags)) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 21)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-context-error-buffer 'compiler-macro 'epg-context-error-buffer--cmacro)
(defalias 'epg-context-error-buffer #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags 0 signal wrong-type-argument epg-context 21] 5 "\n\n(fn CL-X)"])
(function-put 'epg-context-error-buffer 'side-effect-free t)
#@155 Constructor for objects of type `epg-context'.
(fn PROTOCOL &optional ARMOR TEXTMODE INCLUDE-CERTS CIPHER-ALGORITHM DIGEST-ALGORITHM COMPRESS-ALGORITHM)
(defalias 'epg-context--make #[1921 "\301!\211\204 \302\303\304 D\"\210\305\306\"\262\203$ \302\307\310\311G\\D\"\210\312\313\n\f\f\f\f\f\f\314C\315\211\211\211\211\211\211\211\211\316\315&\207" [epg-gpg-home-directory epg-find-configuration signal epg-error "no usable configuration" alist-get program wrong-number-of-arguments epg-context--make 7 vector cl-struct-epg-context epg-passphrase-callback-function nil ""] 32 (#$ . 22160)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put epg-context--make side-effect-free t cl-struct-define epg-context nil cl-structure-object ((cl-tag-slot) (protocol) (program) (home-directory epg-gpg-home-directory) (armor) (textmode) (include-certs) (cipher-algorithm) (digest-algorithm) (compress-algorithm) (passphrase-callback (list #'epg-passphrase-callback-function)) (progress-callback) (edit-callback) (signers) (sig-notations) (process) (output-file) (result) (operation) (pinentry-mode) (error-output "") (error-buffer)) cl-struct-epg-context-tags cl-struct-epg-context] 10)
#@133 Return a context object.
(fn &optional PROTOCOL ARMOR TEXTMODE INCLUDE-CERTS CIPHER-ALGORITHM DIGEST-ALGORITHM COMPRESS-ALGORITHM)
(defalias 'epg-make-context #[1792 "\300\206 \301&\207" [epg-context--make OpenPGP] 15 (#$ . 23406)])
#@79 Specify if the output should be ASCII armored in CONTEXT.
(fn CONTEXT ARMOR)
(defalias 'epg-context-set-armor #[514 "\301H>\204 \302\303\304D\"\210\211\305I\207" [cl-struct-epg-context-tags 0 signal wrong-type-argument epg-context 4] 6 (#$ . 23662)])
(make-obsolete 'epg-context-set-armor 'setf "25.1")
#@82 Specify if canonical text mode should be used in CONTEXT.
(fn CONTEXT TEXTMODE)
(defalias 'epg-context-set-textmode #[514 "\301H>\204 \302\303\304D\"\210\211\305I\207" [cl-struct-epg-context-tags 0 signal wrong-type-argument epg-context 5] 6 (#$ . 23978)])
(make-obsolete 'epg-context-set-textmode 'setf "25.1")
#@597 Set the function used to query passphrase.
PASSPHRASE-CALLBACK is either a function, or a cons-cell whose
car is a function and cdr is a callback data.
The function gets three arguments: the context, the key-id in
question, and the callback data (if any).
The callback may not be called if you use GnuPG 2.x, which relies
on the external program called `gpg-agent' for passphrase query.
If you really want to intercept passphrase query, consider
installing GnuPG 1.x _along with_ GnuPG 2.x, which does passphrase
query by itself and Emacs can intercept them.
(fn CONTEXT PASSPHRASE-CALLBACK)
(defalias 'epg-context-set-passphrase-callback #[514 "\301H>\204 \302\303\304D\"\210\211\305\306!\203 C\202 I\207" [cl-struct-epg-context-tags 0 signal wrong-type-argument epg-context 10 functionp] 7 (#$ . 24304)])
#@391 Set the function which handles progress update.
PROGRESS-CALLBACK is either a function, or a cons-cell whose
car is a function and cdr is a callback data.
The function gets six arguments: the context, the operation
description, the character to display a progress unit, the
current amount done, the total amount to be done, and the
callback data (if any).
(fn CONTEXT PROGRESS-CALLBACK)
(defalias 'epg-context-set-progress-callback #[514 "\301H>\204 \302\303\304D\"\210\211\305\306!\203 C\202 I\207" [cl-struct-epg-context-tags 0 signal wrong-type-argument epg-context 11 functionp] 7 (#$ . 25132)])
#@59 Set the list of key-id for signing.
(fn CONTEXT SIGNERS)
(defalias 'epg-context-set-signers #[514 "\301H>\204 \302\303\304D\"\210\211\305I\207" [cl-struct-epg-context-tags 0 signal wrong-type-argument epg-context 13] 6 (#$ . 25751)])
(make-obsolete 'epg-context-set-signers 'setf "25.1")
(defalias 'cl--struct-epg-signature-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--struct-epg-signature-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 12) (memq (aref cl-x 0) cl-struct-epg-signature-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cl--struct-epg-signature-p 'compiler-macro 'cl--struct-epg-signature-p--cmacro)
(defalias 'cl--struct-epg-signature-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-epg-signature-tags vectorp 12 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put cl--struct-epg-signature-p side-effect-free error-free put epg-signature cl-deftype-satisfies] 4)
(defalias 'epg-signature-status--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-signature-status (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-signature-tags)) (signal 'wrong-type-argument (list 'epg-signature cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-signature-status 'compiler-macro 'epg-signature-status--cmacro)
(defalias 'epg-signature-status #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-signature-tags 0 signal wrong-type-argument epg-signature 1] 5 "\n\n(fn CL-X)"])
(function-put 'epg-signature-status 'side-effect-free t)
(defalias 'epg-signature-key-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-signature-key-id (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-signature-tags)) (signal 'wrong-type-argument (list 'epg-signature cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-signature-key-id 'compiler-macro 'epg-signature-key-id--cmacro)
(defalias 'epg-signature-key-id #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-signature-tags 0 signal wrong-type-argument epg-signature 2] 5 "\n\n(fn CL-X)"])
(function-put 'epg-signature-key-id 'side-effect-free t)
(defalias 'epg-signature-validity--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-signature-validity (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-signature-tags)) (signal 'wrong-type-argument (list 'epg-signature cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-signature-validity 'compiler-macro 'epg-signature-validity--cmacro)
(defalias 'epg-signature-validity #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-signature-tags 0 signal wrong-type-argument epg-signature 3] 5 "\n\n(fn CL-X)"])
(function-put 'epg-signature-validity 'side-effect-free t)
(defalias 'epg-signature-fingerprint--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-signature-fingerprint (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-signature-tags)) (signal 'wrong-type-argument (list 'epg-signature cl-x))) (aref cl-x 4)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-signature-fingerprint 'compiler-macro 'epg-signature-fingerprint--cmacro)
(defalias 'epg-signature-fingerprint #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-signature-tags 0 signal wrong-type-argument epg-signature 4] 5 "\n\n(fn CL-X)"])
(function-put 'epg-signature-fingerprint 'side-effect-free t)
(defalias 'epg-signature-creation-time--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-signature-creation-time (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-signature-tags)) (signal 'wrong-type-argument (list 'epg-signature cl-x))) (aref cl-x 5)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-signature-creation-time 'compiler-macro 'epg-signature-creation-time--cmacro)
(defalias 'epg-signature-creation-time #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-signature-tags 0 signal wrong-type-argument epg-signature 5] 5 "\n\n(fn CL-X)"])
(function-put 'epg-signature-creation-time 'side-effect-free t)
(defalias 'epg-signature-expiration-time--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-signature-expiration-time (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-signature-tags)) (signal 'wrong-type-argument (list 'epg-signature cl-x))) (aref cl-x 6)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-signature-expiration-time 'compiler-macro 'epg-signature-expiration-time--cmacro)
(defalias 'epg-signature-expiration-time #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-signature-tags 0 signal wrong-type-argument epg-signature 6] 5 "\n\n(fn CL-X)"])
(function-put 'epg-signature-expiration-time 'side-effect-free t)
(defalias 'epg-signature-pubkey-algorithm--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-signature-pubkey-algorithm (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-signature-tags)) (signal 'wrong-type-argument (list 'epg-signature cl-x))) (aref cl-x 7)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-signature-pubkey-algorithm 'compiler-macro 'epg-signature-pubkey-algorithm--cmacro)
(defalias 'epg-signature-pubkey-algorithm #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-signature-tags 0 signal wrong-type-argument epg-signature 7] 5 "\n\n(fn CL-X)"])
(function-put 'epg-signature-pubkey-algorithm 'side-effect-free t)
(defalias 'epg-signature-digest-algorithm--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-signature-digest-algorithm (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-signature-tags)) (signal 'wrong-type-argument (list 'epg-signature cl-x))) (aref cl-x 8)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-signature-digest-algorithm 'compiler-macro 'epg-signature-digest-algorithm--cmacro)
(defalias 'epg-signature-digest-algorithm #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-signature-tags 0 signal wrong-type-argument epg-signature 8] 5 "\n\n(fn CL-X)"])
(function-put 'epg-signature-digest-algorithm 'side-effect-free t)
(defalias 'epg-signature-class--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-signature-class (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-signature-tags)) (signal 'wrong-type-argument (list 'epg-signature cl-x))) (aref cl-x 9)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-signature-class 'compiler-macro 'epg-signature-class--cmacro)
(defalias 'epg-signature-class #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-signature-tags 0 signal wrong-type-argument epg-signature 9] 5 "\n\n(fn CL-X)"])
(function-put 'epg-signature-class 'side-effect-free t)
(defalias 'epg-signature-version--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-signature-version (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-signature-tags)) (signal 'wrong-type-argument (list 'epg-signature cl-x))) (aref cl-x 10)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-signature-version 'compiler-macro 'epg-signature-version--cmacro)
(defalias 'epg-signature-version #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-signature-tags 0 signal wrong-type-argument epg-signature 10] 5 "\n\n(fn CL-X)"])
(function-put 'epg-signature-version 'side-effect-free t)
(defalias 'epg-signature-notations--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-signature-notations (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-signature-tags)) (signal 'wrong-type-argument (list 'epg-signature cl-x))) (aref cl-x 11)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-signature-notations 'compiler-macro 'epg-signature-notations--cmacro)
(defalias 'epg-signature-notations #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-signature-tags 0 signal wrong-type-argument epg-signature 11] 5 "\n\n(fn CL-X)"])
(function-put 'epg-signature-notations 'side-effect-free t)
(defalias 'epg-make-signature--cmacro #[770 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (status key-id) (cl-block epg-make-signature "Constructor for objects of type `epg-signature'." (declare (side-effect-free t)) (vector 'cl-struct-epg-signature status key-id nil nil nil nil nil nil nil nil nil)) nil] 11 "\n\n(fn CL-WHOLE-ARG STATUS &optional KEY-ID)"])
(put 'epg-make-signature 'compiler-macro 'epg-make-signature--cmacro)
#@80 Constructor for objects of type `epg-signature'.
(fn STATUS &optional KEY-ID)
(defalias 'epg-make-signature #[513 "\300\301\302\211\211\211\211\211\211\211\211&\f\207" [vector cl-struct-epg-signature nil] 15 (#$ . 34780)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put epg-make-signature side-effect-free t cl-struct-define epg-signature nil cl-structure-object ((cl-tag-slot) (status) (key-id) (validity) (fingerprint) (creation-time) (expiration-time) (pubkey-algorithm) (digest-algorithm) (class) (version) (notations)) cl-struct-epg-signature-tags cl-struct-epg-signature] 10)
(defalias 'cl--struct-epg-new-signature-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--struct-epg-new-signature-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 7) (memq (aref cl-x 0) cl-struct-epg-new-signature-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cl--struct-epg-new-signature-p 'compiler-macro 'cl--struct-epg-new-signature-p--cmacro)
(defalias 'cl--struct-epg-new-signature-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-epg-new-signature-tags vectorp 7 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put cl--struct-epg-new-signature-p side-effect-free error-free put epg-new-signature cl-deftype-satisfies] 4)
(defalias 'epg-new-signature-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-new-signature-type (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-new-signature-tags)) (signal 'wrong-type-argument (list 'epg-new-signature cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-new-signature-type 'compiler-macro 'epg-new-signature-type--cmacro)
(defalias 'epg-new-signature-type #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-new-signature-tags 0 signal wrong-type-argument epg-new-signature 1] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [function-put epg-new-signature-type side-effect-free t put gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" epg-new-signature-type] 5 "\n\n(fn CL-DO CL-X)"]] 4)
(defalias 'epg-new-signature-pubkey-algorithm--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-new-signature-pubkey-algorithm (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-new-signature-tags)) (signal 'wrong-type-argument (list 'epg-new-signature cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-new-signature-pubkey-algorithm 'compiler-macro 'epg-new-signature-pubkey-algorithm--cmacro)
(defalias 'epg-new-signature-pubkey-algorithm #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-new-signature-tags 0 signal wrong-type-argument epg-new-signature 2] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [function-put epg-new-signature-pubkey-algorithm side-effect-free t put gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" epg-new-signature-pubkey-algorithm] 5 "\n\n(fn CL-DO CL-X)"]] 4)
(defalias 'epg-new-signature-digest-algorithm--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-new-signature-digest-algorithm (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-new-signature-tags)) (signal 'wrong-type-argument (list 'epg-new-signature cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-new-signature-digest-algorithm 'compiler-macro 'epg-new-signature-digest-algorithm--cmacro)
(defalias 'epg-new-signature-digest-algorithm #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-new-signature-tags 0 signal wrong-type-argument epg-new-signature 3] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [function-put epg-new-signature-digest-algorithm side-effect-free t put gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" epg-new-signature-digest-algorithm] 5 "\n\n(fn CL-DO CL-X)"]] 4)
(defalias 'epg-new-signature-class--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-new-signature-class (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-new-signature-tags)) (signal 'wrong-type-argument (list 'epg-new-signature cl-x))) (aref cl-x 4)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-new-signature-class 'compiler-macro 'epg-new-signature-class--cmacro)
(defalias 'epg-new-signature-class #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-new-signature-tags 0 signal wrong-type-argument epg-new-signature 4] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [function-put epg-new-signature-class side-effect-free t put gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" epg-new-signature-class] 5 "\n\n(fn CL-DO CL-X)"]] 4)
(defalias 'epg-new-signature-creation-time--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-new-signature-creation-time (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-new-signature-tags)) (signal 'wrong-type-argument (list 'epg-new-signature cl-x))) (aref cl-x 5)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-new-signature-creation-time 'compiler-macro 'epg-new-signature-creation-time--cmacro)
(defalias 'epg-new-signature-creation-time #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-new-signature-tags 0 signal wrong-type-argument epg-new-signature 5] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [function-put epg-new-signature-creation-time side-effect-free t put gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" epg-new-signature-creation-time] 5 "\n\n(fn CL-DO CL-X)"]] 4)
(defalias 'epg-new-signature-fingerprint--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-new-signature-fingerprint (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-new-signature-tags)) (signal 'wrong-type-argument (list 'epg-new-signature cl-x))) (aref cl-x 6)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-new-signature-fingerprint 'compiler-macro 'epg-new-signature-fingerprint--cmacro)
(defalias 'epg-new-signature-fingerprint #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-new-signature-tags 0 signal wrong-type-argument epg-new-signature 6] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [function-put epg-new-signature-fingerprint side-effect-free t put gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" epg-new-signature-fingerprint] 5 "\n\n(fn CL-DO CL-X)"]] 4)
(defalias 'epg-make-new-signature--cmacro #[1799 "\300\301\302\303\211\211 & \207" [cl--defsubst-expand (type pubkey-algorithm digest-algorithm class creation-time fingerprint) (cl-block epg-make-new-signature "Constructor for objects of type `epg-new-signature'." (declare (side-effect-free t)) (vector 'cl-struct-epg-new-signature type pubkey-algorithm digest-algorithm class creation-time fingerprint)) nil] 19 "\n\n(fn CL-WHOLE-ARG TYPE PUBKEY-ALGORITHM DIGEST-ALGORITHM CLASS CREATION-TIME FINGERPRINT)"])
(put 'epg-make-new-signature 'compiler-macro 'epg-make-new-signature--cmacro)
#@131 Constructor for objects of type `epg-new-signature'.
(fn TYPE PUBKEY-ALGORITHM DIGEST-ALGORITHM CLASS CREATION-TIME FINGERPRINT)
(defalias 'epg-make-new-signature #[1542 "\300\301&\207" [vector cl-struct-epg-new-signature] 14 (#$ . 42301)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put epg-make-new-signature side-effect-free t cl-struct-define epg-new-signature nil cl-structure-object ((cl-tag-slot) (type nil :read-only t) (pubkey-algorithm nil :read-only t) (digest-algorithm nil :read-only t) (class nil :read-only t) (creation-time nil :read-only t) (fingerprint nil :read-only t)) cl-struct-epg-new-signature-tags cl-struct-epg-new-signature] 10)
(defalias 'cl--struct-epg-key-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--struct-epg-key-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 4) (memq (aref cl-x 0) cl-struct-epg-key-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cl--struct-epg-key-p 'compiler-macro 'cl--struct-epg-key-p--cmacro)
(defalias 'cl--struct-epg-key-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-epg-key-tags vectorp 4 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put cl--struct-epg-key-p side-effect-free error-free put epg-key cl-deftype-satisfies] 4)
(defalias 'epg-key-owner-trust--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-key-owner-trust (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-key-tags)) (signal 'wrong-type-argument (list 'epg-key cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-key-owner-trust 'compiler-macro 'epg-key-owner-trust--cmacro)
(defalias 'epg-key-owner-trust #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-key-tags 0 signal wrong-type-argument epg-key 1] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [function-put epg-key-owner-trust side-effect-free t put gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" epg-key-owner-trust] 5 "\n\n(fn CL-DO CL-X)"]] 4)
(defalias 'epg-key-sub-key-list--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-key-sub-key-list (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-key-tags)) (signal 'wrong-type-argument (list 'epg-key cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-key-sub-key-list 'compiler-macro 'epg-key-sub-key-list--cmacro)
(defalias 'epg-key-sub-key-list #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-key-tags 0 signal wrong-type-argument epg-key 2] 5 "\n\n(fn CL-X)"])
(function-put 'epg-key-sub-key-list 'side-effect-free t)
(defalias 'epg-key-user-id-list--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-key-user-id-list (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-key-tags)) (signal 'wrong-type-argument (list 'epg-key cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-key-user-id-list 'compiler-macro 'epg-key-user-id-list--cmacro)
(defalias 'epg-key-user-id-list #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-key-tags 0 signal wrong-type-argument epg-key 3] 5 "\n\n(fn CL-X)"])
(function-put 'epg-key-user-id-list 'side-effect-free t)
(defalias 'epg-make-key--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (owner-trust) (cl-block epg-make-key "Constructor for objects of type `epg-key'." (declare (side-effect-free t)) (vector 'cl-struct-epg-key owner-trust nil nil)) nil] 9 "\n\n(fn CL-WHOLE-ARG OWNER-TRUST)"])
(put 'epg-make-key 'compiler-macro 'epg-make-key--cmacro)
#@62 Constructor for objects of type `epg-key'.
(fn OWNER-TRUST)
(defalias 'epg-make-key #[257 "\300\301\302\211$\207" [vector cl-struct-epg-key nil] 6 (#$ . 46154)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put epg-make-key side-effect-free t cl-struct-define epg-key nil cl-structure-object ((cl-tag-slot) (owner-trust nil :read-only t) (sub-key-list) (user-id-list)) cl-struct-epg-key-tags cl-struct-epg-key] 10)
(defalias 'cl--struct-epg-sub-key-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--struct-epg-sub-key-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 10) (memq (aref cl-x 0) cl-struct-epg-sub-key-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cl--struct-epg-sub-key-p 'compiler-macro 'cl--struct-epg-sub-key-p--cmacro)
(defalias 'cl--struct-epg-sub-key-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-epg-sub-key-tags vectorp 10 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put cl--struct-epg-sub-key-p side-effect-free error-free put epg-sub-key cl-deftype-satisfies] 4)
(defalias 'epg-sub-key-validity--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-sub-key-validity (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-sub-key-tags)) (signal 'wrong-type-argument (list 'epg-sub-key cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-sub-key-validity 'compiler-macro 'epg-sub-key-validity--cmacro)
(defalias 'epg-sub-key-validity #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-sub-key-tags 0 signal wrong-type-argument epg-sub-key 1] 5 "\n\n(fn CL-X)"])
(function-put 'epg-sub-key-validity 'side-effect-free t)
(defalias 'epg-sub-key-capability--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-sub-key-capability (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-sub-key-tags)) (signal 'wrong-type-argument (list 'epg-sub-key cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-sub-key-capability 'compiler-macro 'epg-sub-key-capability--cmacro)
(defalias 'epg-sub-key-capability #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-sub-key-tags 0 signal wrong-type-argument epg-sub-key 2] 5 "\n\n(fn CL-X)"])
(function-put 'epg-sub-key-capability 'side-effect-free t)
(defalias 'epg-sub-key-secret-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-sub-key-secret-p (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-sub-key-tags)) (signal 'wrong-type-argument (list 'epg-sub-key cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-sub-key-secret-p 'compiler-macro 'epg-sub-key-secret-p--cmacro)
(defalias 'epg-sub-key-secret-p #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-sub-key-tags 0 signal wrong-type-argument epg-sub-key 3] 5 "\n\n(fn CL-X)"])
(function-put 'epg-sub-key-secret-p 'side-effect-free t)
(defalias 'epg-sub-key-algorithm--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-sub-key-algorithm (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-sub-key-tags)) (signal 'wrong-type-argument (list 'epg-sub-key cl-x))) (aref cl-x 4)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-sub-key-algorithm 'compiler-macro 'epg-sub-key-algorithm--cmacro)
(defalias 'epg-sub-key-algorithm #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-sub-key-tags 0 signal wrong-type-argument epg-sub-key 4] 5 "\n\n(fn CL-X)"])
(function-put 'epg-sub-key-algorithm 'side-effect-free t)
(defalias 'epg-sub-key-length--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-sub-key-length (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-sub-key-tags)) (signal 'wrong-type-argument (list 'epg-sub-key cl-x))) (aref cl-x 5)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-sub-key-length 'compiler-macro 'epg-sub-key-length--cmacro)
(defalias 'epg-sub-key-length #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-sub-key-tags 0 signal wrong-type-argument epg-sub-key 5] 5 "\n\n(fn CL-X)"])
(function-put 'epg-sub-key-length 'side-effect-free t)
(defalias 'epg-sub-key-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-sub-key-id (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-sub-key-tags)) (signal 'wrong-type-argument (list 'epg-sub-key cl-x))) (aref cl-x 6)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-sub-key-id 'compiler-macro 'epg-sub-key-id--cmacro)
(defalias 'epg-sub-key-id #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-sub-key-tags 0 signal wrong-type-argument epg-sub-key 6] 5 "\n\n(fn CL-X)"])
(function-put 'epg-sub-key-id 'side-effect-free t)
(defalias 'epg-sub-key-creation-time--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-sub-key-creation-time (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-sub-key-tags)) (signal 'wrong-type-argument (list 'epg-sub-key cl-x))) (aref cl-x 7)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-sub-key-creation-time 'compiler-macro 'epg-sub-key-creation-time--cmacro)
(defalias 'epg-sub-key-creation-time #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-sub-key-tags 0 signal wrong-type-argument epg-sub-key 7] 5 "\n\n(fn CL-X)"])
(function-put 'epg-sub-key-creation-time 'side-effect-free t)
(defalias 'epg-sub-key-expiration-time--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-sub-key-expiration-time (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-sub-key-tags)) (signal 'wrong-type-argument (list 'epg-sub-key cl-x))) (aref cl-x 8)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-sub-key-expiration-time 'compiler-macro 'epg-sub-key-expiration-time--cmacro)
(defalias 'epg-sub-key-expiration-time #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-sub-key-tags 0 signal wrong-type-argument epg-sub-key 8] 5 "\n\n(fn CL-X)"])
(function-put 'epg-sub-key-expiration-time 'side-effect-free t)
(defalias 'epg-sub-key-fingerprint--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-sub-key-fingerprint (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-sub-key-tags)) (signal 'wrong-type-argument (list 'epg-sub-key cl-x))) (aref cl-x 9)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-sub-key-fingerprint 'compiler-macro 'epg-sub-key-fingerprint--cmacro)
(defalias 'epg-sub-key-fingerprint #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-sub-key-tags 0 signal wrong-type-argument epg-sub-key 9] 5 "\n\n(fn CL-X)"])
(function-put 'epg-sub-key-fingerprint 'side-effect-free t)
(defalias 'epg-make-sub-key--cmacro #[2313 "\300\301\302\303\211\211
&
\207" [cl--defsubst-expand (validity capability secret-p algorithm length id creation-time expiration-time) (cl-block epg-make-sub-key "Constructor for objects of type `epg-sub-key'." (declare (side-effect-free t)) (vector 'cl-struct-epg-sub-key validity capability secret-p algorithm length id creation-time expiration-time nil)) nil] 23 "\n\n(fn CL-WHOLE-ARG VALIDITY CAPABILITY SECRET-P ALGORITHM LENGTH ID CREATION-TIME EXPIRATION-TIME)"])
(put 'epg-make-sub-key 'compiler-macro 'epg-make-sub-key--cmacro)
#@133 Constructor for objects of type `epg-sub-key'.
(fn VALIDITY CAPABILITY SECRET-P ALGORITHM LENGTH ID CREATION-TIME EXPIRATION-TIME)
(defalias 'epg-make-sub-key #[2056 "\300\301 \302&\n\207" [vector cl-struct-epg-sub-key nil] 19 (#$ . 53876)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put epg-make-sub-key side-effect-free t cl-struct-define epg-sub-key nil cl-structure-object ((cl-tag-slot) (validity) (capability) (secret-p) (algorithm) (length) (id) (creation-time) (expiration-time) (fingerprint)) cl-struct-epg-sub-key-tags cl-struct-epg-sub-key] 10)
(defalias 'cl--struct-epg-user-id-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--struct-epg-user-id-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 4) (memq (aref cl-x 0) cl-struct-epg-user-id-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cl--struct-epg-user-id-p 'compiler-macro 'cl--struct-epg-user-id-p--cmacro)
(defalias 'cl--struct-epg-user-id-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-epg-user-id-tags vectorp 4 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put cl--struct-epg-user-id-p side-effect-free error-free put epg-user-id cl-deftype-satisfies] 4)
(defalias 'epg-user-id-validity--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-user-id-validity (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-user-id-tags)) (signal 'wrong-type-argument (list 'epg-user-id cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-user-id-validity 'compiler-macro 'epg-user-id-validity--cmacro)
(defalias 'epg-user-id-validity #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-user-id-tags 0 signal wrong-type-argument epg-user-id 1] 5 "\n\n(fn CL-X)"])
(function-put 'epg-user-id-validity 'side-effect-free t)
(defalias 'epg-user-id-string--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-user-id-string (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-user-id-tags)) (signal 'wrong-type-argument (list 'epg-user-id cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-user-id-string 'compiler-macro 'epg-user-id-string--cmacro)
(defalias 'epg-user-id-string #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-user-id-tags 0 signal wrong-type-argument epg-user-id 2] 5 "\n\n(fn CL-X)"])
(function-put 'epg-user-id-string 'side-effect-free t)
(defalias 'epg-user-id-signature-list--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-user-id-signature-list (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-user-id-tags)) (signal 'wrong-type-argument (list 'epg-user-id cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-user-id-signature-list 'compiler-macro 'epg-user-id-signature-list--cmacro)
(defalias 'epg-user-id-signature-list #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-user-id-tags 0 signal wrong-type-argument epg-user-id 3] 5 "\n\n(fn CL-X)"])
(function-put 'epg-user-id-signature-list 'side-effect-free t)
(defalias 'epg-make-user-id--cmacro #[771 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (validity string) (cl-block epg-make-user-id "Constructor for objects of type `epg-user-id'." (declare (side-effect-free t)) (vector 'cl-struct-epg-user-id validity string nil)) nil] 11 "\n\n(fn CL-WHOLE-ARG VALIDITY STRING)"])
(put 'epg-make-user-id 'compiler-macro 'epg-make-user-id--cmacro)
#@70 Constructor for objects of type `epg-user-id'.
(fn VALIDITY STRING)
(defalias 'epg-make-user-id #[514 "\300\301\302$\207" [vector cl-struct-epg-user-id nil] 7 (#$ . 57603)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put epg-make-user-id side-effect-free t cl-struct-define epg-user-id nil cl-structure-object ((cl-tag-slot) (validity) (string) (signature-list)) cl-struct-epg-user-id-tags cl-struct-epg-user-id] 10)
(defalias 'cl--struct-epg-key-signature-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--struct-epg-key-signature-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 9) (memq (aref cl-x 0) cl-struct-epg-key-signature-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cl--struct-epg-key-signature-p 'compiler-macro 'cl--struct-epg-key-signature-p--cmacro)
(defalias 'cl--struct-epg-key-signature-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-epg-key-signature-tags vectorp 9 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put cl--struct-epg-key-signature-p side-effect-free error-free put epg-key-signature cl-deftype-satisfies] 4)
(defalias 'epg-key-signature-validity--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-key-signature-validity (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-key-signature-tags)) (signal 'wrong-type-argument (list 'epg-key-signature cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-key-signature-validity 'compiler-macro 'epg-key-signature-validity--cmacro)
(defalias 'epg-key-signature-validity #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-key-signature-tags 0 signal wrong-type-argument epg-key-signature 1] 5 "\n\n(fn CL-X)"])
(function-put 'epg-key-signature-validity 'side-effect-free t)
(defalias 'epg-key-signature-pubkey-algorithm--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-key-signature-pubkey-algorithm (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-key-signature-tags)) (signal 'wrong-type-argument (list 'epg-key-signature cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-key-signature-pubkey-algorithm 'compiler-macro 'epg-key-signature-pubkey-algorithm--cmacro)
(defalias 'epg-key-signature-pubkey-algorithm #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-key-signature-tags 0 signal wrong-type-argument epg-key-signature 2] 5 "\n\n(fn CL-X)"])
(function-put 'epg-key-signature-pubkey-algorithm 'side-effect-free t)
(defalias 'epg-key-signature-key-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-key-signature-key-id (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-key-signature-tags)) (signal 'wrong-type-argument (list 'epg-key-signature cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-key-signature-key-id 'compiler-macro 'epg-key-signature-key-id--cmacro)
(defalias 'epg-key-signature-key-id #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-key-signature-tags 0 signal wrong-type-argument epg-key-signature 3] 5 "\n\n(fn CL-X)"])
(function-put 'epg-key-signature-key-id 'side-effect-free t)
(defalias 'epg-key-signature-creation-time--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-key-signature-creation-time (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-key-signature-tags)) (signal 'wrong-type-argument (list 'epg-key-signature cl-x))) (aref cl-x 4)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-key-signature-creation-time 'compiler-macro 'epg-key-signature-creation-time--cmacro)
(defalias 'epg-key-signature-creation-time #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-key-signature-tags 0 signal wrong-type-argument epg-key-signature 4] 5 "\n\n(fn CL-X)"])
(function-put 'epg-key-signature-creation-time 'side-effect-free t)
(defalias 'epg-key-signature-expiration-time--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-key-signature-expiration-time (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-key-signature-tags)) (signal 'wrong-type-argument (list 'epg-key-signature cl-x))) (aref cl-x 5)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-key-signature-expiration-time 'compiler-macro 'epg-key-signature-expiration-time--cmacro)
(defalias 'epg-key-signature-expiration-time #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-key-signature-tags 0 signal wrong-type-argument epg-key-signature 5] 5 "\n\n(fn CL-X)"])
(function-put 'epg-key-signature-expiration-time 'side-effect-free t)
(defalias 'epg-key-signature-user-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-key-signature-user-id (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-key-signature-tags)) (signal 'wrong-type-argument (list 'epg-key-signature cl-x))) (aref cl-x 6)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-key-signature-user-id 'compiler-macro 'epg-key-signature-user-id--cmacro)
(defalias 'epg-key-signature-user-id #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-key-signature-tags 0 signal wrong-type-argument epg-key-signature 6] 5 "\n\n(fn CL-X)"])
(function-put 'epg-key-signature-user-id 'side-effect-free t)
(defalias 'epg-key-signature-class--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-key-signature-class (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-key-signature-tags)) (signal 'wrong-type-argument (list 'epg-key-signature cl-x))) (aref cl-x 7)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-key-signature-class 'compiler-macro 'epg-key-signature-class--cmacro)
(defalias 'epg-key-signature-class #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-key-signature-tags 0 signal wrong-type-argument epg-key-signature 7] 5 "\n\n(fn CL-X)"])
(function-put 'epg-key-signature-class 'side-effect-free t)
(defalias 'epg-key-signature-exportable-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-key-signature-exportable-p (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-key-signature-tags)) (signal 'wrong-type-argument (list 'epg-key-signature cl-x))) (aref cl-x 8)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-key-signature-exportable-p 'compiler-macro 'epg-key-signature-exportable-p--cmacro)
(defalias 'epg-key-signature-exportable-p #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-key-signature-tags 0 signal wrong-type-argument epg-key-signature 8] 5 "\n\n(fn CL-X)"])
(function-put 'epg-key-signature-exportable-p 'side-effect-free t)
(defalias 'epg-make-key-signature--cmacro #[2313 "\300\301\302\303\211\211
&
\207" [cl--defsubst-expand (validity pubkey-algorithm key-id creation-time expiration-time user-id class exportable-p) (cl-block epg-make-key-signature "Constructor for objects of type `epg-key-signature'." (declare (side-effect-free t)) (vector 'cl-struct-epg-key-signature validity pubkey-algorithm key-id creation-time expiration-time user-id class exportable-p)) nil] 23 "\n\n(fn CL-WHOLE-ARG VALIDITY PUBKEY-ALGORITHM KEY-ID CREATION-TIME EXPIRATION-TIME USER-ID CLASS EXPORTABLE-P)"])
(put 'epg-make-key-signature 'compiler-macro 'epg-make-key-signature--cmacro)
#@150 Constructor for objects of type `epg-key-signature'.
(fn VALIDITY PUBKEY-ALGORITHM KEY-ID CREATION-TIME EXPIRATION-TIME USER-ID CLASS EXPORTABLE-P)
(defalias 'epg-make-key-signature #[2056 "\300\301 & \207" [vector cl-struct-epg-key-signature] 18 (#$ . 65323)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put epg-make-key-signature side-effect-free t cl-struct-define epg-key-signature nil cl-structure-object ((cl-tag-slot) (validity) (pubkey-algorithm) (key-id) (creation-time) (expiration-time) (user-id) (class) (exportable-p)) cl-struct-epg-key-signature-tags cl-struct-epg-key-signature] 10)
(defalias 'cl--struct-epg-sig-notation-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--struct-epg-sig-notation-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 5) (memq (aref cl-x 0) cl-struct-epg-sig-notation-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cl--struct-epg-sig-notation-p 'compiler-macro 'cl--struct-epg-sig-notation-p--cmacro)
(defalias 'cl--struct-epg-sig-notation-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-epg-sig-notation-tags vectorp 5 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put cl--struct-epg-sig-notation-p side-effect-free error-free put epg-sig-notation cl-deftype-satisfies] 4)
(defalias 'epg-sig-notation-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-sig-notation-name (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-sig-notation-tags)) (signal 'wrong-type-argument (list 'epg-sig-notation cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-sig-notation-name 'compiler-macro 'epg-sig-notation-name--cmacro)
(defalias 'epg-sig-notation-name #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-sig-notation-tags 0 signal wrong-type-argument epg-sig-notation 1] 5 "\n\n(fn CL-X)"])
(function-put 'epg-sig-notation-name 'side-effect-free t)
(defalias 'epg-sig-notation-value--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-sig-notation-value (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-sig-notation-tags)) (signal 'wrong-type-argument (list 'epg-sig-notation cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-sig-notation-value 'compiler-macro 'epg-sig-notation-value--cmacro)
(defalias 'epg-sig-notation-value #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-sig-notation-tags 0 signal wrong-type-argument epg-sig-notation 2] 5 "\n\n(fn CL-X)"])
(function-put 'epg-sig-notation-value 'side-effect-free t)
(defalias 'epg-sig-notation-human-readable--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-sig-notation-human-readable (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-sig-notation-tags)) (signal 'wrong-type-argument (list 'epg-sig-notation cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-sig-notation-human-readable 'compiler-macro 'epg-sig-notation-human-readable--cmacro)
(defalias 'epg-sig-notation-human-readable #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-sig-notation-tags 0 signal wrong-type-argument epg-sig-notation 3] 5 "\n\n(fn CL-X)"])
(function-put 'epg-sig-notation-human-readable 'side-effect-free t)
(defalias 'epg-sig-notation-critical--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-sig-notation-critical (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-sig-notation-tags)) (signal 'wrong-type-argument (list 'epg-sig-notation cl-x))) (aref cl-x 4)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-sig-notation-critical 'compiler-macro 'epg-sig-notation-critical--cmacro)
(defalias 'epg-sig-notation-critical #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-sig-notation-tags 0 signal wrong-type-argument epg-sig-notation 4] 5 "\n\n(fn CL-X)"])
(function-put 'epg-sig-notation-critical 'side-effect-free t)
(defalias 'epg-make-sig-notation--cmacro #[1283 "\300\301\302\303\211\211 & \207" [cl--defsubst-expand (name value human-readable critical) (cl-block epg-make-sig-notation "Constructor for objects of type `epg-sig-notation'." (declare (side-effect-free t)) (vector 'cl-struct-epg-sig-notation name value human-readable critical)) nil] 15 "\n\n(fn CL-WHOLE-ARG NAME VALUE &optional HUMAN-READABLE CRITICAL)"])
(put 'epg-make-sig-notation 'compiler-macro 'epg-make-sig-notation--cmacro)
#@104 Constructor for objects of type `epg-sig-notation'.
(fn NAME VALUE &optional HUMAN-READABLE CRITICAL)
(defalias 'epg-make-sig-notation #[1026 "\300\301%\207" [vector cl-struct-epg-sig-notation] 10 (#$ . 70057)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put epg-make-sig-notation side-effect-free t cl-struct-define epg-sig-notation nil cl-structure-object ((cl-tag-slot) (name) (value) (human-readable) (critical)) cl-struct-epg-sig-notation-tags cl-struct-epg-sig-notation] 10)
(defalias 'cl--struct-epg-import-status-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--struct-epg-import-status-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 8) (memq (aref cl-x 0) cl-struct-epg-import-status-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cl--struct-epg-import-status-p 'compiler-macro 'cl--struct-epg-import-status-p--cmacro)
(defalias 'cl--struct-epg-import-status-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-epg-import-status-tags vectorp 8 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put cl--struct-epg-import-status-p side-effect-free error-free put epg-import-status cl-deftype-satisfies] 4)
(defalias 'epg-import-status-fingerprint--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-status-fingerprint (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-import-status-tags)) (signal 'wrong-type-argument (list 'epg-import-status cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-import-status-fingerprint 'compiler-macro 'epg-import-status-fingerprint--cmacro)
(defalias 'epg-import-status-fingerprint #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-status-tags 0 signal wrong-type-argument epg-import-status 1] 5 "\n\n(fn CL-X)"])
(function-put 'epg-import-status-fingerprint 'side-effect-free t)
(defalias 'epg-import-status-reason--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-status-reason (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-import-status-tags)) (signal 'wrong-type-argument (list 'epg-import-status cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-import-status-reason 'compiler-macro 'epg-import-status-reason--cmacro)
(defalias 'epg-import-status-reason #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-status-tags 0 signal wrong-type-argument epg-import-status 2] 5 "\n\n(fn CL-X)"])
(function-put 'epg-import-status-reason 'side-effect-free t)
(defalias 'epg-import-status-new--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-status-new (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-import-status-tags)) (signal 'wrong-type-argument (list 'epg-import-status cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-import-status-new 'compiler-macro 'epg-import-status-new--cmacro)
(defalias 'epg-import-status-new #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-status-tags 0 signal wrong-type-argument epg-import-status 3] 5 "\n\n(fn CL-X)"])
(function-put 'epg-import-status-new 'side-effect-free t)
(defalias 'epg-import-status-user-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-status-user-id (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-import-status-tags)) (signal 'wrong-type-argument (list 'epg-import-status cl-x))) (aref cl-x 4)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-import-status-user-id 'compiler-macro 'epg-import-status-user-id--cmacro)
(defalias 'epg-import-status-user-id #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-status-tags 0 signal wrong-type-argument epg-import-status 4] 5 "\n\n(fn CL-X)"])
(function-put 'epg-import-status-user-id 'side-effect-free t)
(defalias 'epg-import-status-signature--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-status-signature (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-import-status-tags)) (signal 'wrong-type-argument (list 'epg-import-status cl-x))) (aref cl-x 5)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-import-status-signature 'compiler-macro 'epg-import-status-signature--cmacro)
(defalias 'epg-import-status-signature #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-status-tags 0 signal wrong-type-argument epg-import-status 5] 5 "\n\n(fn CL-X)"])
(function-put 'epg-import-status-signature 'side-effect-free t)
(defalias 'epg-import-status-sub-key--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-status-sub-key (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-import-status-tags)) (signal 'wrong-type-argument (list 'epg-import-status cl-x))) (aref cl-x 6)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-import-status-sub-key 'compiler-macro 'epg-import-status-sub-key--cmacro)
(defalias 'epg-import-status-sub-key #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-status-tags 0 signal wrong-type-argument epg-import-status 6] 5 "\n\n(fn CL-X)"])
(function-put 'epg-import-status-sub-key 'side-effect-free t)
(defalias 'epg-import-status-secret--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-status-secret (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-import-status-tags)) (signal 'wrong-type-argument (list 'epg-import-status cl-x))) (aref cl-x 7)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-import-status-secret 'compiler-macro 'epg-import-status-secret--cmacro)
(defalias 'epg-import-status-secret #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-status-tags 0 signal wrong-type-argument epg-import-status 7] 5 "\n\n(fn CL-X)"])
(function-put 'epg-import-status-secret 'side-effect-free t)
(defalias 'epg-make-import-status--cmacro #[2050 "\300\301\302\303\211\211\f\f\f\f\f\f\f&\f\207" [cl--defsubst-expand (fingerprint reason new user-id signature sub-key secret) (cl-block epg-make-import-status "Constructor for objects of type `epg-import-status'." (declare (side-effect-free t)) (vector 'cl-struct-epg-import-status fingerprint reason new user-id signature sub-key secret)) nil] 21 "\n\n(fn CL-WHOLE-ARG FINGERPRINT &optional REASON NEW USER-ID SIGNATURE SUB-KEY SECRET)"])
(put 'epg-make-import-status 'compiler-macro 'epg-make-import-status--cmacro)
#@126 Constructor for objects of type `epg-import-status'.
(fn FINGERPRINT &optional REASON NEW USER-ID SIGNATURE SUB-KEY SECRET)
(defalias 'epg-make-import-status #[1793 "\300\301&\207" [vector cl-struct-epg-import-status] 16 (#$ . 76895)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put epg-make-import-status side-effect-free t cl-struct-define epg-import-status nil cl-structure-object ((cl-tag-slot) (fingerprint) (reason) (new) (user-id) (signature) (sub-key) (secret)) cl-struct-epg-import-status-tags cl-struct-epg-import-status] 10)
(defalias 'cl--struct-epg-import-result-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--struct-epg-import-result-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 15) (memq (aref cl-x 0) cl-struct-epg-import-result-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'cl--struct-epg-import-result-p 'compiler-macro 'cl--struct-epg-import-result-p--cmacro)
(defalias 'cl--struct-epg-import-result-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-epg-import-result-tags vectorp 15 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put cl--struct-epg-import-result-p side-effect-free error-free put epg-import-result cl-deftype-satisfies] 4)
(defalias 'epg-import-result-considered--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-result-considered (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-import-result-tags)) (signal 'wrong-type-argument (list 'epg-import-result cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-import-result-considered 'compiler-macro 'epg-import-result-considered--cmacro)
(defalias 'epg-import-result-considered #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-result-tags 0 signal wrong-type-argument epg-import-result 1] 5 "\n\n(fn CL-X)"])
(function-put 'epg-import-result-considered 'side-effect-free t)
(defalias 'epg-import-result-no-user-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-result-no-user-id (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-import-result-tags)) (signal 'wrong-type-argument (list 'epg-import-result cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-import-result-no-user-id 'compiler-macro 'epg-import-result-no-user-id--cmacro)
(defalias 'epg-import-result-no-user-id #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-result-tags 0 signal wrong-type-argument epg-import-result 2] 5 "\n\n(fn CL-X)"])
(function-put 'epg-import-result-no-user-id 'side-effect-free t)
(defalias 'epg-import-result-imported--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-result-imported (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-import-result-tags)) (signal 'wrong-type-argument (list 'epg-import-result cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-import-result-imported 'compiler-macro 'epg-import-result-imported--cmacro)
(defalias 'epg-import-result-imported #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-result-tags 0 signal wrong-type-argument epg-import-result 3] 5 "\n\n(fn CL-X)"])
(function-put 'epg-import-result-imported 'side-effect-free t)
(defalias 'epg-import-result-imported-rsa--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-result-imported-rsa (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-import-result-tags)) (signal 'wrong-type-argument (list 'epg-import-result cl-x))) (aref cl-x 4)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-import-result-imported-rsa 'compiler-macro 'epg-import-result-imported-rsa--cmacro)
(defalias 'epg-import-result-imported-rsa #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-result-tags 0 signal wrong-type-argument epg-import-result 4] 5 "\n\n(fn CL-X)"])
(function-put 'epg-import-result-imported-rsa 'side-effect-free t)
(defalias 'epg-import-result-unchanged--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-result-unchanged (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-import-result-tags)) (signal 'wrong-type-argument (list 'epg-import-result cl-x))) (aref cl-x 5)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-import-result-unchanged 'compiler-macro 'epg-import-result-unchanged--cmacro)
(defalias 'epg-import-result-unchanged #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-result-tags 0 signal wrong-type-argument epg-import-result 5] 5 "\n\n(fn CL-X)"])
(function-put 'epg-import-result-unchanged 'side-effect-free t)
(defalias 'epg-import-result-new-user-ids--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-result-new-user-ids (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-import-result-tags)) (signal 'wrong-type-argument (list 'epg-import-result cl-x))) (aref cl-x 6)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-import-result-new-user-ids 'compiler-macro 'epg-import-result-new-user-ids--cmacro)
(defalias 'epg-import-result-new-user-ids #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-result-tags 0 signal wrong-type-argument epg-import-result 6] 5 "\n\n(fn CL-X)"])
(function-put 'epg-import-result-new-user-ids 'side-effect-free t)
(defalias 'epg-import-result-new-sub-keys--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-result-new-sub-keys (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-import-result-tags)) (signal 'wrong-type-argument (list 'epg-import-result cl-x))) (aref cl-x 7)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-import-result-new-sub-keys 'compiler-macro 'epg-import-result-new-sub-keys--cmacro)
(defalias 'epg-import-result-new-sub-keys #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-result-tags 0 signal wrong-type-argument epg-import-result 7] 5 "\n\n(fn CL-X)"])
(function-put 'epg-import-result-new-sub-keys 'side-effect-free t)
(defalias 'epg-import-result-new-signatures--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-result-new-signatures (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-import-result-tags)) (signal 'wrong-type-argument (list 'epg-import-result cl-x))) (aref cl-x 8)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-import-result-new-signatures 'compiler-macro 'epg-import-result-new-signatures--cmacro)
(defalias 'epg-import-result-new-signatures #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-result-tags 0 signal wrong-type-argument epg-import-result 8] 5 "\n\n(fn CL-X)"])
(function-put 'epg-import-result-new-signatures 'side-effect-free t)
(defalias 'epg-import-result-new-revocations--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-result-new-revocations (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-import-result-tags)) (signal 'wrong-type-argument (list 'epg-import-result cl-x))) (aref cl-x 9)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-import-result-new-revocations 'compiler-macro 'epg-import-result-new-revocations--cmacro)
(defalias 'epg-import-result-new-revocations #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-result-tags 0 signal wrong-type-argument epg-import-result 9] 5 "\n\n(fn CL-X)"])
(function-put 'epg-import-result-new-revocations 'side-effect-free t)
(defalias 'epg-import-result-secret-read--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-result-secret-read (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-import-result-tags)) (signal 'wrong-type-argument (list 'epg-import-result cl-x))) (aref cl-x 10)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-import-result-secret-read 'compiler-macro 'epg-import-result-secret-read--cmacro)
(defalias 'epg-import-result-secret-read #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-result-tags 0 signal wrong-type-argument epg-import-result 10] 5 "\n\n(fn CL-X)"])
(function-put 'epg-import-result-secret-read 'side-effect-free t)
(defalias 'epg-import-result-secret-imported--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-result-secret-imported (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-import-result-tags)) (signal 'wrong-type-argument (list 'epg-import-result cl-x))) (aref cl-x 11)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-import-result-secret-imported 'compiler-macro 'epg-import-result-secret-imported--cmacro)
(defalias 'epg-import-result-secret-imported #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-result-tags 0 signal wrong-type-argument epg-import-result 11] 5 "\n\n(fn CL-X)"])
(function-put 'epg-import-result-secret-imported 'side-effect-free t)
(defalias 'epg-import-result-secret-unchanged--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-result-secret-unchanged (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-import-result-tags)) (signal 'wrong-type-argument (list 'epg-import-result cl-x))) (aref cl-x 12)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-import-result-secret-unchanged 'compiler-macro 'epg-import-result-secret-unchanged--cmacro)
(defalias 'epg-import-result-secret-unchanged #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-result-tags 0 signal wrong-type-argument epg-import-result 12] 5 "\n\n(fn CL-X)"])
(function-put 'epg-import-result-secret-unchanged 'side-effect-free t)
(defalias 'epg-import-result-not-imported--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-result-not-imported (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-import-result-tags)) (signal 'wrong-type-argument (list 'epg-import-result cl-x))) (aref cl-x 13)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-import-result-not-imported 'compiler-macro 'epg-import-result-not-imported--cmacro)
(defalias 'epg-import-result-not-imported #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-result-tags 0 signal wrong-type-argument epg-import-result 13] 5 "\n\n(fn CL-X)"])
(function-put 'epg-import-result-not-imported 'side-effect-free t)
(defalias 'epg-import-result-imports--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-result-imports (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-epg-import-result-tags)) (signal 'wrong-type-argument (list 'epg-import-result cl-x))) (aref cl-x 14)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'epg-import-result-imports 'compiler-macro 'epg-import-result-imports--cmacro)
(defalias 'epg-import-result-imports #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-result-tags 0 signal wrong-type-argument epg-import-result 14] 5 "\n\n(fn CL-X)"])
(function-put 'epg-import-result-imports 'side-effect-free t)
(defalias 'epg-make-import-result--cmacro #[3855 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (considered no-user-id imported imported-rsa unchanged new-user-ids new-sub-keys new-signatures new-revocations secret-read secret-imported secret-unchanged not-imported imports) (cl-block epg-make-import-result "Constructor for objects of type `epg-import-result'." (declare (side-effect-free t)) (vector 'cl-struct-epg-import-result considered no-user-id imported imported-rsa unchanged new-user-ids new-sub-keys new-signatures new-revocations secret-read secret-imported secret-unchanged not-imported imports)) nil] 35 "\n\n(fn CL-WHOLE-ARG CONSIDERED NO-USER-ID IMPORTED IMPORTED-RSA UNCHANGED NEW-USER-IDS NEW-SUB-KEYS NEW-SIGNATURES NEW-REVOCATIONS SECRET-READ SECRET-IMPORTED SECRET-UNCHANGED NOT-IMPORTED IMPORTS)"])
(put 'epg-make-import-result 'compiler-macro 'epg-make-import-result--cmacro)
#@237 Constructor for objects of type `epg-import-result'.
(fn CONSIDERED NO-USER-ID IMPORTED IMPORTED-RSA UNCHANGED NEW-USER-IDS NEW-SUB-KEYS NEW-SIGNATURES NEW-REVOCATIONS SECRET-READ SECRET-IMPORTED SECRET-UNCHANGED NOT-IMPORTED IMPORTS)
(defalias 'epg-make-import-result #[3598 "\300\301&\207" [vector cl-struct-epg-import-result] 30 (#$ . 89502)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put epg-make-import-result side-effect-free t cl-struct-define epg-import-result nil cl-structure-object ((cl-tag-slot) (considered) (no-user-id) (imported) (imported-rsa) (unchanged) (new-user-ids) (new-sub-keys) (new-signatures) (new-revocations) (secret-read) (secret-imported) (secret-unchanged) (not-imported) (imports)) cl-struct-epg-import-result-tags cl-struct-epg-import-result] 10)
#@71 Return the result of CONTEXT associated with NAME.
(fn CONTEXT NAME)
(defalias 'epg-context-result-for #[514 "\211\301H>\204 \302\303\304D\"\210\305H\236A\207" [cl-struct-epg-context-tags 0 signal wrong-type-argument epg-context 17] 7 (#$ . 90368)])
#@83 Set the result of CONTEXT associated with NAME to VALUE.
(fn CONTEXT NAME VALUE)
(defalias 'epg-context-set-result-for #[771 "\301H>\204 \302\303\304D\"\210\305H\236\211\203 \211\241\202< \301H>\204/ \302\303\304D\"\210\211\305BBI\262\207" [cl-struct-epg-context-tags 0 signal wrong-type-argument epg-context 17] 10 (#$ . 90630)])
#@63 Convert SIGNATURE to a human readable string.
(fn SIGNATURE)
(defalias 'epg-signature-to-string #[257 "\303\304H>\204 \305\306\307D\"\210\310H \"A\304H>\204% \305\306\307D\"\210\311H\304H>\2047 \305\306\307D\"\210\310H\304H>\204J \305\306\307D\"\210\312H\313=\203V \314\202\337 \304H>\204f \305\306\307D\"\210\312H\315=\203r \316\202\337 \304H>\204\202 \305\306\307D\"\210\312H\317=\203\216 \320\202\337 \304H>\204\236 \305\306\307D\"\210\312H\321=\203\252 \322\202\337 \304H>\204\272 \305\306\307D\"\210\312H\323=\203\306 \324\202\337 \304H>\204\326 \305\306\307D\"\210\312H\325=\205\337 \326\203\366 \327;\203\356 \202\362 \330!P\202\367 \331\304H>\204\305\306\307 D\"\210\332H\203*\333\334\304H>\204\"\305\306\307 D\"\210\332H\"\202+\331\304H>\204<\305\306\307\nD\"\210\335H\203^\336\337 \304H>\204V\305\306\307\fD\"\210 \335H\"\202_\331\203v\340\n\236A\206r\333\341 \"P\202w\331\260\207" [cl-struct-epg-signature-tags epg-user-id-alist epg-pubkey-algorithm-alist assoc 0 signal wrong-type-argument epg-signature 2 7 1 good "Good signature from " bad "Bad signature from " expired "Expired signature from " expired-key "Signature made by expired key " revoked-key "Signature made by revoked key " no-pubkey "No public key for " " " epg-decode-dn "" 3 format " (trust %s)" 5 format-time-string " created at %Y-%m-%dT%T%z" " using " "(unknown algorithm %d)"] 14 (#$ . 90988)])
#@71 Convert VERIFY-RESULT to a human readable string.
(fn VERIFY-RESULT)
(defalias 'epg-verify-result-to-string #[257 "\300\301\302#\207" [mapconcat epg-signature-to-string "\n"] 5 (#$ . 92462)])
#@71 Convert NEW-SIGNATURE to a human readable string.
(fn NEW-SIGNATURE)
(defalias 'epg-new-signature-to-string #[257 "\211\303H>\204 \304\305\306D\"\210\211\307H\310=\203 \311\2027 \211\303H>\204* \304\305\306D\"\210\211\307H\312=\2036 \313\2027 \314\303H>\204F \304\305\306D\"\210\315H \236A\316\303H>\204] \304\305\306D\"\210\317H\n\236A\320\321\322\303H>\204w \304\305\306\nD\"\210\323H\"\303H>\204\215 \304\305\306 D\"\210\324H\260\207" [cl-struct-epg-new-signature-tags epg-pubkey-algorithm-alist epg-digest-algorithm-alist 0 signal wrong-type-argument epg-new-signature 1 detached "Detached signature " clear "Cleartext signature " "Signature " 2 "/" 3 " " format "%02X " 4 6] 12 (#$ . 92662)])
#@71 Convert IMPORT-RESULT to a human readable string.
(fn IMPORT-RESULT)
(defalias 'epg-import-result-to-string #[257 "\301\302\303H>\204 \304\305\306D\"\210\307H\"\303H>\204$ \304\305\306D\"\210\310H\303V\205B \301\311\303H>\204> \304\305\306D\"\210\310H\"\303H>\204Q \304\305\306D\"\210\312H\303V\205o \301\313\303H>\204k \304\305\306D\"\210\312H\"\303H>\204 \304\305\306D\"\210\314H\303V\205\317 \301\315\303H>\204\231 \304\305\306D\"\210\314H\"\303H>\204\255 \304\305\306D\"\210\316H\303V\205\315 \301\317\303H>\204\310 \304\305\306 D\"\210\316H\"\320Q\303H>\204\337 \304\305\306D\"\210\321H\303V\205\377 \301\322\303H>\204\372 \304\305\306 D\"\210\321H\"\303H>\204\304\305\306D\"\210\323H\303V\205/\301\324\303H>\204*\304\305\306\nD\"\210\323H\"\303H>\204@\304\305\306 D\"\210\325H\303V\205a\301\326\303H>\204\\\304\305\306 D\"\210\325H\"\303H>\204r\304\305\306\nD\"\210\327H\303V\205\223\301\330 \303H>\204\216\304\305\306\fD\"\210 \327H\"\303H>\204\244\304\305\306 D\"\210\331H\303V\205\305\301\332\n\303H>\204\300\304\305\306
D\"\210\n\331H\" \303H>\204\326\304\305\306\fD\"\210 \333H\303V\205\367\301\334 \303H>\204\362\304\305\306D\"\210 \333H\"\n\303H>\204\304\305\306
D\"\210\n\335H\303V\205)\301\336\f\303H>\204$\304\305\306D\"\210\f\335H\" \303H>\204:\304\305\306D\"\210 \337H\303V\205[\301\340
\303H>\204V\304\305\306D\"\210
\337H\"\260\f\207" [cl-struct-epg-import-result-tags format "Total number processed: %d\n" 0 signal wrong-type-argument epg-import-result 1 13 " skipped new keys: %d\n" 2 " w/o user IDs: %d\n" 3 " imported: %d" 4 " (RSA: %d)" "\n" 5 " unchanged: %d\n" 6 " new user IDs: %d\n" 7 " new subkeys: %d\n" 8 " new signatures: %d\n" 9 " new key revocations: %d\n" 10 " secret keys read: %d\n" 11 " secret keys imported: %d\n" 12 " secret keys unchanged: %d\n"] 18 (#$ . 93395)])
(defalias 'epg-error-to-string #[257 "\211@\304=\203 \305\207\211@\306=\203 \307\207\211@\310=\203, \211A\236\211\203* \311\312A\227\"\202+ \313\207\211@\314=\203F \211A \236\211\203D \311\315A\227\"\202E \316\207\211@\317=\203O \320\207\211@\321>\203\234 \211@\322=\203a \323\202b \324\325A\236\211\203r \311\326A\"\202s \327\262\330A\236\211\203\227 \211A\331V\203\227 \211A\n\236\211\262\203\227 \311\332A\227\"\202\230 \333\262Q\207\211@\334=\203\251 \311\335A\"\207\211@\336=\203\266 \311\337A\"\207\211@\340=\203\277 \341\207\211@\342=\203\310 \343\207\211@\344=\203\342 \211A \236\211\203\340 \311\345A\227\"\202\341 \346\207\211@\347=\205\352 \350\207" [epg-no-data-reason-alist epg-unexpected-reason-alist epg-invalid-recipients-reason-alist epg-delete-problem-reason-alist exit "Exit" quit "Canceled" no-data format "No data (%s)" "No data" unexpected "Unexpected (%s)" "Unexpected" bad-armor "Bad armor" (invalid-recipient invalid-signer) invalid-recipient "Unusable public key" "Unusable secret key" requested ": %s" ": <unknown>" reason 0 " (%s)" "" no-pubkey "No public key: %s" no-seckey "No secret key: %s" no-recipients "No recipients" no-signers "No signers" delete-problem "Delete problem (%s)" "Delete problem" key-not-created "Key not created"] 7 "\n\n(fn ERROR)"])
(defalias 'epg-errors-to-string #[257 "\300\301\302#\207" [mapconcat epg-error-to-string "; "] 5 "\n\n(fn ERRORS)"])
#@77 Start `epg-gpg-program' in a subprocess with given ARGS.
(fn CONTEXT ARGS)
(defalias 'epg--start #[514 "\306H>\204 \307\310\311D\"\210\312H\203E \313\306H>\204% \307\310\311D\"\210\312H!\314=\203E \315\316\306H>\204@ \307\310\311D\"\210\317H\"\210\320\321!\322\323\324\325\326F\306H>\204^ \307\310\311D\"\210\327H\330=?\205s \331\332\206n \333\"\205s \334\306H>\204\203 \307\310\311D\"\210\327H\330=?\205\243 \306H>\204\234 \307\310\311D\"\210\335H\205\243 \336\306H>\204\264 \307\310\311 D\"\210\337H\205\322 \340\306H>\204\315 \307\310\311\nD\"\210\337HD\306H>\204\343 \307\310\311\nD\"\210\327H\330=?\205\356 \341\306H>\204\377 \307\310\311 D\"\210\342H\205\343 \306H>\204\307\310\311\fD\"\210 \344H\205 \345\n\306H>\2041\307\310\311
D\"\210\n\346H\205O\347 \306H>\204J\307\310\311D\"\210 \346HD \306H>\204`\307\310\311D\"\210 \350H\205\200\351\352
\306H>\204z\307\310\311D\"\210
\350H!D &\n \353\354!\355\211\211\211\356\n\357>\204\311\353\360!r\211q\210\361\306\362\363\364!\365\"\317$\216\3661\302\367\370\371\372#\306U\205\276\373\374!\210\375 \211\2620\202\306\210\202\307\210*\210\203\325\376P\377 BB\201H \201I !\203(\201J !\203(\353\360!r\211q\210\361\306\362\363\364!\201K \"\317$\216\367 \355\372\355\201L \201M &\306U\205eb\210\201N \201O \355\372#*\262\203(\201I \201P !\210\201Q \201R \f\" B\203Z\331\201S \"\203Z\201T \327 \"\262\344\201U !8\206X\201V \262
\203\262\212@\204k\353\201W !@@q\210db\210\203\203\201Q \201X \"\202\206\201Y \201Q \201Z \f\306H>\204\235\307\310\311D\"\210\f\317H\201[ \201\\ \f\201] ##\261\210)rq\210\201H \201^ !\203\306\201^ \355!\210\201_ \201A !\210\355A\201_ \201B !\210eB\201_ \201C !\210\355C\201_ \201D !\210\355D\201_ \201E !\210\355E\201_ \311!\210 \201_ \201F !\210F\201_ \201G !\210\211G)\201` \201a \201b \201c \353\201d !\201e \201f \201g \372&\262 \306H>\204N\307\310\311\fD\"\210 \211\201h \201i !I\266\201j \361\306\201k \363\364!\201l \"\317$\216\201m \201n !\210\201o \201a \201p \201c \n\201q \306H>\204\233\307\310\311D\"\210\317HB\201r \201s \201t \201u \201v \201w \201x \201g \372&\262)\210 \306H>\204\324\307\310\311\fD\"\210 \211\312I\262)\207" [cl-struct-epg-context-tags process-environment system-type epg-gpgconf-program emacs-version epg-debug 0 signal wrong-type-argument epg-context 15 process-status run error "%s is already running in this context" 2 getenv "GPG_AGENT_INFO" append "--no-tty" "--status-fd" "1" "--yes" 1 CMS string-match ":" "" ("--use-agent") 11 ("--enable-progress-filter") 3 "--homedir" ("--command-fd" "0") 4 ("--armor") 5 ("--textmode") 16 "--output" 19 "--pinentry-mode" symbol-name generate-new-buffer " *epg*" nil (0 0 0 0) (ms-dos windows-nt) " *temp*" make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] (file-error) call-process "tty" "/dev/fd/0" t delete-char -1 buffer-string "GPG_TTY=" "TERM=xterm" epg-debug-buffer epg-last-status epg-read-point epg-process-filter-running epg-pending-status-list epg-key-id epg-agent-file epg-agent-mtime fboundp pinentry-start executable-find [buffer-name kill-buffer] "--list-options" "gpg-agent" re-search-forward "^allow-emacs-pinentry:\\(?:.*:\\)\\{8\\}1" quiet format "INSIDE_EMACS=%s,epg" "\\(.*\\):[0-9]+:[0-9]+" match-string file-attributes (0 0 0 0) " *epg-debug*" "GPG_AGENT_INFO=%s\n" "GPG_AGENT_INFO is not set\n" "%s %s\n" mapconcat identity " " set-buffer-multibyte make-local-variable make-pipe-process :name "epg-error" :buffer " *epg-error*" :sentinel ignore :noquery 21 process-buffer default-file-modes "\301\300!\207" [set-default-file-modes] set-default-file-modes 448 make-process "epg" :command :connection-type pipe :coding (binary . binary) :filter epg--process-filter :stderr] 28 (#$ . 96853)])
(defalias 'epg--process-filter #[514 "\203 r \206 \306\307!\211q\210db\210\211c\210)\310\311!!\205\303 r\311!q\210\212db\210\211c\210\n?\205\302 \312 b\210\313 \210\314\315!\205\301 \314\316!\203\271 \317\320!\317\321!\322\f\235\203T \322
\323H >\204d \324\325\305
D\"\210
\326H\327=\203\234
\323H >\204| \324\325\305
D\"\210
\330H@
\323H >\204\223 \324\325\305
D\"\210
\330HA$\210\202\262 \331\332P!\262\211\203\262 \333!\203\262 \211
\"\210B \266\322y\210`\2029 )*\207" [epg-debug epg-debug-buffer epg-process-filter-running epg-read-point epg-pending-status-list epg-context generate-new-buffer " *epg-debug*" buffer-live-p process-buffer t beginning-of-line looking-at ".*\n" "\\[GNUPG:] \\([A-Z_]+\\) ?\\(.*\\)" match-string 1 2 nil 0 signal wrong-type-argument 18 edit-key 12 intern-soft "epg--status-" fboundp cl-struct-epg-context-tags epg-last-status] 13 "\n\n(fn PROCESS INPUT)"])
#@80 Read the output file CONTEXT and return the content as a string.
(fn CONTEXT)
(defalias 'epg-read-output #[257 "\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313\314!\203 \314\315!\210\316\305H>\204- \317\320\321D\"\210\322H!\205N \323\324\305H>\204F \317\320\321D\"\210\322H!\210\325 )*\207" [cl-struct-epg-context-tags coding-system-for-read generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 fboundp set-buffer-multibyte nil file-exists-p signal wrong-type-argument epg-context 16 binary insert-file-contents buffer-string] 8 (#$ . 101667)])
#@78 Wait until one of elements in STATUS-LIST arrives.
(fn CONTEXT STATUS-LIST)
(defalias 'epg-wait-for-status #[514 "r\302\303H>\204 \304\305\306D\"\210\307H!q\210\211\310\303H>\204) \304\305\306D\"\210\307H!\311=\203O \203O \312\303H>\204F \304\305\306D\"\210\307H\313\"\210\202 \205^ \314\315\316\317\315\"B#)\207" [cl-struct-epg-context-tags epg-pending-status-list process-buffer 0 signal wrong-type-argument epg-context 15 process-status run accept-process-output 1 epg-context-set-result-for error (exit) epg-context-result-for] 9 (#$ . 102310)])
#@67 Wait until the `epg-gpg-program' process completes.
(fn CONTEXT)
(defalias 'epg-wait-for-completion #[257 "\303\304H>\204 \305\306\307D\"\210\310H!\311=\2032 \312\304H>\204) \305\306\307D\"\210\310H\313\"\210\202 \314\315!\210r\316\304H>\204G \305\306\307D\"\210\310H!q\210 \205` \317\320\321 !8\206[ \322!\317\n!V)\203g \323 \210\324\325\326\325\"\237#\210\211\304H>\204\200 \305\306\307D\"\210\211\211\327r\304H>\204\224 \305\306\307D\"\210\330Hq\210\331 )I\207" [cl-struct-epg-context-tags epg-agent-file epg-agent-mtime process-status 0 signal wrong-type-argument epg-context 15 run accept-process-output 1 sleep-for 0.1 process-buffer float-time 5 file-attributes (0 0 0 0) redraw-frame epg-context-set-result-for error epg-context-result-for 20 21 buffer-string] 8 (#$ . 102887)])
#@34 Reset the CONTEXT.
(fn CONTEXT)
(defalias 'epg-reset #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\203E \306\307\301H>\204& \302\303\304D\"\210\305H!!\203E \310\307\301H>\204? \302\303\304D\"\210\305H!!\210\306\301H>\204U \302\303\304D\"\210\311H!\203q \310\301H>\204l \302\303\304D\"\210\311H!\210\211\301H>\204\200 \302\303\304D\"\210\211\211\305\312I\266\211\301H>\204\226 \302\303\304D\"\210\211\211\313\312I\207" [cl-struct-epg-context-tags 0 signal wrong-type-argument epg-context 15 buffer-live-p process-buffer kill-buffer 21 nil 12] 7 (#$ . 103704)])
#@50 Delete the output file of CONTEXT.
(fn CONTEXT)
(defalias 'epg-delete-output-file #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\205@ \306\301H>\204% \302\303\304D\"\210\305H!\205@ \307\301H>\204< \302\303\304D\"\210\305H!\207" [cl-struct-epg-context-tags 0 signal wrong-type-argument epg-context 16 file-exists-p delete-file] 6 (#$ . 104300)])
(byte-code "\300\301!\203 \302\303\301\"\210\202 \302\303\304\"\210\300\207" [fboundp decode-coding-string defalias epg--decode-coding-string identity] 3)
(defalias 'epg--status-USERID_HINT #[514 "\301\302\"\205< \303\304\"\303\305\"\306\"\3071$ \310\311!\312\"\211\2620\202( \210\202) \210\211\2033 \211\241\202: BB\211\266\203\207" [epg-user-id-alist string-match "\\`\\([^ ]+\\) \\(.*\\)" match-string 1 2 assoc (error) epg--decode-coding-string epg--decode-percent-escape utf-8] 8 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-NEED_PASSPHRASE #[514 "\301\302\"\205
\303\304\"\211\207" [epg-key-id string-match "\\`\\([^ ]+\\)" match-string 1] 5 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-NEED_PASSPHRASE_SYM #[514 "\301\211\207" [epg-key-id SYM] 4 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-NEED_PASSPHRASE_PIN #[514 "\301\211\207" [epg-key-id PIN] 4 "\n\n(fn CONTEXT STRING)"])
(byte-code "\300\301!\203 \302\303\301\"\210\202 \302\303\304\"\210\300\305!\203! \302\306\305\"\210\202& \302\306\307\"\210\300\207" [fboundp clear-string defalias epg--clear-string #[257 "\300\301\"\207" [fillarray 0] 4 "\n\n(fn STRING)"] encode-coding-string epg--encode-coding-string identity] 3)
(defalias 'epg--status-GET_HIDDEN #[514 "\205\363 \304\305\"\205\363 \306H >\204 \307\310\311D\"\210\312H\204$ \313\314!\210\315\211C\315C\315C\316\306\317\320\321#\322\"\323$\216\3241\313 \306H >\204T \307\310\311 D\"\210\312H@ \306H >\204m \307\310\311\fD\"\210 \312HA#\240\210\242\205\307 \242\325P\240\210\326\242!\210\315\240\210 \203\245 \211\327\242\330 \331\"\"\240\210\326\242!\210\315\240\210\202\256 \211\242\240\210\315\240\210\332\306H >\204\300 \307\310\311 D\"\210\333H\242\"0\202\360 \210\334\313\335\336\n\313\"B#\210\337\306H >\204\353 \307\310\311 D\"\210\333H!*\266\204\207" [epg-key-id cl-struct-epg-context-tags inhibit-quit epg-passphrase-coding-system string-match "\\`passphrase\\." 0 signal wrong-type-argument epg-context 10 error "passphrase-callback not set" nil make-byte-code "\300\242\203\n \303\300\242!\210\301\242\203 \303\301\242!\210\302\242\205 \303\302\242!\207" vconcat vector [epg--clear-string] 2 (quit) "\n" epg--clear-string epg--encode-coding-string coding-system-change-eol-conversion unix process-send-string 15 epg-context-set-result-for (quit) epg-context-result-for delete-process] 14 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--prompt-GET_BOOL #[514 "\301\"\302\203 A\202 \303P!\207" [epg-prompt-alist assoc y-or-n-p "? "] 6 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--prompt-GET_BOOL-untrusted_key\.override #[514 "\302@\303\232\2030 \304\305A\"\2030 \306\307A\"\306\310A\"\311 \"\211\203& \211A\262\312\313#\266\203\2021 \314!\207" [epg-last-status epg-user-id-alist y-or-n-p "USERID_HINT" string-match "\\`\\([^ ]+\\) \\(.*\\)" match-string 1 2 assoc format "Untrusted key %s %s. Use anyway? " "Use untrusted key anyway? "] 10 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-GET_BOOL #[514 "\302\3031F \304\305P!\206 \306\"\203- \307\310H >\204% \311\312\313D\"\210\314H\315\"\202B \307\310H >\204= \311\312\313D\"\210\314H\316\"0\202g \210\317\320\321\322\320\"B#\210\323\310H >\204c \311\312\313D\"\210\314H!)\207" [inhibit-quit cl-struct-epg-context-tags nil (quit) intern-soft "epg--prompt-GET_BOOL-" epg--prompt-GET_BOOL process-send-string 0 signal wrong-type-argument epg-context 15 "y\n" "n\n" epg-context-set-result-for error (quit) epg-context-result-for delete-process] 9 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-GET_LINE #[514 "\303\"\304\30513 \306\307H\n>\204 \310\311\312D\"\210\313H\314\203( A\202+ \315P!\316P\"0\202U \210\317\320\321\322\320\"B#\210\323\307H\n>\204Q \310\311\312D\"\210\313H!)\207" [epg-prompt-alist inhibit-quit cl-struct-epg-context-tags assoc nil (quit) process-send-string 0 signal wrong-type-argument epg-context 15 read-string ": " "\n" epg-context-set-result-for error (quit) epg-context-result-for delete-process] 10 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-*SIG #[771 "\302\303\"\203y \304\305\"\304\306\"\307\"\310\311\312\313 \314\211\211\211\211\211\211\211\211&\f\315\n\311\"B#\210\3161b \317H >\204D \320\321\322D\"\210\305H\323=\203U \324!\211\262\202^ \325\326!\327\"\211\2620\202f \210\202g \210\211\203q \211\241\202x BB\211\207\310\311\312\313\314\211\211\211\211\211\211\211\211\211&\f\315\311\"B#\207" [epg-user-id-alist cl-struct-epg-context-tags string-match "\\`\\([^ ]+\\) \\(.*\\)" match-string 1 2 assoc epg-context-set-result-for verify vector cl-struct-epg-signature nil epg-context-result-for (error) 0 signal wrong-type-argument epg-context CMS epg-dn-from-string epg--decode-coding-string epg--decode-percent-escape utf-8] 22 "\n\n(fn CONTEXT STATUS STRING)"])
(defalias 'epg--status-GOODSIG #[514 "\300\301#\207" [epg--status-*SIG good] 6 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-EXPSIG #[514 "\300\301#\207" [epg--status-*SIG expired] 6 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-EXPKEYSIG #[514 "\300\301#\207" [epg--status-*SIG expired-key] 6 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-REVKEYSIG #[514 "\300\301#\207" [epg--status-*SIG revoked-key] 6 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-BADSIG #[514 "\300\301#\207" [epg--status-*SIG bad] 6 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-NO_PUBKEY #[514 "\302H>\204 \303\304\305D\"\210\306H\307=\203e \310\307\"@\211\205d \211\302H >\204/ \303\304\311D\"\210\211\312H\313=\205d \211\302H >\204F \303\304\311D\"\210\211\314H\232\205d \211\302H >\204] \303\304\311D\"\210\211\211\312\315I\262\207\316\313\315B\310\313\"B#\207" [cl-struct-epg-context-tags cl-struct-epg-signature-tags 0 signal wrong-type-argument epg-context 18 verify epg-context-result-for epg-signature 1 error 2 no-pubkey epg-context-set-result-for] 9 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-NO_SECKEY #[514 "\300\301\302B\303\301\"B#\207" [epg-context-set-result-for error no-seckey epg-context-result-for] 9 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--time-from-seconds #[257 "\300\301P!\302\303\245!\302\304\303\"!B\207" [string-to-number ".0" floor 65536 mod] 7 "\n\n(fn SECONDS)"])
(defalias 'epg--status-ERRSIG #[514 "\301\302\"\205\257 \303\304\305\306\211\211\211\211\211\211\211\211\211&\f\307\310\311\310\"B#\210\211\312H>\2041 \313\314\315D\"\210\211\211\316\317\320\"I\266\211\312H>\204K \313\314\315D\"\210\211\211\321\322\317\316\"!I\266\211\312H>\204g \313\314\315D\"\210\211\211\323\322\317\324\"!I\266\211\312H>\204\203 \313\314\315D\"\210\211\211\325\322\317\326\"\327\"I\266\211\312H>\204\240 \313\314\315D\"\210\211\211\330\331\317\330\"!I\262\262\207" [cl-struct-epg-signature-tags string-match "\\`\\([^ ]+\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9A-Fa-f][0-9A-Fa-f]\\) \\([^ ]+\\) \\([0-9]+\\)" vector cl-struct-epg-signature error nil epg-context-set-result-for verify epg-context-result-for 0 signal wrong-type-argument epg-signature 2 match-string 1 7 string-to-number 8 3 9 4 16 5 epg--time-from-seconds] 15 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-VALIDSIG #[514 "\301\302\"@\211\205\363 \211\303H>\204 \304\305\306D\"\210\211\307H\310=\205\363 \311\312\"\205\363 \211\303H>\2046 \304\305\306D\"\210\211\211\313\314\307\"I\266\211\303H>\204P \304\305\306D\"\210\211\211\315\316\314\317\"!I\266\314\320\"\321\232\204\202 \211\303H>\204u \304\305\306D\"\210\211\211\322\316\314\320\"!I\266\211\303H>\204\221 \304\305\306D\"\210\211\211\323\324\314\313\"!I\266\211\303H>\204\255 \304\305\306D\"\210\211\211\325\324\314\315\"!I\266\211\303H>\204\311 \304\305\306D\"\210\211\211\326\324\314\322\"!I\266\211\303H>\204\345 \304\305\306D\"\210\211\211\327\324\314\325\"\330\"I\262\207" [cl-struct-epg-signature-tags epg-context-result-for verify 0 signal wrong-type-argument epg-signature 1 good string-match "\\`\\([^ ]+\\) [^ ]+ \\([^ ]+\\) \\([^ ]+\\) \\([0-9]+\\) [^ ]+ \\([0-9]+\\) \\([0-9]+\\) \\([0-9A-Fa-f][0-9A-Fa-f]\\) \\(.*\\)" 4 match-string 5 epg--time-from-seconds 2 3 "0" 6 10 string-to-number 7 8 9 16] 10 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-TRUST_UNDEFINED #[514 "\301\302\"@\211\2056 \211\303H>\204 \304\305\306D\"\210\211\307H\310=\2056 \211\303H>\204/ \304\305\306D\"\210\211\211\311\312I\262\207" [cl-struct-epg-signature-tags epg-context-result-for verify 0 signal wrong-type-argument epg-signature 1 good 3 undefined] 7 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-TRUST_NEVER #[514 "\301\302\"@\211\2056 \211\303H>\204 \304\305\306D\"\210\211\307H\310=\2056 \211\303H>\204/ \304\305\306D\"\210\211\211\311\312I\262\207" [cl-struct-epg-signature-tags epg-context-result-for verify 0 signal wrong-type-argument epg-signature 1 good 3 never] 7 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-TRUST_MARGINAL #[514 "\301\302\"@\211\2056 \211\303H>\204 \304\305\306D\"\210\211\307H\310=\2056 \211\303H>\204/ \304\305\306D\"\210\211\211\311\310I\262\207" [cl-struct-epg-signature-tags epg-context-result-for verify 0 signal wrong-type-argument epg-signature 1 marginal 3] 7 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-TRUST_FULLY #[514 "\301\302\"@\211\2056 \211\303H>\204 \304\305\306D\"\210\211\307H\310=\2056 \211\303H>\204/ \304\305\306D\"\210\211\211\311\312I\262\207" [cl-struct-epg-signature-tags epg-context-result-for verify 0 signal wrong-type-argument epg-signature 1 good 3 full] 7 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-TRUST_ULTIMATE #[514 "\301\302\"@\211\2056 \211\303H>\204 \304\305\306D\"\210\211\307H\310=\2056 \211\303H>\204/ \304\305\306D\"\210\211\211\311\312I\262\207" [cl-struct-epg-signature-tags epg-context-result-for verify 0 signal wrong-type-argument epg-signature 1 good 3 ultimate] 7 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-NOTATION_NAME #[514 "\301\302\"@\211\205, \303\304\305\306\305%\307H>\204 \310\311\312D\"\210\211\313\313HBI\262\262\207" [cl-struct-epg-signature-tags epg-context-result-for verify vector cl-struct-epg-sig-notation nil t 0 signal wrong-type-argument epg-signature 11] 10 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-NOTATION_DATA #[514 "\302\303\"@\304\2059 \305H>\204 \306\307\310D\"\210\311H@\211\262\2059 \211\305H >\2042 \306\307\312D\"\210\211\211\313I\262\207" [cl-struct-epg-signature-tags cl-struct-epg-sig-notation-tags epg-context-result-for verify nil 0 signal wrong-type-argument epg-signature 11 epg-sig-notation 2] 8 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-POLICY_URL #[514 "\301\302\"@\211\205, \303\304\305\306\305%\307H>\204 \310\311\312D\"\210\211\313\313HBI\262\262\207" [cl-struct-epg-signature-tags epg-context-result-for verify vector cl-struct-epg-sig-notation nil t 0 signal wrong-type-argument epg-signature 11] 10 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-PROGRESS #[514 "\301H>\204 \302\303\304D\"\210\305H\205^ \306\307\"\205^ \301H>\204+ \302\303\304D\"\210\305H@\310\311\"\310\312\"\313\310\314\"!\313\310\315\"!\301H>\204W \302\303\304\nD\"\210\305HA&\207" [cl-struct-epg-context-tags 0 signal wrong-type-argument epg-context 11 string-match "\\`\\([^ ]+\\) \\([^ ]\\) \\([0-9]+\\) \\([0-9]+\\)" match-string 1 2 string-to-number 3 4] 12 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-ENC_TO #[514 "\300\301\"\205$ \302\303\304\305\"\306\304\307\"!\306\304\310\"!E\311\303\"B#\207" [string-match "\\`\\([0-9A-Za-z]+\\) \\([0-9]+\\) \\([0-9]+\\)" epg-context-set-result-for encrypted-to match-string 1 string-to-number 2 3 epg-context-result-for] 11 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-DECRYPTION_FAILED #[514 "\300\301\302#\207" [epg-context-set-result-for decryption-failed t] 6 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-DECRYPTION_OKAY #[514 "\300\301\302#\207" [epg-context-set-result-for decryption-okay t] 6 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-NODATA #[514 "\300\301\302\303!B\304\301\"B#\207" [epg-context-set-result-for error no-data string-to-number epg-context-result-for] 9 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-UNEXPECTED #[514 "\300\301\302\303!B\304\301\"B#\207" [epg-context-set-result-for error unexpected string-to-number epg-context-result-for] 9 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-KEYEXPIRED #[514 "\300\301\302\303\304!BD\305\301\"B#\207" [epg-context-set-result-for key key-expired expiration-time epg--time-from-seconds epg-context-result-for] 9 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-KEYREVOKED #[514 "\300\301\302\303\301\"B#\207" [epg-context-set-result-for key (key-revoked) epg-context-result-for] 9 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-BADARMOR #[514 "\300\301\302\303\301\"B#\207" [epg-context-set-result-for error (bad-armor) epg-context-result-for] 9 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-INV_RECP #[514 "\300\301\"\205# \302\303\304\305\306\307\310\"!B\311\307\312\"BE\313\303\"B#\207" [string-match "\\`\\([0-9]+\\) \\(.*\\)" epg-context-set-result-for error invalid-recipient reason string-to-number match-string 1 requested 2 epg-context-result-for] 11 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-INV_SGNR #[514 "\300\301\"\205# \302\303\304\305\306\307\310\"!B\311\307\312\"BE\313\303\"B#\207" [string-match "\\`\\([0-9]+\\) \\(.*\\)" epg-context-set-result-for error invalid-signer reason string-to-number match-string 1 requested 2 epg-context-result-for] 11 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-NO_RECP #[514 "\300\301\302\303\301\"B#\207" [epg-context-set-result-for error (no-recipients) epg-context-result-for] 9 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-NO_SGNR #[514 "\300\301\302\303\301\"B#\207" [epg-context-set-result-for error (no-signers) epg-context-result-for] 9 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-DELETE_PROBLEM #[514 "\300\301\"\205 \302\303\304\305\306\307\"!B\310\303\"B#\207" [string-match "\\`\\([0-9]+\\)" epg-context-set-result-for error delete-problem string-to-number match-string 1 epg-context-result-for] 10 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-SIG_CREATED #[514 "\301\302\"\205O \303\304\305\306\"\307H\236A\310\305\311\"!\310\305\312\"!\310\305\313 \"\314\"\315\305\316\n\"!\307\225\317O\320\321&\266\206\322\304\"B#\207" [epg-new-signature-type-alist string-match "\\`\\([DCS]\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9A-Fa-F][0-9A-Fa-F]\\) \\(.*\\) " epg-context-set-result-for sign match-string 1 0 string-to-number 2 3 4 16 epg--time-from-seconds 5 nil vector cl-struct-epg-new-signature epg-context-result-for] 19 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-KEY_CREATED #[514 "\300\301\"\205\" \302\303\304\305\306\307\"!B\310\306\311\"BD\312\303\"B#\207" [string-match "\\`\\([BPS]\\) \\([^ ]+\\)" epg-context-set-result-for generate-key type string-to-char match-string 1 fingerprint 2 epg-context-result-for] 10 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-KEY_NOT_CREATED #[514 "\300\301\302\303\301\"B#\207" [epg-context-set-result-for error (key-not-created) epg-context-result-for] 9 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-IMPORTED #[514 "\301\302\"\205< \303\304\"\303\305\"\306\"\3071$ \310\311!\312\"\211\2620\202( \210\202) \210\211\2033 \211\241\202: BB\211\266\203\207" [epg-user-id-alist string-match "\\`\\([^ ]+\\) \\(.*\\)" match-string 1 2 assoc (error) epg--decode-coding-string epg--decode-percent-escape utf-8] 8 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-IMPORT_OK #[514 "\300\301\"\205] \302\303\304\"!\305\306\307\224\205 \303\310\"\311\304\"\312U?\311\307\"\312U?\311\313\"\312U?\311\314\"\312U?\311 \315\"\312U?\316\317\320&\266\206\321\306\"B#\262\207" [string-match "\\`\\([0-9]+\\)\\( \\(.+\\)\\)?" string-to-number match-string 1 epg-context-set-result-for import-status 2 3 logand 0 4 8 16 vector cl-struct-epg-import-status nil epg-context-result-for] 21 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-IMPORT_PROBLEM #[514 "\300\301\"\205. \302\303\304\224\205 \305\306\"\307\305\310\"!\311\312\313\211\211\211\211&\266\202\314\303\"B#\207" [string-match "\\`\\([0-9]+\\)\\( \\(.+\\)\\)?" epg-context-set-result-for import-status 2 match-string 3 string-to-number 1 vector cl-struct-epg-import-status nil epg-context-result-for] 16 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg--status-IMPORT_RES #[514 "\300\301\"\205\223 \302\303\304\305\306\"!\304\305\307\"!\304\305\310\"!\304\305\311 \"!\304\305\312\n\"!\304\305\313 \"!\304\305\314\f\"!\304\305\315
\"!\304\305\316\"!\304\305\317\"!\304\305\320\"!\304\305\321\"!\304\305\322\"!\323\324\"\325\326&\266\216#\210\302\324\327#\207" [string-match "\\`\\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\)" epg-context-set-result-for import string-to-number match-string 1 2 3 4 5 6 7 8 9 10 11 12 13 epg-context-result-for import-status vector cl-struct-epg-import-result nil] 35 "\n\n(fn CONTEXT STRING)"])
(defalias 'epg-passphrase-callback-function #[771 "\302=\203 \303\304\305H>\204 \306\307\310D\"\210\311H\312=\"\207\303\313=\203* \314\202A \315 \"\211\203; \316\317A#\202? \316\320\"\262!\207" [cl-struct-epg-context-tags epg-user-id-alist SYM read-passwd "Passphrase for symmetric encryption: " 0 signal wrong-type-argument epg-context 18 encrypt PIN "Passphrase for PIN: " assoc format "Passphrase for %s %s: " "Passphrase for %s: "] 9 "\n\n(fn CONTEXT KEY-ID HANDBACK)"])
(make-obsolete 'epg-passphrase-callback-function 'epa-passphrase-callback-function "23.1")
(defalias 'epg--list-keys-1 #[771 "\302\303H>\204 \304\305\306D\"\210\307H\205, \310\303H>\204( \304\305\306D\"\210\307HD\311\303H>\204= \304\305\306D\"\210\312H\313=?\205G \314#\315>\203R \316\202] \317>\203\\ \320\202] \321\322\323\211\211\211\203\215 <\204t C\262 \203\226 \302 @D\"\262A\262 \202t \302C\"\262\324\325!r\211q\210\326\303\327\330\331!\332\"\333$\216\334\335\f\303H>\204\274 \304\305\306D\"\210\f\333H\323\336\323D\323
&\210eb\210\337\340\323\336#\203\341\342\323\"B\262\343\303!\262\303\262\303\262@GW\203\315 \344\345#=\203\315 \303\225\262@\343\312\"I\210T\262\202\350 \237*\262)\207" [cl-struct-epg-context-tags coding-system-for-read append 0 signal wrong-type-argument epg-context 3 "--homedir" ("--with-colons" "--no-greeting" "--batch" "--with-fingerprint" "--with-fingerprint") 1 CMS ("--fixed-list-mode") (t secret) "--list-secret-keys" (nil public) "--list-keys" "--list-sigs" binary nil generate-new-buffer " *temp*" make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 apply call-process t re-search-forward "^[a-z][a-z][a-z]:.*" make-vector 15 match-string string-match "\\([^:]+\\)?:"] 18 "\n\n(fn CONTEXT NAME MODE)"])
(defalias 'epg--make-sub-key-1 #[257 "\211\301H\205 \302\301H!\236A\303\304\305\306\307H\"\"\310H\311\235\312\313H!\312\314H!\315H\316\317H!\320H\205< \316\320H!\321\322 \304&\n\207" [epg-key-validity-alist 1 string-to-char delq nil mapcar #[257 "\211\236A\207" [epg-key-capability-alist] 3 "\n\n(fn CHAR)"] 11 0 ("sec" "ssb") string-to-number 3 2 4 epg--time-from-seconds 5 6 vector cl-struct-epg-sub-key] 20 "\n\n(fn LINE)"])
#@360 Return a list of epg-key objects matched with NAME.
If MODE is nil or `public', only public keyring should be searched.
If MODE is t or `secret', only secret keyring should be searched.
Otherwise, only public keyring should be searched and the key
signatures should be included.
NAME is either a string or a list of strings.
(fn CONTEXT &optional NAME MODE)
(defalias 'epg-list-keys #[769 "\304#\305\211\211\211\211\211\203@\306H\307\235\203j @\306H\310\235\262@\311H\2055 \312@\311H!\236A\313\314\305\211$\262B\262\315@!@\306H >\204Z \316\317\320 @D\"\210@\211\321\321HBI\266\202@\306H\322\235\203\234 \315@!@\306H >\204\214 \316\317\320 @D\"\210@\211\321\321HBI\266\202@\306H\323\232\203;\324@\325H!\262\306\262\326\327#\203\312 \330\331\332\211$\262\306\225T\262\202\262 \3331\337 \334\335\327\327Q!@\336\"\211\2620\202\350 \210@\325H\211\262\210@\337H\205\373 \312@\337H!\236A\203\3401\n\341!0\202\210\202\313\342\305$\266\202@\306H >\204+\316\317\320 @D\"\210@\211\343\343HBI\266\202@\306H\344\232\203y@\306H >\204W\316\317\320@D\"\210@\321H@\211\306H\n>\204k\316\317\345D\"\210\211\211\325\n@\325HI\266\202@\306H\346\232\203@\337H\205\225\312@\337H!\236A\347@\343H!@\350H\351\n@\352H!\351 @\353H! @\325H\347
@\354H\355\"
@\354H\321H\356=\313\357 & \266\210@\306H >\204\356\316\317\320 @D\"\210@\343H@\211\306H >\204\316\317\360D\"\210\211\211\343\343HBI\266A\262\202 \237\262\262\203\213@\306H >\2043\316\317\320@D\"\210@\211\321\321H\237I\266@\306H >\204P\316\317\320@D\"\210@\211\343\343H\237I\262\262\203\204@\306H >\204r\316\317\360@D\"\210@\211\343\343H\237I\266A\262\202]A\262\202 \207" [epg-key-validity-alist cl-struct-epg-key-tags cl-struct-epg-sub-key-tags cl-struct-epg-user-id-tags epg--list-keys-1 nil 0 ("pub" "sec" "crt" "crs") ("crt" "crs") 8 string-to-char vector cl-struct-epg-key epg--make-sub-key-1 signal wrong-type-argument epg-key 2 ("sub" "ssb") "uid" copy-sequence 9 string-match "\"" replace-match "\\\"" t (error) epg--decode-coding-string read-from-string utf-8 1 (error) epg-dn-from-string cl-struct-epg-user-id 3 "fpr" epg-sub-key "sig" string-to-number 4 epg--time-from-seconds 5 6 10 16 120 cl-struct-epg-key-signature epg-user-id] 28 (#$ . 124333)])
(byte-code "\300\301!\203 \302\303\301\"\210\202 \302\303\304\"\210\300\207" [fboundp make-temp-file defalias epg--make-temp-file #[257 "\301 \302C\302C\303\"\262\304\305\306\307\310#\311\"\312$\216\302\313\314!\210\31519 \316\317!\320P!\240\210\321\242!0\202= \210\202\" \204\" \316\242\322P!\240\210\323\324\302\242\302\325%\210\3261d \316!\262\327\242\"0\202h \210\202R \204R \211\262)\207" [temporary-file-directory default-file-modes nil expand-file-name make-byte-code 0 "\303\300!\210\302\242\203 \304\302\242!\203 \305\302\242!\210\301\242\205% \306\301\242!\205% \307\301\242!\207" vconcat vector [set-default-file-modes file-exists-p delete-file file-directory-p delete-directory] 2 set-default-file-modes 448 (file-already-exists) make-temp-name file-name-directory "DIR" make-directory "/EMU" write-region "" silent (file-already-exists) add-name-to-file] 12 "Create a temporary file.\nThe returned file name (created by appending some random characters at the end\nof PREFIX, and expanding against `temporary-file-directory' if necessary),\nis guaranteed to point to a newly created empty file.\nYou can then use `write-region' to write new data into the file.\n\n(fn PREFIX)"]] 3)
(defalias 'epg--args-from-sig-notations #[257 "\300\301\302\303\"\"\207" [apply nconc mapcar #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\203. \211\301H>\204$ \302\303\304D\"\210\211\306H\204. \307\310!\210\211\301H>\204= \302\303\304D\"\210\211\305H\203\255 \311\301H>\204S \302\303\304D\"\210\312H\203\204 \313\301H>\204i \302\303\304D\"\210\305H\314\301H>\204} \302\303\304D\"\210\315HR\202\253 \301H>\204\223 \302\303\304D\"\210\305H\314\301H>\204\247 \302\303\304D\"\210\315HQD\207\316\301H>\204\275 \302\303\304D\"\210\312H\203\332 \313\301H>\204\323 \302\303\304D\"\210\315HP\202\354 \301H>\204\351 \302\303\304D\"\210\315HD\207" [cl-struct-epg-sig-notation-tags 0 signal wrong-type-argument epg-sig-notation 1 3 error "Unreadable" "--sig-notation" 4 "!" "=" 2 "--sig-policy-url"] 9 "\n\n(fn NOTATION)"]] 6 "\n\n(fn NOTATIONS)"])
(defalias 'epg-cancel #[257 "\302\303\304H>\204 \305\306\301D\"\210\307H!!\203< r\303\304H>\204* \305\306\301D\"\210\307H!q\210\310 \311\312\313 \311\"B#\210)\314\304H>\204L \305\306\301D\"\210\307H!\315=\205i \316\304H>\204e \305\306\301D\"\210\307H!\207" [cl-struct-epg-context-tags epg-context buffer-live-p process-buffer 0 signal wrong-type-argument 15 epg-context-set-result-for error (quit) epg-context-result-for process-status run delete-process] 8 "\n\n(fn CONTEXT)"])
#@388 Initiate a decrypt operation on CIPHER.
CIPHER must be a file data object.
If you use this function, you will need to wait for the completion of
`epg-gpg-program' by using `epg-wait-for-completion' and call
`epg-reset' to clear a temporary output file.
If you are unsure, use synchronous version of this function
`epg-decrypt-file' or `epg-decrypt-string' instead.
(fn CONTEXT CIPHER)
(defalias 'epg-start-decrypt #[514 "\211\302H>\204 \303\304\305D\"\210\211\306H\204 \307\310!\210\302H >\204( \303\304\311D\"\210\211\312\313I\266\302H >\204> \303\304\311D\"\210\211\314\315I\266\316\317\320\302H>\204Y \303\304\305D\"\210\306HE\"\210\302H >\204n \303\304\311D\"\210\306H\321=?\205{ \322\323\"\207" [cl-struct-epg-data-tags cl-struct-epg-context-tags 0 signal wrong-type-argument epg-data 1 error "Not a file" epg-context 18 decrypt 17 nil epg--start "--decrypt" "--" CMS epg-wait-for-status ("BEGIN_DECRYPTION")] 10 (#$ . 129325)])
(defalias 'epg--check-error-for-decrypt #[257 "\300\301\"\300\302\"\203 \303\304\305\306!D\"\210\300\307\"?\205$ \303\304\310\306!D\"\207" [epg-context-result-for error decryption-failed signal epg-error "Decryption failed" epg-errors-to-string decryption-okay "Can't decrypt"] 7 "\n\n(fn CONTEXT)"])
#@140 Decrypt a file CIPHER and store the result to a file PLAIN.
If PLAIN is nil, it returns the result as a string.
(fn CONTEXT CIPHER PLAIN)
(defalias 'epg-decrypt-file #[771 "\301\302\303\304\305\"\306\"\307$\216\302H>\204 \310\311\312D\"\210\211\313\206( \314\315!I\266\316\305\317\320#\"\210\321!\210\322!\210\211?\205D \323!)\207" [cl-struct-epg-context-tags make-byte-code 0 "\301\204 \302\300!\210\303\300!\207" vconcat vector [epg-delete-output-file epg-reset] 2 signal wrong-type-argument epg-context 16 epg--make-temp-file "epg-output" epg-start-decrypt cl-struct-epg-data nil epg-wait-for-completion epg--check-error-for-decrypt epg-read-output] 10 (#$ . 130597)])
#@73 Decrypt a string CIPHER and return the plain text.
(fn CONTEXT CIPHER)
(defalias 'epg-decrypt-string #[514 "\302\303!\304\305\306\307\310\311\"\312\"\313$\216\314\315\315\316%\210\306H >\204+ \317\320\321D\"\210\211\322\302\323!I\266\324\311\325\315#\"\210\326!\210\327!\210\330!*\207" [coding-system-for-write cl-struct-epg-context-tags epg--make-temp-file "epg-input" binary make-byte-code 0 "\302\300!\210\303\301!\203 \304\301!\210\305\300!\207" vconcat vector [epg-delete-output-file file-exists-p delete-file epg-reset] 2 write-region nil quiet signal wrong-type-argument epg-context 16 "epg-output" epg-start-decrypt cl-struct-epg-data epg-wait-for-completion epg--check-error-for-decrypt epg-read-output] 10 (#$ . 131293)])
#@584 Initiate a verify operation on SIGNATURE.
SIGNATURE and SIGNED-TEXT are a data object if they are specified.
For a detached signature, both SIGNATURE and SIGNED-TEXT should be set.
For a normal or a cleartext signature, SIGNED-TEXT should be nil.
If you use this function, you will need to wait for the completion of
`epg-gpg-program' by using `epg-wait-for-completion' and call
`epg-reset' to clear a temporary output file.
If you are unsure, use synchronous version of this function
`epg-verify-file' or `epg-verify-string' instead.
(fn CONTEXT SIGNATURE &optional SIGNED-TEXT)
(defalias 'epg-start-verify #[770 "\302H>\204 \303\304\305D\"\210\211\306\307I\266\302H>\204% \303\304\305D\"\210\211\310\311I\266\211\203\377 \211\302H >\204? \303\304\312D\"\210\211\313H\203r \314\315\316\302H >\204Y \303\304\312D\"\210\313H\302H >\204l \303\304\312D\"\210\313HF\"\207\314\315\316\302H >\204\206 \303\304\312D\"\210\313H\317F\"\210\320\302H>\204\236 \303\304\305D\"\210\321H!\322=\203\317 \323\302H>\204\270 \303\304\305D\"\210\321H\302H >\204\312 \303\304\312D\"\210\324H\"\210\320\302H>\204\340 \303\304\305D\"\210\321H!\322=\205\376 \325\302H>\204\372 \303\304\305D\"\210\321H!\207\302H >\204\303\304\312D\"\210\313H\203^\314\211\302H>\204&\303\304\305D\"\210\313H\326=\203G\315\316\302H >\204@\303\304\312D\"\210\313HE\202\\\316\302H >\204X\303\304\312D\"\210\313HD\"\207\314\211\302H>\204p\303\304\305D\"\210\313H\326=\203|\327\202}\330\"\210\320\302H>\204\220\303\304\305D\"\210\321H!\322=\203\302\323\302H>\204\252\303\304\305D\"\210\321H\302H >\204\275\303\304\312D\"\210\324H\"\210\320\302H>\204\323\303\304\305D\"\210\321H!\322=\205\361\325\302H>\204\355\303\304\305D\"\210\321H!\207" [cl-struct-epg-context-tags cl-struct-epg-data-tags 0 signal wrong-type-argument epg-context 18 verify 17 nil epg-data 1 epg--start "--verify" "--" "-" process-status 15 run process-send-string 2 process-send-eof CMS ("--verify" "-") ("-")] 12 (#$ . 132050)])
#@757 Verify a file SIGNATURE.
SIGNED-TEXT and PLAIN are also a file if they are specified.
For a detached signature, both SIGNATURE and SIGNED-TEXT should be
string. For a normal or a cleartext signature, SIGNED-TEXT should be
nil. In the latter case, if PLAIN is specified, the plaintext is
stored into the file after successful verification.
Note that this function does not return verification result as t
or nil, nor signal error on failure. That's a design decision to
handle the case where SIGNATURE has multiple signature.
To check the verification results, use `epg-context-result-for' as follows:
(epg-context-result-for context \='verify)
which will return a list of `epg-signature' object.
(fn CONTEXT SIGNATURE &optional SIGNED-TEXT PLAIN)
(defalias 'epg-verify-file #[1026 "\301\302\303\304\305\"\306\"\307$\216\302H>\204 \310\311\312D\"\210\211\313\206) \314\315!I\266\203C \316\305\317\320#\305\317\320##\210\202M \316\305\317\320#\"\210\321!\210\211?\205Y \322!)\207" [cl-struct-epg-context-tags make-byte-code 0 "\301\204 \302\300!\210\303\300!\207" vconcat vector [epg-delete-output-file epg-reset] 2 signal wrong-type-argument epg-context 16 epg--make-temp-file "epg-output" epg-start-verify cl-struct-epg-data nil epg-wait-for-completion epg-read-output] 11 (#$ . 134126)])
#@711 Verify a string SIGNATURE.
SIGNED-TEXT is a string if it is specified.
For a detached signature, both SIGNATURE and SIGNED-TEXT should be
string. For a normal or a cleartext signature, SIGNED-TEXT should be
nil. In the latter case, this function returns the plaintext after
successful verification.
Note that this function does not return verification result as t
or nil, nor signal error on failure. That's a design decision to
handle the case where SIGNATURE has multiple signature.
To check the verification results, use `epg-context-result-for' as follows:
(epg-context-result-for context \='verify)
which will return a list of `epg-signature' object.
(fn CONTEXT SIGNATURE &optional SIGNED-TEXT)
(defalias 'epg-verify-string #[770 "\302\303C\304\305\306\307\310 \"\311\"\312$\216\305H >\204$ \313\314\315D\"\210\211\316\317\320!I\266\203S \211\317\321!\240\210\322\303\242\303\323%\210\324\310\325\242\303#\310\325\303##\210\202] \324\310\325\303#\"\210\326!\210\327!*\207" [coding-system-for-write cl-struct-epg-context-tags binary nil make-byte-code 0 "\302\300!\210\301\242\203 \303\301\242!\203 \304\301\242!\210\305\300!\207" vconcat vector [epg-delete-output-file file-exists-p delete-file epg-reset] 2 signal wrong-type-argument epg-context 16 epg--make-temp-file "epg-output" "epg-signature" write-region quiet epg-start-verify cl-struct-epg-data epg-wait-for-completion epg-read-output] 12 (#$ . 135455)])
#@561 Initiate a sign operation on PLAIN.
PLAIN is a data object.
If optional 3rd argument MODE is t or `detached', it makes a detached signature.
If it is nil or `normal', it makes a normal signature.
Otherwise, it makes a cleartext signature.
If you use this function, you will need to wait for the completion of
`epg-gpg-program' by using `epg-wait-for-completion' and call
`epg-reset' to clear a temporary output file.
If you are unsure, use synchronous version of this function
`epg-sign-file' or `epg-sign-string' instead.
(fn CONTEXT PLAIN &optional MODE)
(defalias 'epg-start-sign #[770 "\302H>\204 \303\304\305D\"\210\211\306\307I\266\302H>\204% \303\304\305D\"\210\211\310\311I\266\211\312>\204< \313\311\"\210\314\311\"\210\315\316\317>\203I \320\202T \321>\203S \322\202T \323C\324\325\326\327\n\302H>\204j \303\304\305
D\"\210\n\330H\"\"\331\302H>\204\202 \303\304\305 D\"\210\332H!\302H >\204\230 \303\304\333\nD\"\210\334H\205\266 \335\302H >\204\261 \303\304\333 D\"\210\334HD$\"\210\302H>\204\310 \303\304\305D\"\210\334H\336=\204\325 \337\340\"\210\302H >\204\344 \303\304\333D\"\210\341H\205\\\342\302H>\204\373 \303\304\305D\"\210\343H!\344=\203-\345\302H>\204\303\304\305D\"\210\343H\302H >\204(\303\304\333D\"\210\341H\"\210\342\302H>\204>\303\304\305D\"\210\343H!\344=\205\\\346\302H>\204X\303\304\305D\"\210\343H!\207" [cl-struct-epg-context-tags cl-struct-epg-data-tags 0 signal wrong-type-argument epg-context 18 sign 17 nil (t detached nil normal) epg-context-set-armor epg-context-set-textmode epg--start append (t detached) "--detach-sign" (nil normal) "--sign" "--clearsign" apply nconc mapcar #[257 "\302\303H>\204 \304\305\306D\"\210\307H@\211\303H >\204# \304\305\310D\"\210\211\311H\262D\207" [cl-struct-epg-key-tags cl-struct-epg-sub-key-tags "-u" 0 signal wrong-type-argument epg-key 2 epg-sub-key 6] 7 "\n\n(fn SIGNER)"] 13 epg--args-from-sig-notations 14 epg-data 1 "--" CMS epg-wait-for-status ("BEGIN_SIGNING") 2 process-status 15 run process-send-string process-send-eof] 15 (#$ . 136915)])
#@341 Sign a file PLAIN and store the result to a file SIGNATURE.
If SIGNATURE is nil, it returns the result as a string.
If optional 3rd argument MODE is t or `detached', it makes a detached signature.
If it is nil or `normal', it makes a normal signature.
Otherwise, it makes a cleartext signature.
(fn CONTEXT PLAIN SIGNATURE &optional MODE)
(defalias 'epg-sign-file #[1027 "\301\302\303\304\305\"\306\"\307$\216\302H>\204 \310\311\312D\"\210\211\313\206) \314\315!I\266\316\305\317\320##\210\321!\210\322\323\"\204P \322\324\"\310\325\326\327!D\"\266?\205X \330!)\207" [cl-struct-epg-context-tags make-byte-code 0 "\301\204 \302\300!\210\303\300!\207" vconcat vector [epg-delete-output-file epg-reset] 2 signal wrong-type-argument epg-context 16 epg--make-temp-file "epg-output" epg-start-sign cl-struct-epg-data nil epg-wait-for-completion epg-context-result-for sign error epg-error "Sign failed" epg-errors-to-string epg-read-output] 11 (#$ . 139034)])
#@268 Sign a string PLAIN and return the output as string.
If optional 3rd argument MODE is t or `detached', it makes a detached signature.
If it is nil or `normal', it makes a normal signature.
Otherwise, it makes a cleartext signature.
(fn CONTEXT PLAIN &optional MODE)
(defalias 'epg-sign-string #[770 "\302H>\204 \303\304\305D\"\210\306H\307=\206' \3101% \311\312 !\210\3130\202' \210\314?\205. \315\316!\317\320\302\321\322\323\"\324\"\325$\216\302H>\204O \303\304\305D\"\210\211\326\315\327!I\266\211\203d \330\314\314\331%\210\332\203r \323\333\314#\202x \323\333\314##\210\334!\210\335\336\"\204\233 \335\337\"\203\233 \335\337\"\303\340\341\342!D\"\266\343!*\207" [cl-struct-epg-context-tags coding-system-for-write 0 signal wrong-type-argument epg-context 1 CMS (error) epg-check-configuration epg-configuration t nil epg--make-temp-file "epg-input" binary make-byte-code "\302\300!\210\301\203\f \303\301!\210\304\300!\207" vconcat vector [epg-delete-output-file delete-file epg-reset] 2 16 "epg-output" write-region quiet epg-start-sign cl-struct-epg-data epg-wait-for-completion epg-context-result-for sign error epg-error "Sign failed" epg-errors-to-string epg-read-output] 11 (#$ . 140020)])
#@471 Initiate an encrypt operation on PLAIN.
PLAIN is a data object.
If RECIPIENTS is nil, it performs symmetric encryption.
If you use this function, you will need to wait for the completion of
`epg-gpg-program' by using `epg-wait-for-completion' and call
`epg-reset' to clear a temporary output file.
If you are unsure, use synchronous version of this function
`epg-encrypt-file' or `epg-encrypt-string' instead.
(fn CONTEXT PLAIN RECIPIENTS &optional SIGN ALWAYS-TRUST)
(defalias 'epg-start-encrypt #[1283 "\302H>\204 \303\304\305D\"\210\211\306\307I\266\302H>\204' \303\304\305D\"\210\211\310\311I\266\312\313\2056 \314\203? \315\202@ \316\205F \317\205f \320\321\322\323\302H>\204` \303\304\305D\"\210\324H\"\"\205\202 \325\f\302H>\204} \303\304\305D\"\210\f\326H!\320\321\322\327\"\"\f\302H >\204\233 \303\304\330D\"\210\f\331H\205\271 \332
\302H >\204\264 \303\304\330D\"\210
\331HD&\"\210\302H>\204\315 \303\304\305D\"\210\331H\333=\204\342 \334\203\337 \335\202\340 \336\"\210\302H >\204\362 \303\304\330D\"\210\337H\205j\340\302H>\204 \303\304\305D\"\210\341H!\342=\203;\343\302H>\204#\303\304\305D\"\210\341H\302H >\2046\303\304\330D\"\210\337H\"\210\340\302H>\204L\303\304\305D\"\210\341H!\342=\205j\344\302H>\204f\303\304\305D\"\210\341H!\207" [cl-struct-epg-context-tags cl-struct-epg-data-tags 0 signal wrong-type-argument epg-context 18 encrypt 17 nil epg--start append ("--always-trust") ("--encrypt") ("--symmetric") ("--sign") apply nconc mapcar #[257 "\302\303H>\204 \304\305\306D\"\210\307H@\211\303H >\204# \304\305\310D\"\210\211\311H\262D\207" [cl-struct-epg-key-tags cl-struct-epg-sub-key-tags "-u" 0 signal wrong-type-argument epg-key 2 epg-sub-key 6] 7 "\n\n(fn SIGNER)"] 13 epg--args-from-sig-notations 14 #[257 "\302\303H>\204 \304\305\306D\"\210\307H@\211\303H >\204# \304\305\310D\"\210\211\311H\262D\207" [cl-struct-epg-key-tags cl-struct-epg-sub-key-tags "-r" 0 signal wrong-type-argument epg-key 2 epg-sub-key 6] 7 "\n\n(fn RECIPIENT)"] epg-data 1 "--" CMS epg-wait-for-status ("BEGIN_SIGNING") ("BEGIN_ENCRYPTION") 2 process-status 15 run process-send-string process-send-eof] 19 (#$ . 141260)])
#@236 Encrypt a file PLAIN and store the result to a file CIPHER.
If CIPHER is nil, it returns the result as a string.
If RECIPIENTS is nil, it performs symmetric encryption.
(fn CONTEXT PLAIN RECIPIENTS CIPHER &optional SIGN ALWAYS-TRUST)
(defalias 'epg-encrypt-file #[1540 "\301\302\303\304\305\n\"\306\"\307$\216\302H>\204 \310\311\312D\"\210\211\313\206) \314\315!I\266\316\305\317\320#%\210\321!\210\322\323\"\203Z \322\324\"\204Z \310\325\326\327!D\"\210\211\203g \310\325\330\327!D\"\210\210?\205q \331!)\207" [cl-struct-epg-context-tags make-byte-code 0 "\301\204 \302\300!\210\303\300!\207" vconcat vector [epg-delete-output-file epg-reset] 2 signal wrong-type-argument epg-context 16 epg--make-temp-file "epg-output" epg-start-encrypt cl-struct-epg-data nil epg-wait-for-completion epg-context-result-for error sign epg-error "Sign failed" epg-errors-to-string "Encrypt failed" epg-read-output] 13 (#$ . 143498)])
#@140 Encrypt a string PLAIN.
If RECIPIENTS is nil, it performs symmetric encryption.
(fn CONTEXT PLAIN RECIPIENTS &optional SIGN ALWAYS-TRUST)
(defalias 'epg-encrypt-string #[1283 "?\206- \302H>\204 \303\304\305D\"\210\306H\307=\206- \3101+ \311\312 !\210\3130\202- \210\314?\2054 \315\316!\317\320\302\321\322\323\n\"\324\"\325$\216\302H>\204U \303\304\305D\"\210\211\326\315\327!I\266\211\203j \330\314\314\331%\210\332\203y \323\333\314#\202 \323\333\314 #%\210\334!\210\335\336\"\203\246 \335\337\"\204\246 \303\340\341\342!D\"\210\211\203\263 \303\340\343\342!D\"\210\210\344!*\207" [cl-struct-epg-context-tags coding-system-for-write 0 signal wrong-type-argument epg-context 1 CMS (error) epg-check-configuration epg-configuration t nil epg--make-temp-file "epg-input" binary make-byte-code "\302\300!\210\301\203\f \303\301!\210\304\300!\207" vconcat vector [epg-delete-output-file delete-file epg-reset] 2 16 "epg-output" write-region quiet epg-start-encrypt cl-struct-epg-data epg-wait-for-completion epg-context-result-for error sign epg-error "Sign failed" epg-errors-to-string "Encrypt failed" epg-read-output] 13 (#$ . 144456)])
#@360 Initiate an export keys operation.
If you use this function, you will need to wait for the completion of
`epg-gpg-program' by using `epg-wait-for-completion' and call
`epg-reset' to clear a temporary output file.
If you are unsure, use synchronous version of this function
`epg-export-keys-to-file' or `epg-export-keys-to-string' instead.
(fn CONTEXT KEYS)
(defalias 'epg-start-export-keys #[514 "\301H>\204 \302\303\304D\"\210\211\305\306I\266\301H>\204% \302\303\304D\"\210\211\307\310I\266\311\312\313\314\"B\"\207" [cl-struct-epg-context-tags 0 signal wrong-type-argument epg-context 18 export-keys 17 nil epg--start "--export" mapcar #[257 "\211\302H>\204 \303\304\305D\"\210\211\306H@\211\302H >\204\" \303\304\307D\"\210\211\310H\207" [cl-struct-epg-key-tags cl-struct-epg-sub-key-tags 0 signal wrong-type-argument epg-key 2 epg-sub-key 6] 6 "\n\n(fn KEY)"]] 8 (#$ . 145643)])
#@46 Extract public KEYS.
(fn CONTEXT KEYS FILE)
(defalias 'epg-export-keys-to-file #[771 "\301\302\303\304\305\"\306\"\307$\216\302H>\204 \310\311\312D\"\210\211\313\206( \314\315!I\266\316\"\210\317!\210\320\321\"\211\203E \310\322\323\324!D\"\210\210\211?\205N \325!)\207" [cl-struct-epg-context-tags make-byte-code 0 "\301\204 \302\300!\210\303\300!\207" vconcat vector [epg-delete-output-file epg-reset] 2 signal wrong-type-argument epg-context 16 epg--make-temp-file "epg-output" epg-start-export-keys epg-wait-for-completion epg-context-result-for error epg-error "Export keys failed" epg-errors-to-string epg-read-output] 10 (#$ . 146552)])
#@69 Extract public KEYS and return them as a string.
(fn CONTEXT KEYS)
(defalias 'epg-export-keys-to-string #[514 "\300\301#\207" [epg-export-keys-to-file nil] 6 (#$ . 147221)])
#@387 Initiate an import keys operation.
KEYS is a data object.
If you use this function, you will need to wait for the completion of
`epg-gpg-program' by using `epg-wait-for-completion' and call
`epg-reset' to clear a temporary output file.
If you are unsure, use synchronous version of this function
`epg-import-keys-from-file' or `epg-import-keys-from-string' instead.
(fn CONTEXT KEYS)
(defalias 'epg-start-import-keys #[514 "\302H>\204 \303\304\305D\"\210\211\306\307I\266\302H>\204% \303\304\305D\"\210\211\310\311I\266\312\302H >\204= \303\304\313D\"\210\314H\203\\ \315\316\302H >\204U \303\304\313D\"\210\314HE\202^ \315C\"\210\211\302H >\204o \303\304\313D\"\210\211\317H\205\342 \320\302H>\204\205 \303\304\305D\"\210\321H!\322=\203\265 \323\302H>\204\236 \303\304\305D\"\210\321H\302H >\204\260 \303\304\313D\"\210\317H\"\210\320\302H>\204\305 \303\304\305D\"\210\321H!\322=\205\342 \324\302H>\204\336 \303\304\305D\"\210\321H!\207" [cl-struct-epg-context-tags cl-struct-epg-data-tags 0 signal wrong-type-argument epg-context 18 import-keys 17 nil epg--start epg-data 1 "--import" "--" 2 process-status 15 run process-send-string process-send-eof] 10 (#$ . 147405)])
(defalias 'epg--import-keys-1 #[514 "\300\301\302\303\304!\305\"\306$\216\307\"\210\310!\210\311\312\"\211\205& \313\314\315\316!D\"\262)\207" [make-byte-code 0 "\301\300!\207" vconcat vector [epg-reset] 2 epg-start-import-keys epg-wait-for-completion epg-context-result-for error signal epg-error "Import keys failed" epg-errors-to-string] 8 "\n\n(fn CONTEXT KEYS)"])
#@47 Add keys from a file KEYS.
(fn CONTEXT KEYS)
(defalias 'epg-import-keys-from-file #[514 "\300\301\302\303#\"\207" [epg--import-keys-1 vector cl-struct-epg-data nil] 8 (#$ . 149002)])
#@49 Add keys from a string KEYS.
(fn CONTEXT KEYS)
(defalias 'epg-import-keys-from-string #[514 "\300\301\302\303#\"\207" [epg--import-keys-1 vector cl-struct-epg-data nil] 8 (#$ . 149194)])
#@362 Initiate a receive key operation.
KEY-ID-LIST is a list of key IDs.
If you use this function, you will need to wait for the completion of
`epg-gpg-program' by using `epg-wait-for-completion' and call
`epg-reset' to clear a temporary output file.
If you are unsure, use synchronous version of this function
`epg-receive-keys' instead.
(fn CONTEXT KEY-ID-LIST)
(defalias 'epg-start-receive-keys #[514 "\301H>\204 \302\303\304D\"\210\211\305\306I\266\301H>\204% \302\303\304D\"\210\211\307\310I\266\311\312B\"\207" [cl-struct-epg-context-tags 0 signal wrong-type-argument epg-context 18 receive-keys 17 nil epg--start "--recv-keys"] 6 (#$ . 149391)])
#@68 Add keys from server.
KEYS is a list of key IDs
(fn CONTEXT KEYS)
(defalias 'epg-receive-keys #[514 "\300\301\302\303\304!\305\"\306$\216\307\"\210\310!\210\311\312\"\211\205& \313\314\315\316!D\"\262)\207" [make-byte-code 0 "\301\300!\207" vconcat vector [epg-reset] 2 epg-start-receive-keys epg-wait-for-completion epg-context-result-for error signal epg-error "Receive keys failed" epg-errors-to-string] 8 (#$ . 150060)])
(defalias 'epg-import-keys-from-server 'epg-receive-keys)
#@343 Initiate a delete keys operation.
If you use this function, you will need to wait for the completion of
`epg-gpg-program' by using `epg-wait-for-completion' and call
`epg-reset' to clear a temporary output file.
If you are unsure, use synchronous version of this function
`epg-delete-keys' instead.
(fn CONTEXT KEYS &optional ALLOW-SECRET)
(defalias 'epg-start-delete-keys #[770 "\301H>\204 \302\303\304D\"\210\211\305\306I\266\301H>\204% \302\303\304D\"\210\211\307\310I\266\311\2036 \312\2027 \313\314\315\"B\"\207" [cl-struct-epg-context-tags 0 signal wrong-type-argument epg-context 18 delete-keys 17 nil epg--start "--delete-secret-key" "--delete-key" mapcar #[257 "\211\302H>\204 \303\304\305D\"\210\211\306H@\211\302H >\204\" \303\304\307D\"\210\211\310H\207" [cl-struct-epg-key-tags cl-struct-epg-sub-key-tags 0 signal wrong-type-argument epg-key 2 epg-sub-key 6] 6 "\n\n(fn KEY)"]] 9 (#$ . 150559)])
#@74 Delete KEYS from the key ring.
(fn CONTEXT KEYS &optional ALLOW-SECRET)
(defalias 'epg-delete-keys #[770 "\300\301\302\303\304!\305\"\306$\216\307#\210\310!\210\311\312\"\211\205' \313\314\315\316!D\"\262)\207" [make-byte-code 0 "\301\300!\207" vconcat vector [epg-reset] 2 epg-start-delete-keys epg-wait-for-completion epg-context-result-for error signal epg-error "Delete keys failed" epg-errors-to-string] 9 (#$ . 151495)])
#@332 Initiate a sign keys operation.
If you use this function, you will need to wait for the completion of
`epg-gpg-program' by using `epg-wait-for-completion' and call
`epg-reset' to clear a temporary output file.
If you are unsure, use synchronous version of this function
`epg-sign-keys' instead.
(fn CONTEXT KEYS &optional LOCAL)
(defalias 'epg-start-sign-keys #[770 "\301H>\204 \302\303\304D\"\210\211\305\306I\266\301H>\204% \302\303\304D\"\210\211\307\310I\266\311\2036 \312\2027 \313\314\315\"B\"\207" [cl-struct-epg-context-tags 0 signal wrong-type-argument epg-context 18 sign-keys 17 nil epg--start "--lsign-key" "--sign-key" mapcar #[257 "\211\302H>\204 \303\304\305D\"\210\211\306H@\211\302H >\204\" \303\304\307D\"\210\211\310H\207" [cl-struct-epg-key-tags cl-struct-epg-sub-key-tags 0 signal wrong-type-argument epg-key 2 epg-sub-key 6] 6 "\n\n(fn KEY)"]] 9 (#$ . 151939)])
(make-obsolete 'epg-start-sign-keys nil "23.1")
#@65 Sign KEYS from the key ring.
(fn CONTEXT KEYS &optional LOCAL)
(defalias 'epg-sign-keys #[770 "\300\301\302\303\304!\305\"\306$\216\307#\210\310!\210\311\312\"\211\205' \313\314\315\316!D\"\262)\207" [make-byte-code 0 "\301\300!\207" vconcat vector [epg-reset] 2 epg-start-sign-keys epg-wait-for-completion epg-context-result-for error signal epg-error "Sign keys failed" epg-errors-to-string] 9 (#$ . 152898)])
(make-obsolete 'epg-sign-keys nil "23.1")
#@526 Initiate a key generation.
PARAMETERS is a string which specifies parameters of the generated key.
See Info node `(gnupg) Unattended GPG key generation' in the
GnuPG manual for the format.
If you use this function, you will need to wait for the completion of
`epg-gpg-program' by using `epg-wait-for-completion' and call
`epg-reset' to clear a temporary output file.
If you are unsure, use synchronous version of this function
`epg-generate-key-from-file' or `epg-generate-key-from-string' instead.
(fn CONTEXT PARAMETERS)
(defalias 'epg-start-generate-key #[514 "\302H>\204 \303\304\305D\"\210\211\306\307I\266\302H>\204% \303\304\305D\"\210\211\310\311I\266\211\302H >\204; \303\304\312D\"\210\211\313H\203\\ \314\315\316\317\302H >\204V \303\304\312D\"\210\313HF\"\207\314\320\"\210\321\302H>\204q \303\304\305D\"\210\322H!\323=\203\241 \324\302H>\204\212 \303\304\305D\"\210\322H\302H >\204\234 \303\304\312D\"\210\325H\"\210\321\302H>\204\261 \303\304\305D\"\210\322H!\323=\205\316 \326\302H>\204\312 \303\304\305D\"\210\322H!\207" [cl-struct-epg-context-tags cl-struct-epg-data-tags 0 signal wrong-type-argument epg-context 18 generate-key 17 nil epg-data 1 epg--start "--batch" "--gen-key" "--" ("--batch" "--gen-key") process-status 15 run process-send-string 2 process-send-eof] 11 (#$ . 153369)])
#@107 Generate a new key pair.
PARAMETERS is a file which tells how to create the key.
(fn CONTEXT PARAMETERS)
(defalias 'epg-generate-key-from-file #[514 "\300\301\302\303\304!\305\"\306$\216\307\304\310\311#\"\210\312!\210\313\314\"\211\205* \315\316\317\320!D\"\262)\207" [make-byte-code 0 "\301\300!\207" vconcat vector [epg-reset] 2 epg-start-generate-key cl-struct-epg-data nil epg-wait-for-completion epg-context-result-for error signal epg-error "Generate key failed" epg-errors-to-string] 8 (#$ . 154722)])
#@109 Generate a new key pair.
PARAMETERS is a string which tells how to create the key.
(fn CONTEXT PARAMETERS)
(defalias 'epg-generate-key-from-string #[514 "\300\301\302\303\304!\305\"\306$\216\307\304\310\311#\"\210\312!\210\313\314\"\211\205* \315\316\317\320!D\"\262)\207" [make-byte-code 0 "\301\300!\207" vconcat vector [epg-reset] 2 epg-start-generate-key cl-struct-epg-data nil epg-wait-for-completion epg-context-result-for error signal epg-error "Generate key failed" epg-errors-to-string] 8 (#$ . 155248)])
#@478 Initiate an edit operation on KEY.
EDIT-CALLBACK is called from process filter and takes 3
arguments: the context, a status, an argument string, and the
handback argument.
If you use this function, you will need to wait for the completion of
`epg-gpg-program' by using `epg-wait-for-completion' and call
`epg-reset' to clear a temporary output file.
If you are unsure, use synchronous version of this function
`epg-edit-key' instead.
(fn CONTEXT KEY EDIT-CALLBACK HANDBACK)
(defalias 'epg-start-edit-key #[1028 "\303H>\204 \304\305\306D\"\210\211\307\310I\266\303H>\204' \304\305\306D\"\210\211\311\312I\266\303H>\204> \304\305\306D\"\210\211\313BI\266\314\315\303H >\204Z \304\305\316D\"\210\317H@\211\303H\n>\204m \304\305\320D\"\210\211\321H\262D\"\207" [cl-struct-epg-context-tags cl-struct-epg-key-tags cl-struct-epg-sub-key-tags 0 signal wrong-type-argument epg-context 18 edit-key 17 nil 12 epg--start "--edit-key" epg-key 2 epg-sub-key 6] 12 (#$ . 155778)])
#@67 Edit KEY in the keyring.
(fn CONTEXT KEY EDIT-CALLBACK HANDBACK)
(defalias 'epg-edit-key #[1028 "\300\301\302\303\304!\305\"\306$\216\307$\210\310!\210\311\312\"\211\205( \313\314\315\316!D\"\262)\207" [make-byte-code 0 "\301\300!\207" vconcat vector [epg-reset] 2 epg-start-edit-key epg-wait-for-completion epg-context-result-for error signal epg-error "Edit key failed" epg-errors-to-string] 10 (#$ . 156781)])
(defalias 'epg--decode-percent-escape #[257 "\300\301\302#\2038 \303\224\203 \304\305\306\211$\262\300\225S\262\202 \304\307\310\311\312\"\313\"!\306\211$\262\300\225\303Z\262\202 \207" [0 string-match "%\\(\\(%\\)\\|\\([0-9A-Fa-f][0-9A-Fa-f]\\)\\)" 2 replace-match "%" t string string-to-number match-string 3 16] 8 "\n\n(fn STRING)"])
(defalias 'epg--decode-hexstring #[257 "\300\211\301\302#=\203$ \303\304\305\306\300\"\307\"!\310\211$\262\300\225S\262\202 \207" [0 string-match "[0-9A-Fa-f][0-9A-Fa-f]" replace-match string string-to-number match-string 16 t] 8 "\n\n(fn STRING)"])
(defalias 'epg--decode-quotedstring #[257 "\300\301\302#\203= \303\224\203 \304\305\306\307$\262\300\225S\262\202 \310\224\203 \304\311\312\313\300\"\314\"!\306\211$\262\300\225\303Z\262\202 \207" [0 string-match "\\\\\\(\\([,=+<>#;\\\"]\\)\\|\\([0-9A-Fa-f][0-9A-Fa-f]\\)\\)" 2 replace-match "\\2" t nil 3 string string-to-number match-string 16] 8 "\n\n(fn STRING)"])
#@127 Parse STRING as LADPv3 Distinguished Names (RFC2253).
The return value is an alist mapping from types to values.
(fn STRING)
(defalias 'epg-dn-from-string #[257 "\300G\301\211\211\211W\203 \302\303 #=\203 \300\225\262\302\304 #=\2037 \305\306\"\262\300\225\262\202N \302\307 #=\203N \305\306\"\262\300\225\262\204V \310\311!\210\302\312 #=\203r \300\225\262\313\305\300 \"!\262\202\247 \302\314 #=\203\216 \300\225\262\315\305\306 \"!\262\202\247 \302\316 #=\203\247 \300\225\262\313\305\300 \"!\262\211\203\312 @@;\203\276 B@D\240\210\202\344 B@B\240\210\202\344 @@:\203\327 \211@\237\240\210BB\262\301\262\301\262\302\317 #=\203 \300\225\262\306\224H\320=\262\202 \237\207" [0 nil string-match "[ \n
]*" "\\([0-9]+\\(\\.[0-9]+\\)*\\)[ \n
]*=[ \n
]*" match-string 1 "\\([0-9A-Za-z]+\\)[ \n
]*=[ \n
]*" error "Invalid type" "\\([^,=+<>#;\\\"]\\|\\\\.\\)+" epg--decode-quotedstring "#\\([0-9A-Fa-f]+\\)" epg--decode-hexstring "\"\\([^\\\"]\\|\\\\.\\)*\"" "[ \n
]*\\([,;+]\\)" 43] 12 (#$ . 158206)])
#@137 Convert ALIST returned by `epg-dn-from-string' to a human readable form.
Type names are resolved using `epg-dn-type-alist'.
(fn ALIST)
(defalias 'epg-decode-dn #[257 "\300\301\302#\207" [mapconcat #[257 "\211@;\203! \301@\"\211\203 \302\303AA#\202 \302\303@A#\207\304\305!\306Q\207" [epg-dn-type-alist assoc format "%s=%s" "(" epg-decode-dn ")"] 6 "\n\n(fn RDN)"] ", "] 5 (#$ . 159294)])
(provide 'epg)
Kontol Shell Bypass