;ELC ;;; Compiled by buildd@akateko.buildd on Fri Oct 25 13:50:04 2013 ;;; from file /build/buildd/emacs23-23.4+1/debian/build-x/lisp/epg.el ;;; in Emacs version 23.4.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 (#$ . 555)) #@42 An alist mapping from key ID to user ID. (defvar epg-user-id-alist nil (#$ . 632)) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\306B\302\306!\204-\303\306\304\"\210\307B\302\307!\204<\303\307\304\"\210\310B\302\310!\204K\303\310\304\"\210\311B\302\311!\204Z\303\311\304\"\210\312B\302\312!\204i\303\312\304\"\210\313B\314\315!\210\316B\317\320!\210\321B\322\323!\210\324B\325\326!\210\327B\330\331!\210\332B\333\334!\210\335B\336\337!\210\340B\341\342!\210\343B\344\345!\210\346B\347\304!\210\350B\302\350!\204\310\303\350\351\"\210\352B\302\352!\204\327\303\352\353\"\210\354B\302\354!\204\346\303\354\355\"\210\356B\302\356!\204\365\303\356\357\"\210\360B\302\360!\204\303\360\304\"\210\361\362\363\364#\207" [current-load-list epg-last-status default-boundp set-default nil epg-read-point epg-process-filter-running epg-pending-status-list epg-key-id epg-context epg-debug-buffer epg-cipher-algorithm-alist (lambda (#1=#:defconst-tmp-var) (defconst epg-cipher-algorithm-alist #1#)) ((0 . "NONE") (1 . "IDEA") (2 . "3DES") (3 . "CAST5") (4 . "BLOWFISH") (7 . "AES") (8 . "AES192") (9 . "AES256") (10 . "TWOFISH") (11 . "CAMELLIA128") (12 . "CAMELLIA256") (110 . "DUMMY")) epg-pubkey-algorithm-alist (lambda (#2=#:defconst-tmp-var) (defconst epg-pubkey-algorithm-alist #2#)) ((1 . "RSA") (2 . "RSA_E") (3 . "RSA_S") (16 . "ELGAMAL_E") (17 . "DSA") (20 . "ELGAMAL")) epg-digest-algorithm-alist (lambda (#3=#:defconst-tmp-var) (defconst epg-digest-algorithm-alist #3#)) ((1 . "MD5") (2 . "SHA1") (3 . "RIPEMD160") (8 . "SHA256") (9 . "SHA384") (10 . "SHA512") (11 . "SHA224")) epg-compress-algorithm-alist (lambda (#4=#:defconst-tmp-var) (defconst epg-compress-algorithm-alist #4#)) ((0 . "NONE") (1 . "ZIP") (2 . "ZLIB") (3 . "BZIP2")) epg-invalid-recipients-reason-alist (lambda (#5=#:defconst-tmp-var) (defconst epg-invalid-recipients-reason-alist #5#)) ((0 . "No specific reason given") (1 . "Not Found") (2 . "Ambigious 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")) epg-delete-problem-reason-alist (lambda (#6=#:defconst-tmp-var) (defconst epg-delete-problem-reason-alist #6#)) ((1 . "No such key") (2 . "Must delete secret key first") (3 . "Ambigious specification")) epg-import-ok-reason-alist (lambda (#7=#:defconst-tmp-var) (defconst epg-import-ok-reason-alist #7#)) ((0 . "Not actually changed") (1 . "Entirely new key") (2 . "New user IDs") (4 . "New signatures") (8 . "New subkeys") (16 . "Contains private key")) epg-import-problem-reason-alist (lambda (#8=#:defconst-tmp-var) (defconst epg-import-problem-reason-alist #8#)) ((0 . "No specific reason given") (1 . "Invalid Certificate") (2 . "Issuer Certificate missing") (3 . "Certificate Chain too long") (4 . "Error storing certificate")) epg-no-data-reason-alist (lambda (#9=#:defconst-tmp-var) (defconst epg-no-data-reason-alist #9#)) ((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")) epg-unexpected-reason-alist (lambda (#10=#:defconst-tmp-var) (defconst epg-unexpected-reason-alist #10#)) 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)) epg-key-capablity-alist ((101 . encrypt) (115 . sign) (99 . certify) (97 . authentication)) epg-new-signature-type-alist ((68 . detached) (67 . clear) (83 . normal)) 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")) epg-prompt-alist put epg-error error-conditions (epg-error error)] 4) #@31 Make a data object from FILE. (defalias 'epg-make-data-from-file #[(file) "\301\302\303\"B\207" [file epg-data vector nil] 4 (#$ . 4712)]) #@33 Make a data object from STRING. (defalias 'epg-make-data-from-string #[(string) "\301\302\303\"B\207" [string epg-data vector nil] 4 (#$ . 4858)]) #@26 Return the file of DATA. (defalias 'epg-data-file #[(data) "\242\301=\204\302\303\304D\"\210A\305H\207" [data epg-data signal wrong-type-argument epg-data-p 0] 4 (#$ . 5012)]) #@28 Return the string of DATA. (defalias 'epg-data-string #[(data) "\242\301=\204\302\303\304D\"\210A\305H\207" [data epg-data signal wrong-type-argument epg-data-p 1] 4 (#$ . 5199)]) #@26 Return a context object. (defalias 'epg-make-context #[(&optional protocol armor textmode include-certs cipher-algorithm digest-algorithm compress-algorithm) "\306\307\206\310 \n \f  \311C\312\211\211\211\211\211\211&B\207" [protocol armor textmode include-certs cipher-algorithm digest-algorithm epg-context vector OpenPGP epg-passphrase-callback-function nil compress-algorithm] 17 (#$ . 5390)]) #@42 Return the protocol used within CONTEXT. (defalias 'epg-context-protocol #[(context) "\242\301=\204\302\303\304D\"\210A\305H\207" [context epg-context signal wrong-type-argument epg-context-p 0] 4 (#$ . 5799)]) #@60 Return t if the output should be ASCII armored in CONTEXT. (defalias 'epg-context-armor #[(context) "\242\301=\204\302\303\304D\"\210A\305H\207" [context epg-context signal wrong-type-argument epg-context-p 1] 4 (#$ . 6021)]) #@60 Return t if canonical text mode should be used in CONTEXT. (defalias 'epg-context-textmode #[(context) "\242\301=\204\302\303\304D\"\210A\305H\207" [context epg-context signal wrong-type-argument epg-context-p 2] 4 (#$ . 6258)]) #@78 Return how many certificates should be included in an S/MIME signed message. (defalias 'epg-context-include-certs #[(context) "\242\301=\204\302\303\304D\"\210A\305H\207" [context epg-context signal wrong-type-argument epg-context-p 3] 4 (#$ . 6498)]) #@41 Return the cipher algorithm in CONTEXT. (defalias 'epg-context-cipher-algorithm #[(context) "\242\301=\204\302\303\304D\"\210A\305H\207" [context epg-context signal wrong-type-argument epg-context-p 4] 4 (#$ . 6761)]) #@41 Return the digest algorithm in CONTEXT. (defalias 'epg-context-digest-algorithm #[(context) "\242\301=\204\302\303\304D\"\210A\305H\207" [context epg-context signal wrong-type-argument epg-context-p 5] 4 (#$ . 6990)]) #@43 Return the compress algorithm in CONTEXT. (defalias 'epg-context-compress-algorithm #[(context) "\242\301=\204\302\303\304D\"\210A\305H\207" [context epg-context signal wrong-type-argument epg-context-p 6] 4 (#$ . 7219)]) #@47 Return the function used to query passphrase. (defalias 'epg-context-passphrase-callback #[(context) "\242\301=\204\302\303\304D\"\210A\305H\207" [context epg-context signal wrong-type-argument epg-context-p 7] 4 (#$ . 7452)]) #@52 Return the function which handles progress update. (defalias 'epg-context-progress-callback #[(context) "\242\301=\204\302\303\304D\"\210A\305H\207" [context epg-context signal wrong-type-argument epg-context-p 8] 4 (#$ . 7690)]) #@40 Return the list of key-id for signing. (defalias 'epg-context-signers #[(context) "\242\301=\204\302\303\304D\"\210A\305H\207" [context epg-context signal wrong-type-argument epg-context-p 9] 4 (#$ . 7931)]) #@43 Return the list of notations for signing. (defalias 'epg-context-sig-notations #[(context) "\242\301=\204\302\303\304D\"\210A\305H\207" [context epg-context signal wrong-type-argument epg-context-p 10] 4 (#$ . 8150)]) #@89 Return the process object of `epg-gpg-program'. This function is for internal use only. (defalias 'epg-context-process #[(context) "\242\301=\204\302\303\304D\"\210A\305H\207" [context epg-context signal wrong-type-argument epg-context-p 11] 4 (#$ . 8379)]) #@86 Return the output file of `epg-gpg-program'. This function is for internal use only. (defalias 'epg-context-output-file #[(context) "\242\301=\204\302\303\304D\"\210A\305H\207" [context epg-context signal wrong-type-argument epg-context-p 12] 4 (#$ . 8648)]) #@60 Return the result of the previous cryptographic operation. (defalias 'epg-context-result #[(context) "\242\301=\204\302\303\304D\"\210A\305H\207" [context epg-context signal wrong-type-argument epg-context-p 13] 4 (#$ . 8918)]) #@57 Return the name of the current cryptographic operation. (defalias 'epg-context-operation #[(context) "\242\301=\204\302\303\304D\"\210A\305H\207" [context epg-context signal wrong-type-argument epg-context-p 14] 4 (#$ . 9157)]) #@39 Set the protocol used within CONTEXT. (defalias 'epg-context-set-protocol #[(context protocol) "\242\302=\204\303\304\305D\"\210A\306 I\207" [context protocol epg-context signal wrong-type-argument epg-context-p 0] 4 (#$ . 9396)]) #@59 Specify if the output should be ASCII armored in CONTEXT. (defalias 'epg-context-set-armor #[(context armor) "\242\302=\204\303\304\305D\"\210A\306 I\207" [context armor epg-context signal wrong-type-argument epg-context-p 1] 4 (#$ . 9638)]) #@59 Specify if canonical text mode should be used in CONTEXT. (defalias 'epg-context-set-textmode #[(context textmode) "\242\302=\204\303\304\305D\"\210A\306 I\207" [context textmode epg-context signal wrong-type-argument epg-context-p 2] 4 (#$ . 9891)]) #@75 Set how many certificates should be included in an S/MIME signed message. (defalias 'epg-context-set-include-certs #[(context include-certs) "\242\302=\204\303\304\305D\"\210A\306 I\207" [context include-certs epg-context signal wrong-type-argument epg-context-p 3] 4 (#$ . 10153)]) #@38 Set the cipher algorithm in CONTEXT. (defalias 'epg-context-set-cipher-algorithm #[(context cipher-algorithm) "\242\302=\204\303\304\305D\"\210A\306 I\207" [context cipher-algorithm epg-context signal wrong-type-argument epg-context-p 4] 4 (#$ . 10447)]) #@38 Set the digest algorithm in CONTEXT. (defalias 'epg-context-set-digest-algorithm #[(context digest-algorithm) "\242\302=\204\303\304\305D\"\210A\306 I\207" [context digest-algorithm epg-context signal wrong-type-argument epg-context-p 5] 4 (#$ . 10713)]) #@40 Set the compress algorithm in CONTEXT. (defalias 'epg-context-set-compress-algorithm #[(context compress-algorithm) "\242\302=\204\303\304\305D\"\210A\306 I\207" [context compress-algorithm epg-context signal wrong-type-argument epg-context-p 6] 4 (#$ . 10979)]) #@563 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. (defalias 'epg-context-set-passphrase-callback #[(context passphrase-callback) "\242\302=\204\303\304\305D\"\210A\306 :\203 \202 CI\207" [context passphrase-callback epg-context signal wrong-type-argument epg-context-p 7] 4 (#$ . 11254)]) #@360 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 five 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). (defalias 'epg-context-set-progress-callback #[(context progress-callback) "\242\302=\204\303\304\305D\"\210A\306 :\203 \202 CI\207" [context progress-callback epg-context signal wrong-type-argument epg-context-p 8] 4 (#$ . 12071)]) #@37 Set the list of key-id for signing. (defalias 'epg-context-set-signers #[(context signers) "\242\302=\204\303\304\305D\"\210A\306 I\207" [context signers epg-context signal wrong-type-argument epg-context-p 9] 4 (#$ . 12678)]) #@40 Set the list of notations for signing. (defalias 'epg-context-set-sig-notations #[(context notations) "\242\302=\204\303\304\305D\"\210A\306 I\207" [context notations epg-context signal wrong-type-argument epg-context-p 10] 4 (#$ . 12916)]) #@86 Set the process object of `epg-gpg-program'. This function is for internal use only. (defalias 'epg-context-set-process #[(context process) "\242\302=\204\303\304\305D\"\210A\306 I\207" [context process epg-context signal wrong-type-argument epg-context-p 11] 4 (#$ . 13168)]) #@83 Set the output file of `epg-gpg-program'. This function is for internal use only. (defalias 'epg-context-set-output-file #[(context output-file) "\242\302=\204\303\304\305D\"\210A\306 I\207" [context output-file epg-context signal wrong-type-argument epg-context-p 12] 4 (#$ . 13456)]) #@57 Set the result of the previous cryptographic operation. (defalias 'epg-context-set-result #[(context result) "\242\302=\204\303\304\305D\"\210A\306 I\207" [context result epg-context signal wrong-type-argument epg-context-p 13] 4 (#$ . 13753)]) #@54 Set the name of the current cryptographic operation. (defalias 'epg-context-set-operation #[(context operation) "\242\302=\204\303\304\305D\"\210A\306 I\207" [context operation epg-context signal wrong-type-argument epg-context-p 14] 4 (#$ . 14009)]) #@28 Return a signature object. (defalias 'epg-make-signature #[(status &optional key-id) "\302\303 \304\211\211\211\211\211\211\211\211& B\207" [status key-id epg-signature vector nil] 13 (#$ . 14271)]) #@38 Return the status code of SIGNATURE. (defalias 'epg-signature-status #[(signature) "\242\301=\204\302\303\304D\"\210A\305H\207" [signature epg-signature signal wrong-type-argument epg-signature-p 0] 4 (#$ . 14477)]) #@33 Return the key-id of SIGNATURE. (defalias 'epg-signature-key-id #[(signature) "\242\301=\204\302\303\304D\"\210A\305H\207" [signature epg-signature signal wrong-type-argument epg-signature-p 1] 4 (#$ . 14704)]) #@35 Return the validity of SIGNATURE. (defalias 'epg-signature-validity #[(signature) "\242\301=\204\302\303\304D\"\210A\305H\207" [signature epg-signature signal wrong-type-argument epg-signature-p 2] 4 (#$ . 14926)]) #@38 Return the fingerprint of SIGNATURE. (defalias 'epg-signature-fingerprint #[(signature) "\242\301=\204\302\303\304D\"\210A\305H\207" [signature epg-signature signal wrong-type-argument epg-signature-p 3] 4 (#$ . 15152)]) #@40 Return the creation time of SIGNATURE. (defalias 'epg-signature-creation-time #[(signature) "\242\301=\204\302\303\304D\"\210A\305H\207" [signature epg-signature signal wrong-type-argument epg-signature-p 4] 4 (#$ . 15384)]) #@42 Return the expiration time of SIGNATURE. (defalias 'epg-signature-expiration-time #[(signature) "\242\301=\204\302\303\304D\"\210A\305H\207" [signature epg-signature signal wrong-type-argument epg-signature-p 5] 4 (#$ . 15620)]) #@47 Return the public key algorithm of SIGNATURE. (defalias 'epg-signature-pubkey-algorithm #[(signature) "\242\301=\204\302\303\304D\"\210A\305H\207" [signature epg-signature signal wrong-type-argument epg-signature-p 6] 4 (#$ . 15860)]) #@43 Return the digest algorithm of SIGNATURE. (defalias 'epg-signature-digest-algorithm #[(signature) "\242\301=\204\302\303\304D\"\210A\305H\207" [signature epg-signature signal wrong-type-argument epg-signature-p 7] 4 (#$ . 16106)]) #@32 Return the class of SIGNATURE. (defalias 'epg-signature-class #[(signature) "\242\301=\204\302\303\304D\"\210A\305H\207" [signature epg-signature signal wrong-type-argument epg-signature-p 8] 4 (#$ . 16348)]) #@34 Return the version of SIGNATURE. (defalias 'epg-signature-version #[(signature) "\242\301=\204\302\303\304D\"\210A\305H\207" [signature epg-signature signal wrong-type-argument epg-signature-p 9] 4 (#$ . 16568)]) #@44 Return the list of notations of SIGNATURE. (defalias 'epg-sig-notations #[(signature) "\242\301=\204\302\303\304D\"\210A\305H\207" [signature epg-signature signal wrong-type-argument epg-signature-p 10] 4 (#$ . 16792)]) #@35 Set the status code of SIGNATURE. (defalias 'epg-signature-set-status #[(signature status) "\242\302=\204\303\304\305D\"\210A\306 I\207" [signature status epg-signature signal wrong-type-argument epg-signature-p 0] 4 (#$ . 17023)]) #@30 Set the key-id of SIGNATURE. (defalias 'epg-signature-set-key-id #[(signature key-id) "\242\302=\204\303\304\305D\"\210A\306 I\207" [signature key-id epg-signature signal wrong-type-argument epg-signature-p 1] 4 (#$ . 17266)]) #@32 Set the validity of SIGNATURE. (defalias 'epg-signature-set-validity #[(signature validity) "\242\302=\204\303\304\305D\"\210A\306 I\207" [signature validity epg-signature signal wrong-type-argument epg-signature-p 2] 4 (#$ . 17504)]) #@35 Set the fingerprint of SIGNATURE. (defalias 'epg-signature-set-fingerprint #[(signature fingerprint) "\242\302=\204\303\304\305D\"\210A\306 I\207" [signature fingerprint epg-signature signal wrong-type-argument epg-signature-p 3] 4 (#$ . 17750)]) #@37 Set the creation time of SIGNATURE. (defalias 'epg-signature-set-creation-time #[(signature creation-time) "\242\302=\204\303\304\305D\"\210A\306 I\207" [signature creation-time epg-signature signal wrong-type-argument epg-signature-p 4] 4 (#$ . 18008)]) #@39 Set the expiration time of SIGNATURE. (defalias 'epg-signature-set-expiration-time #[(signature expiration-time) "\242\302=\204\303\304\305D\"\210A\306 I\207" [signature expiration-time epg-signature signal wrong-type-argument epg-signature-p 5] 4 (#$ . 18274)]) #@44 Set the public key algorithm of SIGNATURE. (defalias 'epg-signature-set-pubkey-algorithm #[(signature pubkey-algorithm) "\242\302=\204\303\304\305D\"\210A\306 I\207" [signature pubkey-algorithm epg-signature signal wrong-type-argument epg-signature-p 6] 4 (#$ . 18548)]) #@40 Set the digest algorithm of SIGNATURE. (defalias 'epg-signature-set-digest-algorithm #[(signature digest-algorithm) "\242\302=\204\303\304\305D\"\210A\306 I\207" [signature digest-algorithm epg-signature signal wrong-type-argument epg-signature-p 7] 4 (#$ . 18830)]) #@29 Set the class of SIGNATURE. (defalias 'epg-signature-set-class #[(signature class) "\242\302=\204\303\304\305D\"\210A\306 I\207" [signature class epg-signature signal wrong-type-argument epg-signature-p 8] 4 (#$ . 19108)]) #@31 Set the version of SIGNATURE. (defalias 'epg-signature-set-version #[(signature version) "\242\302=\204\303\304\305D\"\210A\306 I\207" [signature version epg-signature signal wrong-type-argument epg-signature-p 9] 4 (#$ . 19342)]) #@41 Set the list of notations of SIGNATURE. (defalias 'epg-signature-set-notations #[(signature notations) "\242\302=\204\303\304\305D\"\210A\306 I\207" [signature notations epg-signature signal wrong-type-argument epg-signature-p 10] 4 (#$ . 19584)]) #@32 Return a new signature object. (defalias 'epg-make-new-signature #[(type pubkey-algorithm digest-algorithm class creation-time fingerprint) "\306\307 \n \f &B\207" [type pubkey-algorithm digest-algorithm class creation-time fingerprint epg-new-signature vector] 8 (#$ . 19843)]) #@35 Return the type of NEW-SIGNATURE. (defalias 'epg-new-signature-type #[(new-signature) "\242\301=\204\302\303\304D\"\210A\305H\207" [new-signature epg-new-signature signal wrong-type-argument epg-new-signature-p 0] 4 (#$ . 20130)]) #@51 Return the public key algorithm of NEW-SIGNATURE. (defalias 'epg-new-signature-pubkey-algorithm #[(new-signature) "\242\301=\204\302\303\304D\"\210A\305H\207" [new-signature epg-new-signature signal wrong-type-argument epg-new-signature-p 1] 4 (#$ . 20372)]) #@47 Return the digest algorithm of NEW-SIGNATURE. (defalias 'epg-new-signature-digest-algorithm #[(new-signature) "\242\301=\204\302\303\304D\"\210A\305H\207" [new-signature epg-new-signature signal wrong-type-argument epg-new-signature-p 2] 4 (#$ . 20642)]) #@36 Return the class of NEW-SIGNATURE. (defalias 'epg-new-signature-class #[(new-signature) "\242\301=\204\302\303\304D\"\210A\305H\207" [new-signature epg-new-signature signal wrong-type-argument epg-new-signature-p 3] 4 (#$ . 20908)]) #@44 Return the creation time of NEW-SIGNATURE. (defalias 'epg-new-signature-creation-time #[(new-signature) "\242\301=\204\302\303\304D\"\210A\305H\207" [new-signature epg-new-signature signal wrong-type-argument epg-new-signature-p 4] 4 (#$ . 21152)]) #@42 Return the fingerprint of NEW-SIGNATURE. (defalias 'epg-new-signature-fingerprint #[(new-signature) "\242\301=\204\302\303\304D\"\210A\305H\207" [new-signature epg-new-signature signal wrong-type-argument epg-new-signature-p 5] 4 (#$ . 21412)]) #@22 Return a key object. (defalias 'epg-make-key #[(owner-trust) "\301\302\303\211#B\207" [owner-trust epg-key vector nil] 5 (#$ . 21668)]) #@32 Return the owner trust of KEY. (defalias 'epg-key-owner-trust #[(key) "\242\301=\204\302\303\304D\"\210A\305H\207" [key epg-key signal wrong-type-argument epg-key-p 0] 4 (#$ . 21811)]) #@33 Return the sub key list of KEY. (defalias 'epg-key-sub-key-list #[(key) "\242\301=\204\302\303\304D\"\210A\305H\207" [key epg-key signal wrong-type-argument epg-key-p 1] 4 (#$ . 22007)]) #@33 Return the user ID list of KEY. (defalias 'epg-key-user-id-list #[(key) "\242\301=\204\302\303\304D\"\210A\305H\207" [key epg-key signal wrong-type-argument epg-key-p 2] 4 (#$ . 22205)]) #@30 Set the sub key list of KEY. (defalias 'epg-key-set-sub-key-list #[(key sub-key-list) "\242\302=\204\303\304\305D\"\210A\306 I\207" [key sub-key-list epg-key signal wrong-type-argument epg-key-p 1] 4 (#$ . 22403)]) #@30 Set the user ID list of KEY. (defalias 'epg-key-set-user-id-list #[(key user-id-list) "\242\302=\204\303\304\305D\"\210A\306 I\207" [key user-id-list epg-key signal wrong-type-argument epg-key-p 2] 4 (#$ . 22629)]) #@26 Return a sub key object. (defalias 'epg-make-sub-key #[(validity capability secret-p algorithm length id creation-time expiration-time) "\306\307 \n \f  \n\310& B\207" [validity capability secret-p algorithm length id epg-sub-key vector nil creation-time expiration-time] 11 (#$ . 22855)]) #@33 Return the validity of SUB-KEY. (defalias 'epg-sub-key-validity #[(sub-key) "\242\301=\204\302\303\304D\"\210A\305H\207" [sub-key epg-sub-key signal wrong-type-argument epg-sub-key-p 0] 4 (#$ . 23154)]) #@35 Return the capability of SUB-KEY. (defalias 'epg-sub-key-capability #[(sub-key) "\242\301=\204\302\303\304D\"\210A\305H\207" [sub-key epg-sub-key signal wrong-type-argument epg-sub-key-p 1] 4 (#$ . 23368)]) #@44 Return non-nil if SUB-KEY is a secret key. (defalias 'epg-sub-key-secret-p #[(sub-key) "\242\301=\204\302\303\304D\"\210A\305H\207" [sub-key epg-sub-key signal wrong-type-argument epg-sub-key-p 2] 4 (#$ . 23586)]) #@34 Return the algorithm of SUB-KEY. (defalias 'epg-sub-key-algorithm #[(sub-key) "\242\301=\204\302\303\304D\"\210A\305H\207" [sub-key epg-sub-key signal wrong-type-argument epg-sub-key-p 3] 4 (#$ . 23811)]) #@31 Return the length of SUB-KEY. (defalias 'epg-sub-key-length #[(sub-key) "\242\301=\204\302\303\304D\"\210A\305H\207" [sub-key epg-sub-key signal wrong-type-argument epg-sub-key-p 4] 4 (#$ . 24027)]) #@27 Return the ID of SUB-KEY. (defalias 'epg-sub-key-id #[(sub-key) "\242\301=\204\302\303\304D\"\210A\305H\207" [sub-key epg-sub-key signal wrong-type-argument epg-sub-key-p 5] 4 (#$ . 24237)]) #@38 Return the creation time of SUB-KEY. (defalias 'epg-sub-key-creation-time #[(sub-key) "\242\301=\204\302\303\304D\"\210A\305H\207" [sub-key epg-sub-key signal wrong-type-argument epg-sub-key-p 6] 4 (#$ . 24439)]) #@40 Return the expiration time of SUB-KEY. (defalias 'epg-sub-key-expiration-time #[(sub-key) "\242\301=\204\302\303\304D\"\210A\305H\207" [sub-key epg-sub-key signal wrong-type-argument epg-sub-key-p 7] 4 (#$ . 24663)]) #@36 Return the fingerprint of SUB-KEY. (defalias 'epg-sub-key-fingerprint #[(sub-key) "\242\301=\204\302\303\304D\"\210A\305H\207" [sub-key epg-sub-key signal wrong-type-argument epg-sub-key-p 8] 4 (#$ . 24891)]) #@73 Set the fingerprint of SUB-KEY. This function is for internal use only. (defalias 'epg-sub-key-set-fingerprint #[(sub-key fingerprint) "\242\302=\204\303\304\305D\"\210A\306 I\207" [sub-key fingerprint epg-sub-key signal wrong-type-argument epg-sub-key-p 8] 4 (#$ . 25111)]) #@26 Return a user ID object. (defalias 'epg-make-user-id #[(validity string) "\302\303 \304#B\207" [validity string epg-user-id vector nil] 5 (#$ . 25397)]) #@33 Return the validity of USER-ID. (defalias 'epg-user-id-validity #[(user-id) "\242\301=\204\302\303\304D\"\210A\305H\207" [user-id epg-user-id signal wrong-type-argument epg-user-id-p 0] 4 (#$ . 25557)]) #@29 Return the name of USER-ID. (defalias 'epg-user-id-string #[(user-id) "\242\301=\204\302\303\304D\"\210A\305H\207" [user-id epg-user-id signal wrong-type-argument epg-user-id-p 1] 4 (#$ . 25771)]) #@39 Return the signature list of USER-ID. (defalias 'epg-user-id-signature-list #[(user-id) "\242\301=\204\302\303\304D\"\210A\305H\207" [user-id epg-user-id signal wrong-type-argument epg-user-id-p 2] 4 (#$ . 25979)]) #@36 Set the signature list of USER-ID. (defalias 'epg-user-id-set-signature-list #[(user-id signature-list) "\242\302=\204\303\304\305D\"\210A\306 I\207" [user-id signature-list epg-user-id signal wrong-type-argument epg-user-id-p 2] 4 (#$ . 26205)]) #@32 Return a key signature object. (defalias 'epg-make-key-signature #[(validity pubkey-algorithm key-id creation-time expiration-time user-id class exportable-p) "\306\307 \n \f  &B\207" [validity pubkey-algorithm key-id creation-time expiration-time user-id epg-key-signature vector class exportable-p] 10 (#$ . 26463)]) #@39 Return the validity of KEY-SIGNATURE. (defalias 'epg-key-signature-validity #[(key-signature) "\242\301=\204\302\303\304D\"\210A\305H\207" [key-signature epg-key-signature signal wrong-type-argument epg-key-signature-p 0] 4 (#$ . 26793)]) #@51 Return the public key algorithm of KEY-SIGNATURE. (defalias 'epg-key-signature-pubkey-algorithm #[(key-signature) "\242\301=\204\302\303\304D\"\210A\305H\207" [key-signature epg-key-signature signal wrong-type-argument epg-key-signature-p 1] 4 (#$ . 27043)]) #@37 Return the key-id of KEY-SIGNATURE. (defalias 'epg-key-signature-key-id #[(key-signature) "\242\301=\204\302\303\304D\"\210A\305H\207" [key-signature epg-key-signature signal wrong-type-argument epg-key-signature-p 2] 4 (#$ . 27313)]) #@44 Return the creation time of KEY-SIGNATURE. (defalias 'epg-key-signature-creation-time #[(key-signature) "\242\301=\204\302\303\304D\"\210A\305H\207" [key-signature epg-key-signature signal wrong-type-argument epg-key-signature-p 3] 4 (#$ . 27559)]) #@46 Return the expiration time of KEY-SIGNATURE. (defalias 'epg-key-signature-expiration-time #[(key-signature) "\242\301=\204\302\303\304D\"\210A\305H\207" [key-signature epg-key-signature signal wrong-type-argument epg-key-signature-p 4] 4 (#$ . 27819)]) #@38 Return the user-id of KEY-SIGNATURE. (defalias 'epg-key-signature-user-id #[(key-signature) "\242\301=\204\302\303\304D\"\210A\305H\207" [key-signature epg-key-signature signal wrong-type-argument epg-key-signature-p 5] 4 (#$ . 28083)]) #@36 Return the class of KEY-SIGNATURE. (defalias 'epg-key-signature-class #[(key-signature) "\242\301=\204\302\303\304D\"\210A\305H\207" [key-signature epg-key-signature signal wrong-type-argument epg-key-signature-p 6] 4 (#$ . 28331)]) #@42 Return t if KEY-SIGNATURE is exportable. (defalias 'epg-key-signature-exportable-p #[(key-signature) "\242\301=\204\302\303\304D\"\210A\305H\207" [key-signature epg-key-signature signal wrong-type-argument epg-key-signature-p 7] 4 (#$ . 28575)]) #@27 Return a notation object. (defalias 'epg-make-sig-notation #[(name value &optional human-readable critical) "\304\305 \n $B\207" [name value human-readable critical epg-sig-notation vector] 6 (#$ . 28832)]) #@34 Return the name of SIG-NOTATION. (defalias 'epg-sig-notation-name #[(sig-notation) "\242\301=\204\302\303\304D\"\210A\305H\207" [sig-notation epg-sig-notation signal wrong-type-argument epg-sig-notation-p 0] 4 (#$ . 29046)]) #@35 Return the value of SIG-NOTATION. (defalias 'epg-sig-notation-value #[(sig-notation) "\242\301=\204\302\303\304D\"\210A\305H\207" [sig-notation epg-sig-notation signal wrong-type-argument epg-sig-notation-p 1] 4 (#$ . 29282)]) #@44 Return the human-readable of SIG-NOTATION. (defalias 'epg-sig-notation-human-readable #[(sig-notation) "\242\301=\204\302\303\304D\"\210A\305H\207" [sig-notation epg-sig-notation signal wrong-type-argument epg-sig-notation-p 2] 4 (#$ . 29520)]) #@38 Return the critical of SIG-NOTATION. (defalias 'epg-sig-notation-critical #[(sig-notation) "\242\301=\204\302\303\304D\"\210A\305H\207" [sig-notation epg-sig-notation signal wrong-type-argument epg-sig-notation-p 3] 4 (#$ . 29776)]) #@32 Set the value of SIG-NOTATION. (defalias 'epg-sig-notation-set-value #[(sig-notation value) "\242\302=\204\303\304\305D\"\210A\306 I\207" [sig-notation value epg-sig-notation signal wrong-type-argument epg-sig-notation-p 1] 4 (#$ . 30020)]) #@33 Return an import status object. (defalias 'epg-make-import-status #[(fingerprint &optional reason new user-id signature sub-key secret) "\306\307 \n \f &B\207" [fingerprint reason new user-id signature sub-key epg-import-status vector secret] 9 (#$ . 30272)]) #@56 Return the fingerprint of the key that was considered. (defalias 'epg-import-status-fingerprint #[(import-status) "\242\301=\204\302\303\304D\"\210A\305H\207" [import-status epg-import-status signal wrong-type-argument epg-import-status-p 0] 4 (#$ . 30542)]) #@44 Return the reason code for import failure. (defalias 'epg-import-status-reason #[(import-status) "\242\301=\204\302\303\304D\"\210A\305H\207" [import-status epg-import-status signal wrong-type-argument epg-import-status-p 1] 4 (#$ . 30812)]) #@39 Return t if the imported key was new. (defalias 'epg-import-status-new #[(import-status) "\242\301=\204\302\303\304D\"\210A\305H\207" [import-status epg-import-status signal wrong-type-argument epg-import-status-p 2] 4 (#$ . 31065)]) #@54 Return t if the imported key contained new user IDs. (defalias 'epg-import-status-user-id #[(import-status) "\242\301=\204\302\303\304D\"\210A\305H\207" [import-status epg-import-status signal wrong-type-argument epg-import-status-p 3] 4 (#$ . 31310)]) #@56 Return t if the imported key contained new signatures. (defalias 'epg-import-status-signature #[(import-status) "\242\301=\204\302\303\304D\"\210A\305H\207" [import-status epg-import-status signal wrong-type-argument epg-import-status-p 4] 4 (#$ . 31574)]) #@54 Return t if the imported key contained new sub keys. (defalias 'epg-import-status-sub-key #[(import-status) "\242\301=\204\302\303\304D\"\210A\305H\207" [import-status epg-import-status signal wrong-type-argument epg-import-status-p 5] 4 (#$ . 31842)]) #@54 Return t if the imported key contained a secret key. (defalias 'epg-import-status-secret #[(import-status) "\242\301=\204\302\303\304D\"\210A\305H\207" [import-status epg-import-status signal wrong-type-argument epg-import-status-p 6] 4 (#$ . 32106)]) #@33 Return an import result object. (defalias 'epg-make-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) "\306\307 \n \f  \n \f &B\207" [considered no-user-id imported imported-rsa unchanged new-user-ids epg-import-result vector new-sub-keys new-signatures new-revocations secret-read secret-imported secret-unchanged not-imported imports] 16 (#$ . 32369)]) #@45 Return the total number of considered keys. (defalias 'epg-import-result-considered #[(import-result) "\242\301=\204\302\303\304D\"\210A\305H\207" [import-result epg-import-result signal wrong-type-argument epg-import-result-p 0] 4 (#$ . 32888)]) #@44 Return the number of keys without user ID. (defalias 'epg-import-result-no-user-id #[(import-result) "\242\301=\204\302\303\304D\"\210A\305H\207" [import-result epg-import-result signal wrong-type-argument epg-import-result-p 1] 4 (#$ . 33146)]) #@37 Return the number of imported keys. (defalias 'epg-import-result-imported #[(import-result) "\242\301=\204\302\303\304D\"\210A\305H\207" [import-result epg-import-result signal wrong-type-argument epg-import-result-p 2] 4 (#$ . 33403)]) #@41 Return the number of imported RSA keys. (defalias 'epg-import-result-imported-rsa #[(import-result) "\242\301=\204\302\303\304D\"\210A\305H\207" [import-result epg-import-result signal wrong-type-argument epg-import-result-p 3] 4 (#$ . 33651)]) #@38 Return the number of unchanged keys. (defalias 'epg-import-result-unchanged #[(import-result) "\242\301=\204\302\303\304D\"\210A\305H\207" [import-result epg-import-result signal wrong-type-argument epg-import-result-p 4] 4 (#$ . 33907)]) #@36 Return the number of new user IDs. (defalias 'epg-import-result-new-user-ids #[(import-result) "\242\301=\204\302\303\304D\"\210A\305H\207" [import-result epg-import-result signal wrong-type-argument epg-import-result-p 5] 4 (#$ . 34157)]) #@36 Return the number of new sub keys. (defalias 'epg-import-result-new-sub-keys #[(import-result) "\242\301=\204\302\303\304D\"\210A\305H\207" [import-result epg-import-result signal wrong-type-argument epg-import-result-p 6] 4 (#$ . 34408)]) #@38 Return the number of new signatures. (defalias 'epg-import-result-new-signatures #[(import-result) "\242\301=\204\302\303\304D\"\210A\305H\207" [import-result epg-import-result signal wrong-type-argument epg-import-result-p 7] 4 (#$ . 34659)]) #@39 Return the number of new revocations. (defalias 'epg-import-result-new-revocations #[(import-result) "\242\301=\204\302\303\304D\"\210A\305H\207" [import-result epg-import-result signal wrong-type-argument epg-import-result-p 8] 4 (#$ . 34914)]) #@46 Return the total number of secret keys read. (defalias 'epg-import-result-secret-read #[(import-result) "\242\301=\204\302\303\304D\"\210A\305H\207" [import-result epg-import-result signal wrong-type-argument epg-import-result-p 9] 4 (#$ . 35171)]) #@44 Return the number of imported secret keys. (defalias 'epg-import-result-secret-imported #[(import-result) "\242\301=\204\302\303\304D\"\210A\305H\207" [import-result epg-import-result signal wrong-type-argument epg-import-result-p 10] 4 (#$ . 35431)]) #@45 Return the number of unchanged secret keys. (defalias 'epg-import-result-secret-unchanged #[(import-result) "\242\301=\204\302\303\304D\"\210A\305H\207" [import-result epg-import-result signal wrong-type-argument epg-import-result-p 11] 4 (#$ . 35694)]) #@41 Return the number of keys not imported. (defalias 'epg-import-result-not-imported #[(import-result) "\242\301=\204\302\303\304D\"\210A\305H\207" [import-result epg-import-result signal wrong-type-argument epg-import-result-p 12] 4 (#$ . 35959)]) #@49 Return the list of `epg-import-status' objects. (defalias 'epg-import-result-imports #[(import-result) "\242\301=\204\302\303\304D\"\210A\305H\207" [import-result epg-import-result signal wrong-type-argument epg-import-result-p 13] 4 (#$ . 36216)]) #@52 Return the result of CONTEXT associated with NAME. (defalias 'epg-context-result-for #[(context name) "\302 !\236A\207" [name context epg-context-result] 3 (#$ . 36476)]) #@58 Set the result of CONTEXT associated with NAME to VALUE. (defalias 'epg-context-set-result-for #[(context name value) "\305!\n \236\211\203 \f\241\202\306\n\fB B\"*\207" [context result name entry value epg-context-result epg-context-set-result] 5 (#$ . 36654)]) #@47 Convert SIGNATURE to a human readable string. (defalias 'epg-signature-to-string #[(signature) "\305\306! \"A\307!\310!\311=\203\312\202Q\310!\313=\203$\314\202Q\310!\315=\2030\316\202Q\310!\317=\203<\320\202Q\310!\321=\203H\322\202Q\310!\323=\205Q\324\306!\n\203i\325\n;\203b\n\202e\326\n!P\202j\327\330!\203y\331\332\330!\"\202z\327\333!\203\211\334\335\333!\"\202\212\327 \203\236\336 \f\236A\206\232\331\337 \"P\202\237\327\260*\207" [signature epg-user-id-alist user-id pubkey-algorithm epg-pubkey-algorithm-alist assoc epg-signature-key-id epg-signature-pubkey-algorithm epg-signature-status 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 "" epg-signature-validity format " (trust %s)" epg-signature-creation-time format-time-string " created at %Y-%m-%dT%T%z" " using " "(unknown algorithm %d)"] 9 (#$ . 36931)]) #@51 Convert VERIFY-RESULT to a human readable string. (defalias 'epg-verify-result-to-string #[(verify-result) "\301\302\303#\207" [verify-result mapconcat epg-signature-to-string "\n"] 4 (#$ . 37976)]) #@51 Convert NEW-SIGNATURE to a human readable string. (defalias 'epg-new-signature-to-string #[(new-signature) "\303!\304=\203\f\305\202\303!\306=\203\307\202\310\311! \236A\312\313!\n\236A\314\315\316\317!\"\320!\260\207" [new-signature epg-pubkey-algorithm-alist epg-digest-algorithm-alist epg-new-signature-type detached "Detached signature " clear "Cleartext signature " "Signature " epg-new-signature-pubkey-algorithm "/" epg-new-signature-digest-algorithm " " format "%02X " epg-new-signature-class epg-new-signature-fingerprint] 9 (#$ . 38182)]) #@51 Convert IMPORT-RESULT to a human readable string. (defalias 'epg-import-result-to-string #[(import-result) "\301\302\303!\"\304!\305V\205\301\306\304!\"\307!\305V\205\"\301\310\307!\"\311!\305V\205@\301\312\311!\"\313!\305V\205>\301\314\313!\"\315Q\316!\305V\205N\301\317\316!\"\320!\305V\205\\\301\321\320!\"\322!\305V\205j\301\323\322!\"\324!\305V\205x\301\325\324!\"\326!\305V\205\206\301\327\326!\"\330!\305V\205\224\301\331\330!\"\332!\305V\205\242\301\333\332!\"\334!\305V\205\260\301\335\334!\"\260\f\207" [import-result format "Total number processed: %d\n" epg-import-result-considered epg-import-result-not-imported 0 " skipped new keys: %d\n" epg-import-result-no-user-id " w/o user IDs: %d\n" epg-import-result-imported " imported: %d" epg-import-result-imported-rsa " (RSA: %d)" "\n" epg-import-result-unchanged " unchanged: %d\n" epg-import-result-new-user-ids " new user IDs: %d\n" epg-import-result-new-sub-keys " new subkeys: %d\n" epg-import-result-new-signatures " new signatures: %d\n" epg-import-result-new-revocations " new key revocations: %d\n" epg-import-result-secret-read " secret keys read: %d\n" epg-import-result-secret-imported " secret keys imported: %d\n" epg-import-result-secret-unchanged " secret keys unchanged: %d\n"] 15 (#$ . 38751)]) #@58 Start `epg-gpg-program' in a subprocess with given ARGS. (defalias 'epg--start #[(context args) "\306!\203!\307\306!!\310=\203!\311\312\313!\314=\203 \202\n\"\210\315\316\317\320\321F\313!\314=?\205>\322\323\324\325!\2069\326\"\205>\327\313!\314=?\205N\330!\205N\331 \205U\332 D\313!\314=?\205_\333\334!\205f\335\336!\205m\337\340!\205x\341\340!D\f& \342\211?\343@\344 A\345\346!B\343CD\203\277\212E\204\240\345\347!EEq\210db\210\350\351\313!\314=\203\265 \202\266\n\352\353\f\354##c\210)rBq\210\355\356!\203\316\356\343!\210\357\360!\210\3430\357\361!\210e1\357\362!\210\3432\357\363!\210\3433\357\364!\210\3434\357\365!\2105)\366\216\367\370!\210\371\372\373B\313!\314=\203 \202\n\f%C)\374C\375\"\210\376C\".\207" [context epg-gpgsm-program epg-gpg-program epg-gpg-home-directory args coding-system-for-write epg-context-process process-status run error "%s is already running in this context" epg-context-protocol CMS append "--no-tty" "--status-fd" "1" "--yes" string-match ":" getenv "GPG_AGENT_INFO" "" ("--use-agent") epg-context-progress-callback ("--enable-progress-filter") "--homedir" ("--command-fd" "0") epg-context-armor ("--armor") epg-context-textmode ("--textmode") epg-context-output-file "--output" binary nil default-file-modes generate-new-buffer " *epg*" " *epg-debug*" format "%s %s\n" mapconcat identity " " fboundp set-buffer-multibyte make-local-variable epg-last-status epg-read-point epg-process-filter-running epg-pending-status-list epg-key-id epg-context ((set-default-file-modes orig-mode)) set-default-file-modes 448 apply start-process "epg" set-process-filter epg--process-filter epg-context-set-process coding-system-for-read process-connection-type orig-mode buffer process epg-debug epg-debug-buffer] 12 (#$ . 40143)]) (defalias 'epg--process-filter #[(process input) "\203\212 \204 \306\307! q\210db\210\nc\210)\310\311 !!\205\211r\311 !q\210db\210\nc\210\f?\205\210\312\216\313 b\210\314 \210\315\316!\205\207\315\317!\203\320\321!\320\322!\323\324P!\235\203c\325\203w\326!\203w\"\210B+\325y\210`\202:))\207" [epg-debug epg-debug-buffer input process epg-process-filter-running epg-read-point generate-new-buffer " *epg-debug*" buffer-live-p process-buffer ((byte-code "\301\211\207" [epg-process-filter-running nil] 2)) t beginning-of-line looking-at ".*\n" "\\[GNUPG:] \\([A-Z_]+\\) ?\\(.*\\)" match-string 1 2 intern-soft "epg--status-" nil fboundp status string symbol epg-pending-status-list epg-context epg-last-status] 3]) #@66 Read the output file CONTEXT and return the content as a string. (defalias 'epg-read-output #[(context) "\303\304!rq\210\305\216\306\307!\203\307\310!\210\311\312 !!\205'\313\314\312 !!\210\315 )+\207" [#1=#:temp-buffer context coding-system-for-read generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) fboundp set-buffer-multibyte nil file-exists-p epg-context-output-file binary insert-file-contents buffer-string] 3 (#$ . 42729)]) #@52 Wait until one of elements in STATUS-LIST arrives. (defalias 'epg-wait-for-status #[(context status-list) "r\303\304!!q\210 \305\304!!\306=\203\"\n\203\"\307\304!\310\"\210\202\n\n\2051\311\312\313C\314\312\"B#)\207" [context status-list epg-pending-status-list process-buffer epg-context-process process-status run accept-process-output 1 epg-context-set-result-for error exit epg-context-result-for] 7 (#$ . 43233)]) #@53 Wait until the `epg-gpg-program' process completes. (defalias 'epg-wait-for-completion #[(context) "\301\302!!\303=\203\304\302!\305\"\210\202\306\307!\207" [context process-status epg-context-process run accept-process-output 1 sleep-for 0.1] 3 (#$ . 43668)]) #@20 Reset the CONTEXT. (defalias 'epg-reset #[(context) "\301!\203\302\303\301!!!\203\304\303\301!!!\210\305\306\"\207" [context epg-context-process buffer-live-p process-buffer kill-buffer epg-context-set-process nil] 4 (#$ . 43941)]) #@36 Delete the output file of CONTEXT. (defalias 'epg-delete-output-file #[(context) "\302!\205\303\302!!\205\304\305\302!!)\207" [context delete-by-moving-to-trash epg-context-output-file file-exists-p nil delete-file] 3 (#$ . 44187)]) (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 #[(context string) "\305\306\"\205-\307\310\"\307\311\"\312 \"\313\314\315\217\210\f\203%\f\n\241\202, \nB B\211+\207" [string key-id user-id epg-user-id-alist entry string-match "\\`\\([^ ]+\\) \\(.*\\)" match-string 1 2 assoc nil (byte-code "\301\302!\303\"\301\207" [user-id epg--decode-coding-string epg--decode-percent-escape utf-8] 3) ((error))] 3]) (defalias 'epg--status-NEED_PASSPHRASE #[(context string) "\302\303\"\205 \304\305\"\211\207" [string epg-key-id string-match "\\`\\([^ ]+\\)" match-string 1] 3]) (defalias 'epg--status-NEED_PASSPHRASE_SYM #[(context string) "\301\211\207" [epg-key-id SYM] 2]) (defalias 'epg--status-NEED_PASSPHRASE_PIN #[(context string) "\301\211\207" [epg-key-id PIN] 2]) (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 #[(string) "\301\302\"\207" [string fillarray 0] 3] encode-coding-string epg--encode-coding-string identity] 3) (defalias 'epg--status-GET_HIDDEN #[(context string) "\205%\306\307 \"\205%\310\n!\204\311\312!\210\313\211\211\211\314\216\313\315\316\217-\207" [epg-key-id string context encoded-passphrase-with-new-line passphrase-with-new-line passphrase string-match "\\`passphrase\\." epg-context-passphrase-callback error "passphrase-callback not set" nil ((byte-code "\203\303!\210 \203\303 !\210\n\203\303\n!\210\303\207" [passphrase passphrase-with-new-line encoded-passphrase-with-new-line epg--clear-string] 2)) (byte-code "\306!@ \306!A#\211\2059\n\307P\310\n!\210\311\f\203/\312 \313\f\314\"\"\310 !\210\311\2023 \311\315\316! \"\207" [context epg-key-id passphrase passphrase-with-new-line epg-passphrase-coding-system encoded-passphrase-with-new-line epg-context-passphrase-callback "\n" epg--clear-string nil epg--encode-coding-string coding-system-change-eol-conversion unix process-send-string epg-context-process] 6) ((quit (byte-code "\301\302\303\304\302\"B#\210\305\306!!\207" [context epg-context-set-result-for error (quit) epg-context-result-for delete-process epg-context-process] 7))) inhibit-quit] 4]) (defalias 'epg--prompt-GET_BOOL #[(context string) "\303 \"\304\n\203\nA\202\305P!)\207" [string epg-prompt-alist entry assoc y-or-n-p "? "] 3]) (defalias 'epg--prompt-GET_BOOL-untrusted_key\.override #[(context string) "\305@\306\232\2031\307\310A\"\2031\311\312A\"\311\313A\"\314 \"\211\203(\fA\315\316 \n#+\2022\317!\207" [epg-last-status key-id user-id epg-user-id-alist entry y-or-n-p "USERID_HINT" string-match "\\`\\([^ ]+\\) \\(.*\\)" match-string 1 2 assoc format "Untrusted key %s %s. Use anyway? " "Use untrusted key anyway? "] 6]) (defalias 'epg--status-GET_BOOL #[(context string) "\301\211\302\303\217)\207" [inhibit-quit nil (byte-code "\302\303P!\206 \304 \"\203\305\306 !\307\"\207\305\306 !\310\"\207" [string context intern-soft "epg--prompt-GET_BOOL-" epg--prompt-GET_BOOL process-send-string epg-context-process "y\n" "n\n"] 3) ((quit (byte-code "\301\302\303\304\302\"B#\210\305\306!!\207" [context epg-context-set-result-for error (quit) epg-context-result-for delete-process epg-context-process] 7)))] 4]) (defalias 'epg--status-GET_LINE #[(context string) "\304 \"\305\305\306\307\217*\207" [string epg-prompt-alist inhibit-quit entry assoc nil (byte-code "\303\304!\305 \203 A\202\n\306P!\307P\"\207" [context entry string process-send-string epg-context-process read-string ": " "\n"] 5) ((quit (byte-code "\301\302\303\304\302\"B#\210\305\306!!\207" [context epg-context-set-result-for error (quit) epg-context-result-for delete-process epg-context-process] 7)))] 3]) (defalias 'epg--status-*SIG #[(context status string) "\306\307\"\203=\310\311\"\310\312\"\313 \"\314 \315\316 \"\317 \315\"B#\210\320\321\322\217\210\f\2034\f\n\241\202; \nB B\211+\207\314 \315\316!\317 \315\"B#\207" [string key-id user-id epg-user-id-alist entry context string-match "\\`\\([^ ]+\\) \\(.*\\)" match-string 1 2 assoc epg-context-set-result-for verify epg-make-signature epg-context-result-for nil (byte-code "\302!\303=\203\304 !\202\305\306 !\307\"\302\207" [context user-id epg-context-protocol CMS epg-dn-from-string epg--decode-coding-string epg--decode-percent-escape utf-8] 3) ((error)) status] 7]) (defalias 'epg--status-GOODSIG #[(context string) "\302\303 #\207" [context string epg--status-*SIG good] 4]) (defalias 'epg--status-EXPSIG #[(context string) "\302\303 #\207" [context string epg--status-*SIG expired] 4]) (defalias 'epg--status-EXPKEYSIG #[(context string) "\302\303 #\207" [context string epg--status-*SIG expired-key] 4]) (defalias 'epg--status-REVKEYSIG #[(context string) "\302\303 #\207" [context string epg--status-*SIG revoked-key] 4]) (defalias 'epg--status-BADSIG #[(context string) "\302\303 #\207" [context string epg--status-*SIG bad] 4]) (defalias 'epg--status-NO_PUBKEY #[(context string) "\303\304\"@\211\205\305 !\306=\205\307 !\n\232\205\310 \311\")\207" [context signature string epg-context-result-for verify epg-signature-status error epg-signature-key-id epg-signature-set-status no-pubkey] 4]) (defalias 'epg--time-from-seconds #[(seconds) "\302\303P!\304 \305\245!\304\306 \305\"!)B\207" [seconds number-seconds string-to-number ".0" floor 65536 mod] 5]) (defalias 'epg--status-ERRSIG #[(context string) "\303\304\"\205G\305\306!\307\n\310 \311\n\310\"B#\210\312 \313\314\"\"\210\315 \316\313\317\"!\"\210\320 \316\313\321\"!\"\210\322 \316\313\323\"\324\"\"\210\325 \326\313\327\"!\")\207" [string signature context string-match "\\`\\([^ ]+\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9A-Fa-f][0-9A-Fa-f]\\) \\([^ ]+\\) \\([0-9]+\\)" epg-make-signature error epg-context-set-result-for verify epg-context-result-for epg-signature-set-key-id match-string 1 epg-signature-set-pubkey-algorithm string-to-number 2 epg-signature-set-digest-algorithm 3 epg-signature-set-class 4 16 epg-signature-set-creation-time epg--time-from-seconds 5] 7]) (defalias 'epg--status-VALIDSIG #[(context string) "\303\304\"@\211\205f\305 !\306=\205f\307\310\n\"\205f\311 \312\313\n\"\"\210\314 \315\312\316\n\"!\"\210\312\317\n\"\320\232\204>\321 \315\312\317\n\"!\"\210\322 \323\312\324\n\"!\"\210\325 \323\312\326\n\"!\"\210\327 \323\312\330\n\"!\"\210\331 \323\312\332\n\"\333\"\")\207" [context signature string epg-context-result-for verify epg-signature-status good string-match "\\`\\([^ ]+\\) [^ ]+ \\([^ ]+\\) \\([^ ]+\\) \\([0-9]+\\) [^ ]+ \\([0-9]+\\) \\([0-9]+\\) \\([0-9A-Fa-f][0-9A-Fa-f]\\) \\(.*\\)" epg-signature-set-fingerprint match-string 1 epg-signature-set-creation-time epg--time-from-seconds 2 3 "0" epg-signature-set-expiration-time epg-signature-set-version string-to-number 4 epg-signature-set-pubkey-algorithm 5 epg-signature-set-digest-algorithm 6 epg-signature-set-class 7 16] 7]) (defalias 'epg--status-TRUST_UNDEFINED #[(context string) "\302\303\"@\211\205\304 !\305=\205\306 \307\")\207" [context signature epg-context-result-for verify epg-signature-status good epg-signature-set-validity undefined] 4]) (defalias 'epg--status-TRUST_NEVER #[(context string) "\302\303\"@\211\205\304 !\305=\205\306 \307\")\207" [context signature epg-context-result-for verify epg-signature-status good epg-signature-set-validity never] 4]) (defalias 'epg--status-TRUST_MARGINAL #[(context string) "\302\303\"@\211\205\304 !\305=\205\306 \305\")\207" [context signature epg-context-result-for verify epg-signature-status marginal epg-signature-set-validity] 4]) (defalias 'epg--status-TRUST_FULLY #[(context string) "\302\303\"@\211\205\304 !\305=\205\306 \307\")\207" [context signature epg-context-result-for verify epg-signature-status good epg-signature-set-validity full] 4]) (defalias 'epg--status-TRUST_ULTIMATE #[(context string) "\302\303\"@\211\205\304 !\305=\205\306 \307\")\207" [context signature epg-context-result-for verify epg-signature-status good epg-signature-set-validity ultimate] 4]) (defalias 'epg--status-NOTATION_NAME #[(context string) "\303\304\"@\211\205\305 \306\n\307\310\307$\311 !B\")\207" [context signature string epg-context-result-for verify epg-signature-set-notations epg-make-sig-notation nil t epg-sig-notations] 8]) (defalias 'epg--status-NOTATION_DATA #[(context string) "\304\305\"@\306\211\205\307\n!@\211\205\310 \"*\207" [context notation signature string epg-context-result-for verify nil epg-sig-notations epg-sig-notation-set-value] 4]) (defalias 'epg--status-POLICY_URL #[(context string) "\303\304\"@\211\205\305 \306\307\n\310\307$\311 !B\")\207" [context signature string epg-context-result-for verify epg-signature-set-notations epg-make-sig-notation nil t epg-sig-notations] 8]) (defalias 'epg--status-PROGRESS #[(context string) "\302!\205,\303\304 \"\205,\302!@\305\306 \"\305\307 \"\310\305\311 \"!\310\305\312 \"!\302!A&\207" [context string epg-context-progress-callback string-match "\\`\\([^ ]+\\) \\([^ ]\\) \\([0-9]+\\) \\([0-9]+\\)" match-string 1 2 string-to-number 3 4] 9]) (defalias 'epg--status-ENC_TO #[(context string) "\302\303\"\205!\304 \305\306\307\"\310\306\311\"!\310\306\312\"!E\313 \305\"B#\207" [string context 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] 9]) (defalias 'epg--status-DECRYPTION_FAILED #[(context string) "\301\302\303#\207" [context epg-context-set-result-for decryption-failed t] 4]) (defalias 'epg--status-DECRYPTION_OKAY #[(context string) "\301\302\303#\207" [context epg-context-set-result-for decryption-okay t] 4]) (defalias 'epg--status-NODATA #[(context string) "\302\303\304\305 !B\306\303\"B#\207" [context string epg-context-set-result-for error no-data string-to-number epg-context-result-for] 7]) (defalias 'epg--status-UNEXPECTED #[(context string) "\302\303\304\305 !B\306\303\"B#\207" [context string epg-context-set-result-for error unexpected string-to-number epg-context-result-for] 7]) (defalias 'epg--status-KEYEXPIRED #[(context string) "\302\303\304\305\306 !BD\307\310\"B#\207" [context string epg-context-set-result-for key key-expired expiration-time epg--time-from-seconds epg-context-result-for error] 7]) (defalias 'epg--status-KEYREVOKED #[(context string) "\301\302\303\304\305\"B#\207" [context epg-context-set-result-for key (key-revoked) epg-context-result-for error] 7]) (defalias 'epg--status-BADARMOR #[(context string) "\301\302\303\304\302\"B#\207" [context epg-context-set-result-for error (bad-armor) epg-context-result-for] 7]) (defalias 'epg--status-INV_RECP #[(context string) "\302\303\"\205 \304 \305\306\307\310\311\312\"!B\313\311\314\"BE\315 \305\"B#\207" [string context string-match "\\`\\([0-9]+\\) \\(.*\\)" epg-context-set-result-for error invalid-recipient reason string-to-number match-string 1 requested-recipient 2 epg-context-result-for] 9]) (defalias 'epg--status-NO_RECP #[(context string) "\301\302\303\304\302\"B#\207" [context epg-context-set-result-for error (no-recipients) epg-context-result-for] 7]) (defalias 'epg--status-DELETE_PROBLEM #[(context string) "\302\303\"\205\304 \305\306\307\310\311\"!B\312 \305\"B#\207" [string context string-match "\\`\\([0-9]+\\)" epg-context-set-result-for error delete-problem string-to-number match-string 1 epg-context-result-for] 8]) (defalias 'epg--status-SIG_CREATED #[(context string) "\303\304\"\205:\305 \306\307\310\311\"\312H\n\236A\313\310\314\"!\313\310\315\"!\313\310\316\"\317\"\320\310\321\"!\312\225\322O&\323 \306\"B#\207" [string context 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 epg-make-new-signature match-string 1 0 string-to-number 2 3 4 16 epg--time-from-seconds 5 nil epg-context-result-for] 12]) (defalias 'epg--status-KEY_CREATED #[(context string) "\302\303\"\205\304 \305\306\307\310\311\"!B\312\310\313\"BD\314 \305\"B#\207" [string context string-match "\\`\\([BPS]\\) \\([^ ]+\\)" epg-context-set-result-for generate-key type string-to-char match-string 1 fingerprint 2 epg-context-result-for] 8]) (defalias 'epg--status-KEY_NOT_CREATED #[(context string) "\301\302\303\304\302\"B#\207" [context epg-context-set-result-for error (key-not-created) epg-context-result-for] 7]) (defalias 'epg--status-IMPORTED #[(context string) "\305\306\"\205-\307\310\"\307\311\"\312 \"\313\314\315\217\210\f\203%\f\n\241\202, \nB B\211+\207" [string key-id user-id epg-user-id-alist entry string-match "\\`\\([^ ]+\\) \\(.*\\)" match-string 1 2 assoc nil (byte-code "\301\302!\303\"\301\207" [user-id epg--decode-coding-string epg--decode-percent-escape utf-8] 3) ((error))] 3]) (defalias 'epg--status-IMPORT_OK #[(context string) "\303\304\"\205H\305\306\307\"!\310\n\311\312\313\224\205\306\314\"\315\316 \307\"\317U?\316 \313\"\317U?\316 \320\"\317U?\316 \321\"\317U?\316 \322\"\317U?&\323\n\311\"B#)\207" [string reason context string-match "\\`\\([0-9]+\\)\\( \\(.+\\)\\)?" string-to-number match-string 1 epg-context-set-result-for import-status epg-make-import-status 2 3 nil logand 0 4 8 16 epg-context-result-for] 13]) (defalias 'epg--status-IMPORT_PROBLEM #[(context string) "\302\303\"\205!\304 \305\306\307\224\205\310\311\"\312\310\313\"!\"\314 \305\"B#\207" [string context string-match "\\`\\([0-9]+\\)\\( \\(.+\\)\\)?" epg-context-set-result-for import-status epg-make-import-status 2 match-string 3 string-to-number 1 epg-context-result-for] 9]) (defalias 'epg--status-IMPORT_RES #[(context string) "\302\303\"\205f\304 \305\306\307\310\311\"!\307\310\312\"!\307\310\313\"!\307\310\314\"!\307\310\315\"!\307\310\316\"!\307\310\317\"!\307\310\320\"!\307\310\321\"!\307\310\322\"!\307\310\323\"!\307\310\324\"!\307\310\325\"!\326 \327\"&#\210\304 \327\330#\207" [string context 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 epg-make-import-result string-to-number match-string 1 2 3 4 5 6 7 8 9 10 11 12 13 epg-context-result-for import-status nil] 20]) (defalias 'epg-passphrase-callback-function #[(context key-id handback) "\304=\203\305\306\307 !\310=\"\207\305\311=\203\312\2021\313\n\"\211\203,\314\315 A#\2020\314\316\")!\207" [key-id context epg-user-id-alist entry SYM read-passwd "Passphrase for symmetric encryption: " epg-context-operation encrypt PIN "Passphrase for PIN: " assoc format "Passphrase for %s %s: " "Passphrase for %s: "] 6]) (make-obsolete 'epg-passphrase-callback-function 'epa-passphrase-callback-function "23.1") (defalias 'epg--list-keys-1 #[(context name mode) "\306\205\307D\310\311 !\312=?\205\313#\n\314>\203\315\202)\n\316>\203(\317\202)\320\321\322\211\211\211\"#$%&\203c&<\204I&C&&\203l\306%$&@D\"%&A\211&\202K\306%$C\"%\323\324!'r'q\210\325\216\326\327\311 !\312=\203\207(\202\211)\322\330\322D\322%&\210eb\210\331\332\322\330#\203\314\333\334\322\"\"B\"\335\336!\336\211 \337\340 #=\203\226\336\225\"@\f\335\341 \"I\210\fT\202\257\"\237.\n\207" [epg-gpg-home-directory context mode index field string append "--homedir" ("--with-colons" "--no-greeting" "--batch" "--with-fingerprint" "--with-fingerprint") epg-context-protocol CMS ("--fixed-list-mode") (t secret) "--list-secret-keys" (nil public) "--list-keys" "--list-sigs" binary nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) apply call-process t re-search-forward "^[a-z][a-z][a-z]:.*" make-vector 15 match-string 0 string-match "\\([^:]+\\)?:" 1 keys coding-system-for-read list-keys-option args name #1# epg-gpgsm-program epg-gpg-program] 8]) (defalias 'epg--make-sub-key-1 #[(line) "\302\303H\205\304\303H! \236A\305\306\307\310\311H\"\"\312H\313\235\314\315H!\314\316H!\317H\320\321H!\322H\205:\320\322H!&\207" [line epg-key-validity-alist epg-make-sub-key 1 string-to-char delq nil mapcar #[(char) " \236A\207" [char epg-key-capablity-alist] 2] 11 0 ("sec" "ssb") string-to-number 3 2 4 epg--time-from-seconds 5 6] 11]) #@324 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. (defalias 'epg-list-keys #[(context &optional name mode) "\306 \n#\307\211\211\211\211\211234\2115\203_5@\310H\311\235\203[5@\310H\312\2353\3135@\314H\205A\3155@\314H!6\236A!4B4\3164@\3175@!\3204@!B\"\210\202V5@\310H\321\235\203y\3164@\3175@!\3204@!B\"\210\202V5@\310H\322\232\203\331\3235@\324H!\310\325\326 \f#\203\243\327\330\331\211 $\310\225T\202\215\307\332\333\217\210\3344@\3355@\336H\205\300\3155@\336H!6\236A3\203\314\307\337\340\217\202\315 \"\3414@!B\"\210\202V5@\310H\342\232\203\364\343\3204@!@5@\324H\"\210\202V5@\310H\344\232\203V\345\3414@!@\3465@\336H\205\3155@\336H!6\236A\3475@\350H!5@\351H\3525@\353H!\3525@\354H!5@\324H\3475@\355H\356\"5@\355H\357H\360=&\361\3414@!@!B\"\2105A\2115\2044\237\2114\2112\203\241\3162@\3202@!\237\"\210\3342@\3412@!\237\"\211\203\230\345 @\361 @!\237\"\210 A\211\204\2072A\2112\204k4.\207" [context name mode string index pointer-1 epg--list-keys-1 nil 0 ("pub" "sec" "crt" "crs") ("crt" "crs") epg-make-key 8 string-to-char epg-key-set-sub-key-list epg--make-sub-key-1 epg-key-sub-key-list ("sub" "ssb") "uid" copy-sequence 9 string-match "\"" replace-match "\\\"" t (byte-code "\301\302\303\303Q!@\304\"\301\207" [string epg--decode-coding-string read-from-string "\"" utf-8] 5) ((error (byte-code "@\302H\302\207" [lines string 9] 2))) epg-key-set-user-id-list epg-make-user-id 1 (epg-dn-from-string string) ((error string)) epg-key-user-id-list "fpr" epg-sub-key-set-fingerprint "sig" epg-user-id-set-signature-list epg-make-key-signature string-to-number 3 4 epg--time-from-seconds 5 6 10 16 2 120 epg-user-id-signature-list pointer cert keys lines epg-key-validity-alist] 13 (#$ . 61013)]) (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 #[(prefix) "\305\211\306\n \"\307\216\305\305\310\311\217\204 \312 \313\"\210\314 \315P!\316\317\305\305\320%\210\312\321\"\210\305\322\323\217\204,\f,\207" [tempfile tempdir prefix temporary-file-directory file nil expand-file-name ((byte-code "\203\303!\203\304\305!\210)\n\203\306\n!\203\307\n!\210\304\207" [tempfile delete-by-moving-to-trash tempdir file-exists-p nil delete-file file-directory-p delete-directory] 2)) (byte-code "\302\303!\304P!\305 !\207" [prefix tempdir make-temp-name file-name-directory "DIR" make-directory] 3) ((file-already-exists t)) set-file-modes 448 make-temp-name "/EMU" write-region "" silent 384 (byte-code "\303!\304\n \"\207" [prefix file tempfile make-temp-name add-name-to-file] 3) ((file-already-exists t))] 6 "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."]] 3) (defalias 'epg--args-from-sig-notations #[(notations) "\301\302\303\304\"\"\207" [notations apply nconc mapcar #[(notation) "\301!\203\302!\204\303\304!\210\301!\2033\305\306!\203)\307\301!\310\311!R\2021\301!\310\311!QD\207\312\306!\203B\307\311!P\202E\311!D\207" [notation epg-sig-notation-name epg-sig-notation-human-readable error "Unreadable" "--sig-notation" epg-sig-notation-critical "!" "=" epg-sig-notation-value "--sig-policy-url"] 6]] 5]) (defalias 'epg-cancel #[(context) "\302\303\304!!!\203r\303\304!!q\210\305 \306\307\310 \306\"B#\210)\311\304!!\312=\205-\313\304!!\207" [context epg-context buffer-live-p process-buffer epg-context-process epg-context-set-result-for error (quit) epg-context-result-for process-status run delete-process] 7]) #@367 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 temporaly output file. If you are unsure, use synchronous version of this function `epg-decrypt-file' or `epg-decrypt-string' instead. (defalias 'epg-start-decrypt #[(context cipher) "\302!\204\n\303\304!\210\305 \306\"\210\307 \310\"\210\311 \312\313\302!E\"\210\314 !\315=?\205+\316 \317\"\207" [cipher context epg-data-file error "Not a file" epg-context-set-operation decrypt epg-context-set-result nil epg--start "--decrypt" "--" epg-context-protocol CMS epg-wait-for-status ("BEGIN_DECRYPTION")] 6 (#$ . 65090)]) (defalias 'epg--check-error-for-decrypt #[(context) "\302\303\"\203 \304\305\306C\"\210\302\307\"\203\304\305\310\302\307\"D\"\210\302\311\"?\205>\302\301\"\312 \236\2037\304\305\313C\"\210\304\305\314 D\")\207" [context error epg-context-result-for decryption-failed signal epg-error "Decryption failed" no-secret-key "No secret key" decryption-okay no-data "No data" "Can't decrypt"] 6]) #@113 Decrypt a file CIPHER and store the result to a file PLAIN. If PLAIN is nil, it returns the result as a string. (defalias 'epg-decrypt-file #[(context cipher plain) "\303\216\203\304 \"\210\202\304 \305\306!\"\210\307 \310\n!\"\210\311 !\210\312 !\210?\205,\313 !)\207" [plain context cipher ((byte-code "\204\302 !\210\303 !\207" [plain context epg-delete-output-file epg-reset] 2)) epg-context-set-output-file epg--make-temp-file "epg-output" epg-start-decrypt epg-make-data-from-file epg-wait-for-completion epg--check-error-for-decrypt epg-read-output] 4 (#$ . 66252)]) #@52 Decrypt a string CIPHER and return the plain text. (defalias 'epg-decrypt-string #[(context cipher) "\304\305!\306\307\216\310\n\311 \311\312%\210\313 \304\314!\"\210\315 \316 !\"\210\317 !\210\320 !\210\321 !+\207" [coding-system-for-write input-file cipher context epg--make-temp-file "epg-input" binary ((byte-code "\303!\210\304 !\203\305\306 !\210)\307!\207" [context input-file delete-by-moving-to-trash epg-delete-output-file file-exists-p nil delete-file epg-reset] 2)) write-region nil quiet epg-context-set-output-file "epg-output" epg-start-decrypt epg-make-data-from-file epg-wait-for-completion epg--check-error-for-decrypt epg-read-output] 6 (#$ . 66843)]) #@538 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 temporaly output file. If you are unsure, use synchronous version of this function `epg-verify-file' or `epg-verify-string' instead. (defalias 'epg-start-verify #[(context signature &optional signed-text) "\303\304\"\210\305\306\"\210 \203O\307 !\203!\310\311\312\307\n!\307 !F\"\207\310\311\312\307\n!\313F\"\210\314\315!!\316=\203?\317\315!\320 !\"\210\314\315!!\316=\205N\321\315!!\207\307\n!\203o\310\322!\323=\203h\311\312\307\n!E\202m\312\307\n!D\"\207\310\322!\323=\203}\324\202~\325\"\210\314\315!!\316=\203\223\317\315!\320\n!\"\210\314\315!!\316=\205\242\321\315!!\207" [context signed-text signature epg-context-set-operation verify epg-context-set-result nil epg-data-file epg--start "--verify" "--" "-" process-status epg-context-process run process-send-string epg-data-string process-send-eof epg-context-protocol CMS ("--verify" "-") ("-")] 7 (#$ . 67528)]) #@343 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. (defalias 'epg-verify-file #[(context signature &optional signed-text plain) "\304\216\203\305 \"\210\202\305 \306\307!\"\210\n\203&\310 \311 !\311\n!#\210\202-\310 \311 !\"\210\312 !\210?\2059\313 !)\207" [plain context signed-text signature ((byte-code "\204\302 !\210\303 !\207" [plain context epg-delete-output-file epg-reset] 2)) epg-context-set-output-file epg--make-temp-file "epg-output" epg-start-verify epg-make-data-from-file epg-wait-for-completion epg-read-output] 5 (#$ . 68840)]) #@303 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. (defalias 'epg-verify-string #[(context signature &optional signed-text) "\305\306\307\216\310\n\311\312!\"\210 \203*\311\313!\314\f\306\306\315%\210\316\n\317!\320 !#\210\2021\316\n\320\f!\"\210\321\n!\210\322\n!+\207" [input-file coding-system-for-write context signed-text signature binary nil ((byte-code "\303!\210 \203\304 !\203\305\306 !\210)\307!\207" [context input-file delete-by-moving-to-trash epg-delete-output-file file-exists-p nil delete-file epg-reset] 2)) epg-context-set-output-file epg--make-temp-file "epg-output" "epg-signature" write-region quiet epg-start-verify epg-make-data-from-file epg-make-data-from-string epg-wait-for-completion epg-read-output] 6 (#$ . 69697)]) #@524 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 temporaly output file. If you are unsure, use synchronous version of this function `epg-sign-file' or `epg-sign-string' instead. (defalias 'epg-start-sign #[(context plain &optional mode) "\303\304\"\210\305\306\"\210 \307>\204\310\306\"\210\311\306\"\210\312\313 \314>\203'\315\2022 \316>\2031\317\2022\320C\321\322\323\324\325!\"\"\326\327!!\330\n!\205L\331\330\n!D$\"\210\332!\333=\204\\\334\335\"\210\336\n!\205\204\337\340!!\341=\203u\342\340!\336\n!\"\210\337\340!!\341=\205\204\343\340!!\207" [context mode plain epg-context-set-operation sign epg-context-set-result 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 #[(signer) "\301\302\303!@!D\207" [signer "-u" epg-sub-key-id epg-key-sub-key-list] 4] epg-context-signers epg--args-from-sig-notations epg-context-sig-notations epg-data-file "--" epg-context-protocol CMS epg-wait-for-status ("BEGIN_SIGNING") epg-data-string process-status epg-context-process run process-send-string process-send-eof] 10 (#$ . 70715)]) #@294 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. (defalias 'epg-sign-file #[(context plain signature &optional mode) "\304\216\203\305 \"\210\202\305 \306\307!\"\210\310 \311\n! #\210\312 !\210\313 \314\"\204>\313 \315\"\203:\315\316\313 \315\"\"\210\202>\315\317!\210?\205F\320 !)\207" [signature context plain mode ((byte-code "\204\302 !\210\303 !\207" [signature context epg-delete-output-file epg-reset] 2)) epg-context-set-output-file epg--make-temp-file "epg-output" epg-start-sign epg-make-data-from-file epg-wait-for-completion epg-context-result-for sign error "Sign failed: %S" "Sign failed" epg-read-output] 5 (#$ . 72247)]) #@231 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. (defalias 'epg-sign-string #[(context plain &optional mode) "\305!\306=\206\f\307\310\311\217?\205\312\313!\314\315\216\316\312\317!\"\210\n\203+\320 \307\n\307\321%\210\322\n\2037\323\n!\202:\324 !\f#\210\325!\210\326\327\"\204^\326\330\"\203Z\330\331\326\330\"\"\210\202^\330\332!\210\333!+\207" [context coding-system-for-write input-file plain mode epg-context-protocol CMS nil (byte-code "\300\301 !\210\302\207" [epg-check-configuration epg-configuration t] 2) ((error)) epg--make-temp-file "epg-input" binary ((byte-code "\303!\210 \203\304\305 !\210)\306!\207" [context input-file delete-by-moving-to-trash epg-delete-output-file nil delete-file epg-reset] 2)) epg-context-set-output-file "epg-output" write-region quiet epg-start-sign epg-make-data-from-file epg-make-data-from-string epg-wait-for-completion epg-context-result-for sign error "Sign failed: %S" "Sign failed" epg-read-output] 6 (#$ . 73149)]) #@412 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 temporaly output file. If you are unsure, use synchronous version of this function `epg-encrypt-file' or `epg-encrypt-string' instead. (defalias 'epg-start-encrypt #[(context plain recipients &optional sign always-trust) "\305\306\"\210\307\310\"\210\311\312 \205\313\n\203\314\202\315 \205 \316 \205-\317\320\321\322\323!\"\" \2056\324\325!!\317\320\321\326\n\"\"\327\f!\205H\330\327\f!D&\"\210\331!\332=\204e \203`\333\334\"\210\202e\333\335\"\210\336\f!\205\215\337\340!!\341=\203~\342\340!\336\f!\"\210\337\340!!\341=\205\215\343\340!!\207" [context always-trust recipients sign plain epg-context-set-operation encrypt epg-context-set-result nil epg--start append ("--always-trust") ("--encrypt") ("--symmetric") ("--sign") apply nconc mapcar #[(signer) "\301\302\303!@!D\207" [signer "-u" epg-sub-key-id epg-key-sub-key-list] 4] epg-context-signers epg--args-from-sig-notations epg-context-sig-notations #[(recipient) "\301\302\303!@!D\207" [recipient "-r" epg-sub-key-id epg-key-sub-key-list] 4] epg-data-file "--" epg-context-protocol CMS epg-wait-for-status ("BEGIN_SIGNING") ("BEGIN_ENCRYPTION") epg-data-string process-status epg-context-process run process-send-string process-send-eof] 13 (#$ . 74328)]) #@170 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. (defalias 'epg-encrypt-file #[(context plain recipients cipher &optional sign always-trust) "\306\216\203\307 \"\210\202\307 \310\311!\"\210\312 \313\n! \f %\210\314 !\210\f\203D\315 \304\"\204D\315 \316\"\203@\316\317\315 \316\"\"\210\202D\316\320!\210\315 \316\"\203S\316\321\315 \316\"\"\210?\205[\322 !)\207" [cipher context plain recipients sign always-trust ((byte-code "\204\302 !\210\303 !\207" [cipher context epg-delete-output-file epg-reset] 2)) epg-context-set-output-file epg--make-temp-file "epg-output" epg-start-encrypt epg-make-data-from-file epg-wait-for-completion epg-context-result-for error "Sign failed: %S" "Sign failed" "Encrypt failed: %S" epg-read-output] 6 (#$ . 75858)]) #@81 Encrypt a string PLAIN. If RECIPIENTS is nil, it performs symmetric encryption. (defalias 'epg-encrypt-string #[(context plain recipients &optional sign always-trust) "?\206\306 !\307=\206\310\311\312\217?\205\313\314!\315\316\216\317 \313\320!\"\210 \2030\321\f\310 \310\322%\210\323 \203<\324 !\202?\325\f! %\210\326 !\210\203j\327 \300\"\204j\327 \330\"\203f\330\331\327 \330\"\"\210\202j\330\332!\210\327 \330\"\203y\330\333\327 \330\"\"\210\334 !+\207" [sign context coding-system-for-write input-file plain recipients epg-context-protocol CMS nil (byte-code "\300\301 !\210\302\207" [epg-check-configuration epg-configuration t] 2) ((error)) epg--make-temp-file "epg-input" binary ((byte-code "\303!\210 \203\304\305 !\210)\306!\207" [context input-file delete-by-moving-to-trash epg-delete-output-file nil delete-file epg-reset] 2)) epg-context-set-output-file "epg-output" write-region quiet epg-start-encrypt epg-make-data-from-file epg-make-data-from-string epg-wait-for-completion epg-context-result-for error "Sign failed: %S" "Sign failed" "Encrypt failed: %S" epg-read-output always-trust] 6 (#$ . 76749)]) #@341 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 temporaly output file. If you are unsure, use synchronous version of this function `epg-export-keys-to-file' or `epg-export-keys-to-string' instead. (defalias 'epg-start-export-keys #[(context keys) "\302\303\"\210\304\305\"\210\306\307\310\311 \"B\"\207" [context keys epg-context-set-operation export-keys epg-context-set-result nil epg--start "--export" mapcar #[(key) "\301\302!@!\207" [key epg-sub-key-id epg-key-sub-key-list] 3]] 6 (#$ . 77904)]) #@22 Extract public KEYS. (defalias 'epg-export-keys-to-file #[(context keys file) "\303\216\203\304 \"\210\202\304 \305\306!\"\210\307 \n\"\210\310 !\210\311 \312\"\203-\312\313\311 \312\"\"\210?\2055\314 !)\207" [file context keys ((byte-code "\204\302 !\210\303 !\207" [file context epg-delete-output-file epg-reset] 2)) epg-context-set-output-file epg--make-temp-file "epg-output" epg-start-export-keys epg-wait-for-completion epg-context-result-for error "Export keys failed: %S" epg-read-output] 5 (#$ . 78558)]) #@50 Extract public KEYS and return them as a string. (defalias 'epg-export-keys-to-string #[(context keys) "\302 \303#\207" [context keys epg-export-keys-to-file nil] 4 (#$ . 79090)]) #@368 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 temporaly output file. If you are unsure, use synchronous version of this function `epg-import-keys-from-file' or `epg-import-keys-from-string' instead. (defalias 'epg-start-import-keys #[(context keys) "\302\303\"\210\304\305\"\210\306\307 !\203\310\311\307 !E\202\310C\"\210\312 !\205G\313\314!!\315=\2038\316\314!\312 !\"\210\313\314!!\315=\205G\317\314!!\207" [context keys epg-context-set-operation import-keys epg-context-set-result nil epg--start epg-data-file "--import" "--" epg-data-string process-status epg-context-process run process-send-string process-send-eof] 6 (#$ . 79278)]) (defalias 'epg--import-keys-1 #[(context keys) "\302\216\303 \"\210\304!\210\305\306\"\205\306\307\305\306\"\")\207" [context keys ((epg-reset context)) epg-start-import-keys epg-wait-for-completion epg-context-result-for error "Import keys failed: %S"] 5]) #@28 Add keys from a file KEYS. (defalias 'epg-import-keys-from-file #[(context keys) "\302\303 !\"\207" [context keys epg--import-keys-1 epg-make-data-from-file] 4 (#$ . 80370)]) #@30 Add keys from a string KEYS. (defalias 'epg-import-keys-from-string #[(context keys) "\302\303 !\"\207" [context keys epg--import-keys-1 epg-make-data-from-string] 4 (#$ . 80552)]) #@336 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 temporaly output file. If you are unsure, use synchronous version of this function `epg-receive-keys' instead. (defalias 'epg-start-receive-keys #[(context key-id-list) "\302\303\"\210\304\305\"\210\306\307 B\"\207" [context key-id-list epg-context-set-operation receive-keys epg-context-set-result nil epg--start "--recv-keys"] 4 (#$ . 80741)]) #@49 Add keys from server. KEYS is a list of key IDs (defalias 'epg-receive-keys #[(context keys) "\302\216\303 \"\210\304!\210\305\306\"\205\306\307\305\306\"\")\207" [context keys ((epg-reset context)) epg-start-receive-keys epg-wait-for-completion epg-context-result-for error "Receive keys failed: %S"] 5 (#$ . 81320)]) (defalias 'epg-import-keys-from-server 'epg-receive-keys) #@301 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 temporaly output file. If you are unsure, use synchronous version of this function `epg-delete-keys' instead. (defalias 'epg-start-delete-keys #[(context keys &optional allow-secret) "\303\304\"\210\305\306\"\210\307 \203\310\202\311\312\313\n\"B\"\207" [context allow-secret keys epg-context-set-operation delete-keys epg-context-set-result nil epg--start "--delete-secret-key" "--delete-key" mapcar #[(key) "\301\302!@!\207" [key epg-sub-key-id epg-key-sub-key-list] 3]] 6 (#$ . 81710)]) #@32 Delete KEYS from the key ring. (defalias 'epg-delete-keys #[(context keys &optional allow-secret) "\305\216\306 \n#\210\307!\210\310\311\312\"\236\211\205+ A\f\236\211\203(\312\313 A\"\202+\312\314!*\207" [context keys allow-secret entry epg-delete-problem-reason-alist ((epg-reset context)) epg-start-delete-keys epg-wait-for-completion delete-problem epg-context-result-for error "Delete keys failed: %s" "Delete keys failed"] 5 (#$ . 82404)]) #@297 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 temporaly output file. If you are unsure, use synchronous version of this function `epg-sign-keys' instead. (defalias 'epg-start-sign-keys #[(context keys &optional local) "\303\304\"\210\305\306\"\210\307 \203\310\202\311\312\313\n\"B\"\207" [context local keys epg-context-set-operation sign-keys epg-context-set-result nil epg--start "--lsign-key" "--sign-key" mapcar #[(key) "\301\302!@!\207" [key epg-sub-key-id epg-key-sub-key-list] 3]] 6 (#$ . 82865)]) (make-obsolete 'epg-start-sign-keys "do not use." "23.1") #@30 Sign KEYS from the key ring. (defalias 'epg-sign-keys #[(context keys &optional local) "\303\216\304 \n#\210\305!\210\306\307\"\205\307\310\306\307\"\")\207" [context keys local ((epg-reset context)) epg-start-sign-keys epg-wait-for-completion epg-context-result-for error "Sign keys failed: %S"] 5 (#$ . 83585)]) (make-obsolete 'epg-sign-keys "do not use." "23.1") #@384 Initiate a key generation. PARAMETERS specifies parameters for the key. 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 temporaly output file. If you are unsure, use synchronous version of this function `epg-generate-key-from-file' or `epg-generate-key-from-string' instead. (defalias 'epg-start-generate-key #[(context parameters) "\302\303\"\210\304\305\"\210\306 !\203\307\310\311\312\306 !F\"\207\307\313\"\210\314\315!!\316=\2033\317\315!\320 !\"\210\314\315!!\316=\205B\321\315!!\207" [context parameters epg-context-set-operation generate-key epg-context-set-result nil epg-data-file epg--start "--batch" "--genkey" "--" ("--batch" "--genkey") process-status epg-context-process run process-send-string epg-data-string process-send-eof] 7 (#$ . 83964)]) #@82 Generate a new key pair. PARAMETERS is a file which tells how to create the key. (defalias 'epg-generate-key-from-file #[(context parameters) "\302\216\303\304 !\"\210\305!\210\306\307\"\205\307\310\306\307\"\")\207" [context parameters ((epg-reset context)) epg-start-generate-key epg-make-data-from-file epg-wait-for-completion epg-context-result-for error "Generate key failed: %S"] 5 (#$ . 84851)]) #@84 Generate a new key pair. PARAMETERS is a string which tells how to create the key. (defalias 'epg-generate-key-from-string #[(context parameters) "\302\216\303\304 !\"\210\305!\210\306\307\"\205\307\310\306\307\"\")\207" [context parameters ((epg-reset context)) epg-start-generate-key epg-make-data-from-string epg-wait-for-completion epg-context-result-for error "Generate key failed: %S"] 5 (#$ . 85266)]) (defalias 'epg--decode-percent-escape #[(string) "\302\303\304 #\2034\305\224\203\306\307\310\211 $\302\225S\202\306\301\311\312\313 \"\314\"!\310\211 $\302\225\305Z\202 )\207" [index string 0 string-match "%\\(\\(%\\)\\|\\([0-9A-Fa-f][0-9A-Fa-f]\\)\\)" 2 replace-match "%" t string-to-number match-string 3 16] 6]) (defalias 'epg--decode-hexstring #[(string) "\302\211\303\304 #=\203#\305\301\306\307\302 \"\310\"!\311\211 $\302\225S\211\202 )\207" [index string 0 string-match "[0-9A-Fa-f][0-9A-Fa-f]" replace-match string-to-number match-string 16 t] 7]) (defalias 'epg--decode-quotedstring #[(string) "\302\303\304 #\2039\305\224\203\306\307\310\311 $\302\225S\202\312\224\203\306\301\313\314\302 \"\315\"!\310\211 $\302\225\305Z\202 )\207" [index string 0 string-match "\\\\\\(\\([,=+<>#;\\\"]\\)\\|\\([0-9A-Fa-f][0-9A-Fa-f]\\)\\)" 2 replace-match "\\2" t nil 3 string-to-number match-string 16] 6]) #@114 Parse STRING as LADPv3 Distinguished Names (RFC2253). The return value is an alist mapping from types to values. (defalias 'epg-dn-from-string #[(string) "\306G\307\211\211\211 W\203\371\310\311#=\203%\306\225\310\312#=\203=\313\314\"\306\225\202R\310\315#=\203R\313\314\"\306\225 \204Z\316\317!\210\310\320#=\203t\306\225\321\313\306\"!\202\245\310\322#=\203\216\306\225\323\313\314\"!\202\245\310\324#=\203\245\306\225\321\313\306\"! \203\310\f@@;\203\274\f \nB\f@D\240\210\202\337\f \nB\f@B\240\210\202\337\f@@:\203\325\f\211@\237\240\210 \nB\fB\307\211\310\325#=\203\306\225\314\224H\326=\202\f\237.\207" [string group value type alist length 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 index] 7 (#$ . 86628)]) #@125 Convert ALIST returned by `epg-dn-from-string' to a human readable form. Type names are resolved using `epg-dn-type-alist'. (defalias 'epg-decode-dn #[(alist) "\301\302\303#\207" [alist mapconcat #[(rdn) "@;\203#\303@ \"\211\203\304\305\nAA#\202!\304\305@A#)\207\306\307!\310Q\207" [rdn epg-dn-type-alist entry assoc format "%s=%s" "(" epg-decode-dn ")"] 5] ", "] 4 (#$ . 87708)]) (provide 'epg)