?
Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
Current File : //usr/share/emacs/24.3/lisp/epg.elc |
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:17 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/epg.el ;;; in Emacs version 24.3.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'epg-config) #@36 GnuPG ID of your default identity. (defvar epg-user-id nil (#$ . 568)) #@42 An alist mapping from key ID to user ID. (defvar epg-user-id-alist nil (#$ . 645)) (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) (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-capablity-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) (put 'epg-error 'error-conditions '(epg-error error)) #@42 Make a data object from FILE. (fn FILE) (defalias 'epg-make-data-from-file #[257 "\300\301\302\"B\207" [epg-data vector nil] 5 (#$ . 3460)]) #@46 Make a data object from STRING. (fn STRING) (defalias 'epg-make-data-from-string #[257 "\300\301\302\"B\207" [epg-data vector nil] 5 (#$ . 3609)]) #@37 Return the file of DATA. (fn DATA) (defalias 'epg-data-file #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-data signal wrong-type-argument epg-data-p 0] 5 (#$ . 3764)]) #@39 Return the string of DATA. (fn DATA) (defalias 'epg-data-string #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-data signal wrong-type-argument epg-data-p 1] 5 (#$ . 3960)]) #@133 Return a context object. (fn &optional PROTOCOL ARMOR TEXTMODE INCLUDE-CERTS CIPHER-ALGORITHM DIGEST-ALGORITHM COMPRESS-ALGORITHM) (defalias 'epg-make-context #[1792 "\300\301\206 \302\303C\304\211\211\211\211\211\211&B\207" [epg-context vector OpenPGP epg-passphrase-callback-function nil] 24 (#$ . 4161)]) #@56 Return the protocol used within CONTEXT. (fn CONTEXT) (defalias 'epg-context-protocol #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-context signal wrong-type-argument epg-context-p 0] 5 (#$ . 4492)]) #@74 Return t if the output should be ASCII armored in CONTEXT. (fn CONTEXT) (defalias 'epg-context-armor #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-context signal wrong-type-argument epg-context-p 1] 5 (#$ . 4720)]) #@74 Return t if canonical text mode should be used in CONTEXT. (fn CONTEXT) (defalias 'epg-context-textmode #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-context signal wrong-type-argument epg-context-p 2] 5 (#$ . 4963)]) #@92 Return how many certificates should be included in an S/MIME signed message. (fn CONTEXT) (defalias 'epg-context-include-certs #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-context signal wrong-type-argument epg-context-p 3] 5 (#$ . 5209)]) #@55 Return the cipher algorithm in CONTEXT. (fn CONTEXT) (defalias 'epg-context-cipher-algorithm #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-context signal wrong-type-argument epg-context-p 4] 5 (#$ . 5478)]) #@55 Return the digest algorithm in CONTEXT. (fn CONTEXT) (defalias 'epg-context-digest-algorithm #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-context signal wrong-type-argument epg-context-p 5] 5 (#$ . 5713)]) #@57 Return the compress algorithm in CONTEXT. (fn CONTEXT) (defalias 'epg-context-compress-algorithm #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-context signal wrong-type-argument epg-context-p 6] 5 (#$ . 5948)]) #@61 Return the function used to query passphrase. (fn CONTEXT) (defalias 'epg-context-passphrase-callback #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-context signal wrong-type-argument epg-context-p 7] 5 (#$ . 6187)]) #@66 Return the function which handles progress update. (fn CONTEXT) (defalias 'epg-context-progress-callback #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-context signal wrong-type-argument epg-context-p 8] 5 (#$ . 6431)]) #@54 Return the list of key-id for signing. (fn CONTEXT) (defalias 'epg-context-signers #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-context signal wrong-type-argument epg-context-p 9] 5 (#$ . 6678)]) #@57 Return the list of notations for signing. (fn CONTEXT) (defalias 'epg-context-sig-notations #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-context signal wrong-type-argument epg-context-p 10] 5 (#$ . 6903)]) #@103 Return the process object of `epg-gpg-program'. This function is for internal use only. (fn CONTEXT) (defalias 'epg-context-process #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-context signal wrong-type-argument epg-context-p 11] 5 (#$ . 7139)]) #@100 Return the output file of `epg-gpg-program'. This function is for internal use only. (fn CONTEXT) (defalias 'epg-context-output-file #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-context signal wrong-type-argument epg-context-p 12] 5 (#$ . 7415)]) #@74 Return the result of the previous cryptographic operation. (fn CONTEXT) (defalias 'epg-context-result #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-context signal wrong-type-argument epg-context-p 13] 5 (#$ . 7691)]) #@71 Return the name of the current cryptographic operation. (fn CONTEXT) (defalias 'epg-context-operation #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-context signal wrong-type-argument epg-context-p 14] 5 (#$ . 7936)]) #@62 Set the protocol used within CONTEXT. (fn CONTEXT PROTOCOL) (defalias 'epg-context-set-protocol #[514 "\242\300=\204 \301\302\303D\"\210A\304I\207" [epg-context signal wrong-type-argument epg-context-p 0] 6 (#$ . 8181)]) #@79 Specify if the output should be ASCII armored in CONTEXT. (fn CONTEXT ARMOR) (defalias 'epg-context-set-armor #[514 "\242\300=\204 \301\302\303D\"\210A\304I\207" [epg-context signal wrong-type-argument epg-context-p 1] 6 (#$ . 8414)]) #@82 Specify if canonical text mode should be used in CONTEXT. (fn CONTEXT TEXTMODE) (defalias 'epg-context-set-textmode #[514 "\242\300=\204 \301\302\303D\"\210A\304I\207" [epg-context signal wrong-type-argument epg-context-p 2] 6 (#$ . 8661)]) #@103 Set how many certificates should be included in an S/MIME signed message. (fn CONTEXT INCLUDE-CERTS) (defalias 'epg-context-set-include-certs #[514 "\242\300=\204 \301\302\303D\"\210A\304I\207" [epg-context signal wrong-type-argument epg-context-p 3] 6 (#$ . 8915)]) #@69 Set the cipher algorithm in CONTEXT. (fn CONTEXT CIPHER-ALGORITHM) (defalias 'epg-context-set-cipher-algorithm #[514 "\242\300=\204 \301\302\303D\"\210A\304I\207" [epg-context signal wrong-type-argument epg-context-p 4] 6 (#$ . 9194)]) #@69 Set the digest algorithm in CONTEXT. (fn CONTEXT DIGEST-ALGORITHM) (defalias 'epg-context-set-digest-algorithm #[514 "\242\300=\204 \301\302\303D\"\210A\304I\207" [epg-context signal wrong-type-argument epg-context-p 5] 6 (#$ . 9442)]) #@73 Set the compress algorithm in CONTEXT. (fn CONTEXT COMPRESS-ALGORITHM) (defalias 'epg-context-set-compress-algorithm #[514 "\242\300=\204 \301\302\303D\"\210A\304I\207" [epg-context signal wrong-type-argument epg-context-p 6] 6 (#$ . 9690)]) #@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 "\242\300=\204 \301\302\303D\"\210A\304:\203 \202 CI\207" [epg-context signal wrong-type-argument epg-context-p 7] 6 (#$ . 9945)]) #@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 "\242\300=\204 \301\302\303D\"\210A\304:\203 \202 CI\207" [epg-context signal wrong-type-argument epg-context-p 8] 6 (#$ . 10741)]) #@59 Set the list of key-id for signing. (fn CONTEXT SIGNERS) (defalias 'epg-context-set-signers #[514 "\242\300=\204 \301\302\303D\"\210A\304I\207" [epg-context signal wrong-type-argument epg-context-p 9] 6 (#$ . 11329)]) #@64 Set the list of notations for signing. (fn CONTEXT NOTATIONS) (defalias 'epg-context-set-sig-notations #[514 "\242\300=\204 \301\302\303D\"\210A\304I\207" [epg-context signal wrong-type-argument epg-context-p 10] 6 (#$ . 11559)]) #@108 Set the process object of `epg-gpg-program'. This function is for internal use only. (fn CONTEXT PROCESS) (defalias 'epg-context-set-process #[514 "\242\300=\204 \301\302\303D\"\210A\304I\207" [epg-context signal wrong-type-argument epg-context-p 11] 6 (#$ . 11802)]) #@109 Set the output file of `epg-gpg-program'. This function is for internal use only. (fn CONTEXT OUTPUT-FILE) (defalias 'epg-context-set-output-file #[514 "\242\300=\204 \301\302\303D\"\210A\304I\207" [epg-context signal wrong-type-argument epg-context-p 12] 6 (#$ . 12083)]) #@78 Set the result of the previous cryptographic operation. (fn CONTEXT RESULT) (defalias 'epg-context-set-result #[514 "\242\300=\204 \301\302\303D\"\210A\304I\207" [epg-context signal wrong-type-argument epg-context-p 13] 6 (#$ . 12368)]) #@78 Set the name of the current cryptographic operation. (fn CONTEXT OPERATION) (defalias 'epg-context-set-operation #[514 "\242\300=\204 \301\302\303D\"\210A\304I\207" [epg-context signal wrong-type-argument epg-context-p 14] 6 (#$ . 12617)]) #@58 Return a signature object. (fn STATUS &optional KEY-ID) (defalias 'epg-make-signature #[513 "\300\301\302\211\211\211\211\211\211\211\211&B\207" [epg-signature vector nil] 15 (#$ . 12869)]) #@54 Return the status code of SIGNATURE. (fn SIGNATURE) (defalias 'epg-signature-status #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-signature signal wrong-type-argument epg-signature-p 0] 5 (#$ . 13069)]) #@49 Return the key-id of SIGNATURE. (fn SIGNATURE) (defalias 'epg-signature-key-id #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-signature signal wrong-type-argument epg-signature-p 1] 5 (#$ . 13300)]) #@51 Return the validity of SIGNATURE. (fn SIGNATURE) (defalias 'epg-signature-validity #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-signature signal wrong-type-argument epg-signature-p 2] 5 (#$ . 13526)]) #@54 Return the fingerprint of SIGNATURE. (fn SIGNATURE) (defalias 'epg-signature-fingerprint #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-signature signal wrong-type-argument epg-signature-p 3] 5 (#$ . 13756)]) #@56 Return the creation time of SIGNATURE. (fn SIGNATURE) (defalias 'epg-signature-creation-time #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-signature signal wrong-type-argument epg-signature-p 4] 5 (#$ . 13992)]) #@58 Return the expiration time of SIGNATURE. (fn SIGNATURE) (defalias 'epg-signature-expiration-time #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-signature signal wrong-type-argument epg-signature-p 5] 5 (#$ . 14232)]) #@63 Return the public key algorithm of SIGNATURE. (fn SIGNATURE) (defalias 'epg-signature-pubkey-algorithm #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-signature signal wrong-type-argument epg-signature-p 6] 5 (#$ . 14476)]) #@59 Return the digest algorithm of SIGNATURE. (fn SIGNATURE) (defalias 'epg-signature-digest-algorithm #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-signature signal wrong-type-argument epg-signature-p 7] 5 (#$ . 14726)]) #@48 Return the class of SIGNATURE. (fn SIGNATURE) (defalias 'epg-signature-class #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-signature signal wrong-type-argument epg-signature-p 8] 5 (#$ . 14972)]) #@50 Return the version of SIGNATURE. (fn SIGNATURE) (defalias 'epg-signature-version #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-signature signal wrong-type-argument epg-signature-p 9] 5 (#$ . 15196)]) #@60 Return the list of notations of SIGNATURE. (fn SIGNATURE) (defalias 'epg-sig-notations #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-signature signal wrong-type-argument epg-signature-p 10] 5 (#$ . 15424)]) #@58 Set the status code of SIGNATURE. (fn SIGNATURE STATUS) (defalias 'epg-signature-set-status #[514 "\242\300=\204 \301\302\303D\"\210A\304I\207" [epg-signature signal wrong-type-argument epg-signature-p 0] 6 (#$ . 15659)]) #@53 Set the key-id of SIGNATURE. (fn SIGNATURE KEY-ID) (defalias 'epg-signature-set-key-id #[514 "\242\300=\204 \301\302\303D\"\210A\304I\207" [epg-signature signal wrong-type-argument epg-signature-p 1] 6 (#$ . 15893)]) #@57 Set the validity of SIGNATURE. (fn SIGNATURE VALIDITY) (defalias 'epg-signature-set-validity #[514 "\242\300=\204 \301\302\303D\"\210A\304I\207" [epg-signature signal wrong-type-argument epg-signature-p 2] 6 (#$ . 16122)]) #@63 Set the fingerprint of SIGNATURE. (fn SIGNATURE FINGERPRINT) (defalias 'epg-signature-set-fingerprint #[514 "\242\300=\204 \301\302\303D\"\210A\304I\207" [epg-signature signal wrong-type-argument epg-signature-p 3] 6 (#$ . 16357)]) #@67 Set the creation time of SIGNATURE. (fn SIGNATURE CREATION-TIME) (defalias 'epg-signature-set-creation-time #[514 "\242\300=\204 \301\302\303D\"\210A\304I\207" [epg-signature signal wrong-type-argument epg-signature-p 4] 6 (#$ . 16601)]) #@71 Set the expiration time of SIGNATURE. (fn SIGNATURE EXPIRATION-TIME) (defalias 'epg-signature-set-expiration-time #[514 "\242\300=\204 \301\302\303D\"\210A\304I\207" [epg-signature signal wrong-type-argument epg-signature-p 5] 6 (#$ . 16851)]) #@77 Set the public key algorithm of SIGNATURE. (fn SIGNATURE PUBKEY-ALGORITHM) (defalias 'epg-signature-set-pubkey-algorithm #[514 "\242\300=\204 \301\302\303D\"\210A\304I\207" [epg-signature signal wrong-type-argument epg-signature-p 6] 6 (#$ . 17107)]) #@73 Set the digest algorithm of SIGNATURE. (fn SIGNATURE DIGEST-ALGORITHM) (defalias 'epg-signature-set-digest-algorithm #[514 "\242\300=\204 \301\302\303D\"\210A\304I\207" [epg-signature signal wrong-type-argument epg-signature-p 7] 6 (#$ . 17370)]) #@51 Set the class of SIGNATURE. (fn SIGNATURE CLASS) (defalias 'epg-signature-set-class #[514 "\242\300=\204 \301\302\303D\"\210A\304I\207" [epg-signature signal wrong-type-argument epg-signature-p 8] 6 (#$ . 17629)]) #@55 Set the version of SIGNATURE. (fn SIGNATURE VERSION) (defalias 'epg-signature-set-version #[514 "\242\300=\204 \301\302\303D\"\210A\304I\207" [epg-signature signal wrong-type-argument epg-signature-p 9] 6 (#$ . 17855)]) #@67 Set the list of notations of SIGNATURE. (fn SIGNATURE NOTATIONS) (defalias 'epg-signature-set-notations #[514 "\242\300=\204 \301\302\303D\"\210A\304I\207" [epg-signature signal wrong-type-argument epg-signature-p 10] 6 (#$ . 18087)]) #@109 Return a new signature object. (fn TYPE PUBKEY-ALGORITHM DIGEST-ALGORITHM CLASS CREATION-TIME FINGERPRINT) (defalias 'epg-make-new-signature #[1542 "\300\301&B\207" [epg-new-signature vector] 14 (#$ . 18335)]) #@55 Return the type of NEW-SIGNATURE. (fn NEW-SIGNATURE) (defalias 'epg-new-signature-type #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-new-signature signal wrong-type-argument epg-new-signature-p 0] 5 (#$ . 18565)]) #@71 Return the public key algorithm of NEW-SIGNATURE. (fn NEW-SIGNATURE) (defalias 'epg-new-signature-pubkey-algorithm #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-new-signature signal wrong-type-argument epg-new-signature-p 1] 5 (#$ . 18807)]) #@67 Return the digest algorithm of NEW-SIGNATURE. (fn NEW-SIGNATURE) (defalias 'epg-new-signature-digest-algorithm #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-new-signature signal wrong-type-argument epg-new-signature-p 2] 5 (#$ . 19077)]) #@56 Return the class of NEW-SIGNATURE. (fn NEW-SIGNATURE) (defalias 'epg-new-signature-class #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-new-signature signal wrong-type-argument epg-new-signature-p 3] 5 (#$ . 19343)]) #@64 Return the creation time of NEW-SIGNATURE. (fn NEW-SIGNATURE) (defalias 'epg-new-signature-creation-time #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-new-signature signal wrong-type-argument epg-new-signature-p 4] 5 (#$ . 19587)]) #@62 Return the fingerprint of NEW-SIGNATURE. (fn NEW-SIGNATURE) (defalias 'epg-new-signature-fingerprint #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-new-signature signal wrong-type-argument epg-new-signature-p 5] 5 (#$ . 19847)]) #@40 Return a key object. (fn OWNER-TRUST) (defalias 'epg-make-key #[257 "\300\301\302\211#B\207" [epg-key vector nil] 6 (#$ . 20103)]) #@42 Return the owner trust of KEY. (fn KEY) (defalias 'epg-key-owner-trust #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-key signal wrong-type-argument epg-key-p 0] 5 (#$ . 20242)]) #@43 Return the sub key list of KEY. (fn KEY) (defalias 'epg-key-sub-key-list #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-key signal wrong-type-argument epg-key-p 1] 5 (#$ . 20448)]) #@43 Return the user ID list of KEY. (fn KEY) (defalias 'epg-key-user-id-list #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-key signal wrong-type-argument epg-key-p 2] 5 (#$ . 20656)]) #@53 Set the sub key list of KEY. (fn KEY SUB-KEY-LIST) (defalias 'epg-key-set-sub-key-list #[514 "\242\300=\204 \301\302\303D\"\210A\304I\207" [epg-key signal wrong-type-argument epg-key-p 1] 6 (#$ . 20864)]) #@53 Set the user ID list of KEY. (fn KEY USER-ID-LIST) (defalias 'epg-key-set-user-id-list #[514 "\242\300=\204 \301\302\303D\"\210A\304I\207" [epg-key signal wrong-type-argument epg-key-p 2] 6 (#$ . 21081)]) #@111 Return a sub key object. (fn VALIDITY CAPABILITY SECRET-P ALGORITHM LENGTH ID CREATION-TIME EXPIRATION-TIME) (defalias 'epg-make-sub-key #[2056 "\300\301 \302& B\207" [epg-sub-key vector nil] 19 (#$ . 21299)]) #@47 Return the validity of SUB-KEY. (fn SUB-KEY) (defalias 'epg-sub-key-validity #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-sub-key signal wrong-type-argument epg-sub-key-p 0] 5 (#$ . 21531)]) #@49 Return the capability of SUB-KEY. (fn SUB-KEY) (defalias 'epg-sub-key-capability #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-sub-key signal wrong-type-argument epg-sub-key-p 1] 5 (#$ . 21751)]) #@58 Return non-nil if SUB-KEY is a secret key. (fn SUB-KEY) (defalias 'epg-sub-key-secret-p #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-sub-key signal wrong-type-argument epg-sub-key-p 2] 5 (#$ . 21975)]) #@48 Return the algorithm of SUB-KEY. (fn SUB-KEY) (defalias 'epg-sub-key-algorithm #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-sub-key signal wrong-type-argument epg-sub-key-p 3] 5 (#$ . 22206)]) #@45 Return the length of SUB-KEY. (fn SUB-KEY) (defalias 'epg-sub-key-length #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-sub-key signal wrong-type-argument epg-sub-key-p 4] 5 (#$ . 22428)]) #@41 Return the ID of SUB-KEY. (fn SUB-KEY) (defalias 'epg-sub-key-id #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-sub-key signal wrong-type-argument epg-sub-key-p 5] 5 (#$ . 22644)]) #@52 Return the creation time of SUB-KEY. (fn SUB-KEY) (defalias 'epg-sub-key-creation-time #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-sub-key signal wrong-type-argument epg-sub-key-p 6] 5 (#$ . 22852)]) #@54 Return the expiration time of SUB-KEY. (fn SUB-KEY) (defalias 'epg-sub-key-expiration-time #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-sub-key signal wrong-type-argument epg-sub-key-p 7] 5 (#$ . 23082)]) #@50 Return the fingerprint of SUB-KEY. (fn SUB-KEY) (defalias 'epg-sub-key-fingerprint #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-sub-key signal wrong-type-argument epg-sub-key-p 8] 5 (#$ . 23316)]) #@99 Set the fingerprint of SUB-KEY. This function is for internal use only. (fn SUB-KEY FINGERPRINT) (defalias 'epg-sub-key-set-fingerprint #[514 "\242\300=\204 \301\302\303D\"\210A\304I\207" [epg-sub-key signal wrong-type-argument epg-sub-key-p 8] 6 (#$ . 23542)]) #@48 Return a user ID object. (fn VALIDITY STRING) (defalias 'epg-make-user-id #[514 "\300\301\302#B\207" [epg-user-id vector nil] 7 (#$ . 23816)]) #@47 Return the validity of USER-ID. (fn USER-ID) (defalias 'epg-user-id-validity #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-user-id signal wrong-type-argument epg-user-id-p 0] 5 (#$ . 23968)]) #@43 Return the name of USER-ID. (fn USER-ID) (defalias 'epg-user-id-string #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-user-id signal wrong-type-argument epg-user-id-p 1] 5 (#$ . 24188)]) #@53 Return the signature list of USER-ID. (fn USER-ID) (defalias 'epg-user-id-signature-list #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-user-id signal wrong-type-argument epg-user-id-p 2] 5 (#$ . 24402)]) #@65 Set the signature list of USER-ID. (fn USER-ID SIGNATURE-LIST) (defalias 'epg-user-id-set-signature-list #[514 "\242\300=\204 \301\302\303D\"\210A\304I\207" [epg-user-id signal wrong-type-argument epg-user-id-p 2] 6 (#$ . 24634)]) #@128 Return a key signature object. (fn VALIDITY PUBKEY-ALGORITHM KEY-ID CREATION-TIME EXPIRATION-TIME USER-ID CLASS EXPORTABLE-P) (defalias 'epg-make-key-signature #[2056 "\300\301 &B\207" [epg-key-signature vector] 18 (#$ . 24878)]) #@59 Return the validity of KEY-SIGNATURE. (fn KEY-SIGNATURE) (defalias 'epg-key-signature-validity #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-key-signature signal wrong-type-argument epg-key-signature-p 0] 5 (#$ . 25131)]) #@71 Return the public key algorithm of KEY-SIGNATURE. (fn KEY-SIGNATURE) (defalias 'epg-key-signature-pubkey-algorithm #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-key-signature signal wrong-type-argument epg-key-signature-p 1] 5 (#$ . 25381)]) #@57 Return the key-id of KEY-SIGNATURE. (fn KEY-SIGNATURE) (defalias 'epg-key-signature-key-id #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-key-signature signal wrong-type-argument epg-key-signature-p 2] 5 (#$ . 25651)]) #@64 Return the creation time of KEY-SIGNATURE. (fn KEY-SIGNATURE) (defalias 'epg-key-signature-creation-time #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-key-signature signal wrong-type-argument epg-key-signature-p 3] 5 (#$ . 25897)]) #@66 Return the expiration time of KEY-SIGNATURE. (fn KEY-SIGNATURE) (defalias 'epg-key-signature-expiration-time #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-key-signature signal wrong-type-argument epg-key-signature-p 4] 5 (#$ . 26157)]) #@58 Return the user-id of KEY-SIGNATURE. (fn KEY-SIGNATURE) (defalias 'epg-key-signature-user-id #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-key-signature signal wrong-type-argument epg-key-signature-p 5] 5 (#$ . 26421)]) #@56 Return the class of KEY-SIGNATURE. (fn KEY-SIGNATURE) (defalias 'epg-key-signature-class #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-key-signature signal wrong-type-argument epg-key-signature-p 6] 5 (#$ . 26669)]) #@62 Return t if KEY-SIGNATURE is exportable. (fn KEY-SIGNATURE) (defalias 'epg-key-signature-exportable-p #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-key-signature signal wrong-type-argument epg-key-signature-p 7] 5 (#$ . 26913)]) #@78 Return a notation object. (fn NAME VALUE &optional HUMAN-READABLE CRITICAL) (defalias 'epg-make-sig-notation #[1026 "\300\301$B\207" [epg-sig-notation vector] 10 (#$ . 27170)]) #@53 Return the name of SIG-NOTATION. (fn SIG-NOTATION) (defalias 'epg-sig-notation-name #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-sig-notation signal wrong-type-argument epg-sig-notation-p 0] 5 (#$ . 27358)]) #@54 Return the value of SIG-NOTATION. (fn SIG-NOTATION) (defalias 'epg-sig-notation-value #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-sig-notation signal wrong-type-argument epg-sig-notation-p 1] 5 (#$ . 27595)]) #@63 Return the human-readable of SIG-NOTATION. (fn SIG-NOTATION) (defalias 'epg-sig-notation-human-readable #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-sig-notation signal wrong-type-argument epg-sig-notation-p 2] 5 (#$ . 27834)]) #@57 Return the critical of SIG-NOTATION. (fn SIG-NOTATION) (defalias 'epg-sig-notation-critical #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-sig-notation signal wrong-type-argument epg-sig-notation-p 3] 5 (#$ . 28091)]) #@57 Set the value of SIG-NOTATION. (fn SIG-NOTATION VALUE) (defalias 'epg-sig-notation-set-value #[514 "\242\300=\204 \301\302\303D\"\210A\304I\207" [epg-sig-notation signal wrong-type-argument epg-sig-notation-p 1] 6 (#$ . 28336)]) #@105 Return an import status object. (fn FINGERPRINT &optional REASON NEW USER-ID SIGNATURE SUB-KEY SECRET) (defalias 'epg-make-import-status #[1793 "\300\301&B\207" [epg-import-status vector] 16 (#$ . 28578)]) #@76 Return the fingerprint of the key that was considered. (fn IMPORT-STATUS) (defalias 'epg-import-status-fingerprint #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-import-status signal wrong-type-argument epg-import-status-p 0] 5 (#$ . 28806)]) #@64 Return the reason code for import failure. (fn IMPORT-STATUS) (defalias 'epg-import-status-reason #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-import-status signal wrong-type-argument epg-import-status-p 1] 5 (#$ . 29076)]) #@59 Return t if the imported key was new. (fn IMPORT-STATUS) (defalias 'epg-import-status-new #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-import-status signal wrong-type-argument epg-import-status-p 2] 5 (#$ . 29329)]) #@74 Return t if the imported key contained new user IDs. (fn IMPORT-STATUS) (defalias 'epg-import-status-user-id #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-import-status signal wrong-type-argument epg-import-status-p 3] 5 (#$ . 29574)]) #@76 Return t if the imported key contained new signatures. (fn IMPORT-STATUS) (defalias 'epg-import-status-signature #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-import-status signal wrong-type-argument epg-import-status-p 4] 5 (#$ . 29838)]) #@74 Return t if the imported key contained new sub keys. (fn IMPORT-STATUS) (defalias 'epg-import-status-sub-key #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-import-status signal wrong-type-argument epg-import-status-p 5] 5 (#$ . 30106)]) #@74 Return t if the imported key contained a secret key. (fn IMPORT-STATUS) (defalias 'epg-import-status-secret #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-import-status signal wrong-type-argument epg-import-status-p 6] 5 (#$ . 30370)]) #@216 Return an import result object. (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&B\207" [epg-import-result vector] 30 (#$ . 30634)]) #@65 Return the total number of considered keys. (fn IMPORT-RESULT) (defalias 'epg-import-result-considered #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-import-result signal wrong-type-argument epg-import-result-p 0] 5 (#$ . 30987)]) #@64 Return the number of keys without user ID. (fn IMPORT-RESULT) (defalias 'epg-import-result-no-user-id #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-import-result signal wrong-type-argument epg-import-result-p 1] 5 (#$ . 31245)]) #@57 Return the number of imported keys. (fn IMPORT-RESULT) (defalias 'epg-import-result-imported #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-import-result signal wrong-type-argument epg-import-result-p 2] 5 (#$ . 31502)]) #@61 Return the number of imported RSA keys. (fn IMPORT-RESULT) (defalias 'epg-import-result-imported-rsa #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-import-result signal wrong-type-argument epg-import-result-p 3] 5 (#$ . 31750)]) #@58 Return the number of unchanged keys. (fn IMPORT-RESULT) (defalias 'epg-import-result-unchanged #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-import-result signal wrong-type-argument epg-import-result-p 4] 5 (#$ . 32006)]) #@56 Return the number of new user IDs. (fn IMPORT-RESULT) (defalias 'epg-import-result-new-user-ids #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-import-result signal wrong-type-argument epg-import-result-p 5] 5 (#$ . 32256)]) #@56 Return the number of new sub keys. (fn IMPORT-RESULT) (defalias 'epg-import-result-new-sub-keys #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-import-result signal wrong-type-argument epg-import-result-p 6] 5 (#$ . 32507)]) #@58 Return the number of new signatures. (fn IMPORT-RESULT) (defalias 'epg-import-result-new-signatures #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-import-result signal wrong-type-argument epg-import-result-p 7] 5 (#$ . 32758)]) #@59 Return the number of new revocations. (fn IMPORT-RESULT) (defalias 'epg-import-result-new-revocations #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-import-result signal wrong-type-argument epg-import-result-p 8] 5 (#$ . 33013)]) #@66 Return the total number of secret keys read. (fn IMPORT-RESULT) (defalias 'epg-import-result-secret-read #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-import-result signal wrong-type-argument epg-import-result-p 9] 5 (#$ . 33270)]) #@64 Return the number of imported secret keys. (fn IMPORT-RESULT) (defalias 'epg-import-result-secret-imported #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-import-result signal wrong-type-argument epg-import-result-p 10] 5 (#$ . 33530)]) #@65 Return the number of unchanged secret keys. (fn IMPORT-RESULT) (defalias 'epg-import-result-secret-unchanged #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-import-result signal wrong-type-argument epg-import-result-p 11] 5 (#$ . 33793)]) #@61 Return the number of keys not imported. (fn IMPORT-RESULT) (defalias 'epg-import-result-not-imported #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-import-result signal wrong-type-argument epg-import-result-p 12] 5 (#$ . 34058)]) #@69 Return the list of `epg-import-status' objects. (fn IMPORT-RESULT) (defalias 'epg-import-result-imports #[257 "\211\242\300=\204 \301\302\303D\"\210\211A\304H\207" [epg-import-result signal wrong-type-argument epg-import-result-p 13] 5 (#$ . 34315)]) #@71 Return the result of CONTEXT associated with NAME. (fn CONTEXT NAME) (defalias 'epg-context-result-for #[514 "\211\300!\236A\207" [epg-context-result] 5 (#$ . 34575)]) #@83 Set the result of CONTEXT associated with NAME to VALUE. (fn CONTEXT NAME VALUE) (defalias 'epg-context-set-result-for #[771 "\300!\236\211\203 \211\241\202 \301BB\"\207" [epg-context-result epg-context-set-result] 9 (#$ . 34751)]) #@63 Convert SIGNATURE to a human readable string. (fn SIGNATURE) (defalias 'epg-signature-to-string #[257 "\302\303!\"A\304!\305!\306=\203 \307\202O \305!\310=\203\"