Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
[ HOME SHELL ]
Name
Size
Permission
Action
calc
[ DIR ]
drwxr-xr-x
calendar
[ DIR ]
drwxr-xr-x
cedet
[ DIR ]
drwxr-xr-x
emacs-lisp
[ DIR ]
drwxr-xr-x
emulation
[ DIR ]
drwxr-xr-x
erc
[ DIR ]
drwxr-xr-x
eshell
[ DIR ]
drwxr-xr-x
gnus
[ DIR ]
drwxr-xr-x
image
[ DIR ]
drwxr-xr-x
international
[ DIR ]
drwxr-xr-x
language
[ DIR ]
drwxr-xr-x
leim
[ DIR ]
drwxr-xr-x
mail
[ DIR ]
drwxr-xr-x
mh-e
[ DIR ]
drwxr-xr-x
net
[ DIR ]
drwxr-xr-x
nxml
[ DIR ]
drwxr-xr-x
obsolete
[ DIR ]
drwxr-xr-x
org
[ DIR ]
drwxr-xr-x
play
[ DIR ]
drwxr-xr-x
progmodes
[ DIR ]
drwxr-xr-x
term
[ DIR ]
drwxr-xr-x
textmodes
[ DIR ]
drwxr-xr-x
url
[ DIR ]
drwxr-xr-x
vc
[ DIR ]
drwxr-xr-x
COPYING
34.32
KB
-rw-r--r--
README
537
B
-rw-r--r--
abbrev.elc
34.55
KB
-rw-r--r--
align.elc
39.88
KB
-rw-r--r--
allout-widgets.elc
62.37
KB
-rw-r--r--
allout.elc
203.33
KB
-rw-r--r--
ansi-color.elc
17.12
KB
-rw-r--r--
apropos.elc
37.42
KB
-rw-r--r--
arc-mode.elc
58.06
KB
-rw-r--r--
array.elc
27.07
KB
-rw-r--r--
auth-source-pass.elc
11.68
KB
-rw-r--r--
auth-source.elc
64.32
KB
-rw-r--r--
autoarg.elc
6.63
KB
-rw-r--r--
autoinsert.elc
13.41
KB
-rw-r--r--
autorevert.elc
30.71
KB
-rw-r--r--
avoid.elc
11.62
KB
-rw-r--r--
battery.elc
24.42
KB
-rw-r--r--
bindings.elc
42.76
KB
-rw-r--r--
bookmark.elc
77.09
KB
-rw-r--r--
bs.elc
49.32
KB
-rw-r--r--
buff-menu.elc
27.02
KB
-rw-r--r--
button.elc
14.97
KB
-rw-r--r--
calculator.elc
53.9
KB
-rw-r--r--
case-table.elc
4.99
KB
-rw-r--r--
cdl.elc
1.07
KB
-rw-r--r--
char-fold.elc
311.81
KB
-rw-r--r--
chistory.elc
8.16
KB
-rw-r--r--
cmuscheme.elc
18.07
KB
-rw-r--r--
color.elc
12.83
KB
-rw-r--r--
comint.elc
114.46
KB
-rw-r--r--
completion.elc
41.12
KB
-rw-r--r--
composite.elc
27.94
KB
-rw-r--r--
cus-dep.elc
6.42
KB
-rw-r--r--
cus-edit.elc
139.04
KB
-rw-r--r--
cus-face.elc
10.54
KB
-rw-r--r--
cus-load.el
85.19
KB
-rw-r--r--
cus-start.elc
21.92
KB
-rw-r--r--
cus-theme.elc
25.05
KB
-rw-r--r--
custom.elc
47.41
KB
-rw-r--r--
dabbrev.elc
22.28
KB
-rw-r--r--
delim-col.elc
8.95
KB
-rw-r--r--
delsel.elc
9.2
KB
-rw-r--r--
descr-text.elc
26.87
KB
-rw-r--r--
desktop.elc
47.64
KB
-rw-r--r--
dframe.elc
19.92
KB
-rw-r--r--
dired-aux.elc
85.75
KB
-rw-r--r--
dired-loaddefs.el
22.29
KB
-rw-r--r--
dired-x.elc
44.53
KB
-rw-r--r--
dired.elc
127.27
KB
-rw-r--r--
dirtrack.elc
7.75
KB
-rw-r--r--
disp-table.elc
8.76
KB
-rw-r--r--
display-fill-column-indicator....
8.32
KB
-rw-r--r--
display-line-numbers.elc
8.67
KB
-rw-r--r--
dnd.elc
7.13
KB
-rw-r--r--
doc-view.elc
65.25
KB
-rw-r--r--
dom.elc
7.36
KB
-rw-r--r--
dos-fns.elc
6.14
KB
-rw-r--r--
dos-vars.elc
1.1
KB
-rw-r--r--
dos-w32.elc
11.67
KB
-rw-r--r--
double.elc
4.34
KB
-rw-r--r--
dynamic-setting.elc
2.2
KB
-rw-r--r--
ebuff-menu.elc
10.46
KB
-rw-r--r--
echistory.elc
4.75
KB
-rw-r--r--
ecomplete.elc
7.1
KB
-rw-r--r--
edmacro.elc
19.94
KB
-rw-r--r--
ehelp.elc
11.32
KB
-rw-r--r--
elec-pair.elc
21.41
KB
-rw-r--r--
electric.elc
23.69
KB
-rw-r--r--
elide-head.elc
2.65
KB
-rw-r--r--
emacs-lock.elc
9.29
KB
-rw-r--r--
env.elc
6.12
KB
-rw-r--r--
epa-dired.elc
1.62
KB
-rw-r--r--
epa-file.elc
8.65
KB
-rw-r--r--
epa-hook.elc
4.63
KB
-rw-r--r--
epa-mail.elc
9.43
KB
-rw-r--r--
epa.elc
45.25
KB
-rw-r--r--
epg-config.elc
8.97
KB
-rw-r--r--
epg.elc
166.06
KB
-rw-r--r--
expand.elc
9.07
KB
-rw-r--r--
ezimage.elc
9.65
KB
-rw-r--r--
face-remap.elc
16.58
KB
-rw-r--r--
facemenu.elc
27.89
KB
-rw-r--r--
faces.elc
90.21
KB
-rw-r--r--
ffap.elc
50.3
KB
-rw-r--r--
filecache.elc
16.69
KB
-rw-r--r--
fileloop.elc
6.62
KB
-rw-r--r--
filenotify.elc
28.49
KB
-rw-r--r--
files-x.elc
21.9
KB
-rw-r--r--
files.elc
236.95
KB
-rw-r--r--
filesets.elc
72.57
KB
-rw-r--r--
find-cmd.elc
4.9
KB
-rw-r--r--
find-dired.elc
10.41
KB
-rw-r--r--
find-file.elc
18.33
KB
-rw-r--r--
find-lisp.elc
7.66
KB
-rw-r--r--
finder-inf.el
41.27
KB
-rw-r--r--
finder.elc
14.73
KB
-rw-r--r--
flow-ctrl.elc
2.26
KB
-rw-r--r--
foldout.elc
7.25
KB
-rw-r--r--
follow.elc
40.63
KB
-rw-r--r--
font-core.elc
12.41
KB
-rw-r--r--
font-lock.elc
61.63
KB
-rw-r--r--
format-spec.elc
3.93
KB
-rw-r--r--
format.elc
27.56
KB
-rw-r--r--
forms.elc
35.1
KB
-rw-r--r--
frame.elc
85.94
KB
-rw-r--r--
frameset.elc
48.02
KB
-rw-r--r--
fringe.elc
10.23
KB
-rw-r--r--
generic-x.elc
40.27
KB
-rw-r--r--
help-at-pt.elc
11.15
KB
-rw-r--r--
help-fns.elc
45.35
KB
-rw-r--r--
help-macro.elc
4.25
KB
-rw-r--r--
help-mode.elc
23.89
KB
-rw-r--r--
help.elc
52.22
KB
-rw-r--r--
hex-util.elc
1.3
KB
-rw-r--r--
hexl.elc
35.39
KB
-rw-r--r--
hfy-cmap.elc
25.45
KB
-rw-r--r--
hi-lock.elc
29.38
KB
-rw-r--r--
hilit-chg.elc
28.77
KB
-rw-r--r--
hippie-exp.elc
21.52
KB
-rw-r--r--
hl-line.elc
11.23
KB
-rw-r--r--
htmlfontify-loaddefs.el
808
B
-rw-r--r--
htmlfontify.elc
67.51
KB
-rw-r--r--
ibuf-ext.elc
77.15
KB
-rw-r--r--
ibuf-macs.elc
12.47
KB
-rw-r--r--
ibuffer-loaddefs.el
12.68
KB
-rw-r--r--
ibuffer.elc
98.62
KB
-rw-r--r--
icomplete.elc
22.83
KB
-rw-r--r--
ido.elc
127.92
KB
-rw-r--r--
ielm.elc
19.2
KB
-rw-r--r--
iimage.elc
4.92
KB
-rw-r--r--
image-dired.elc
92.97
KB
-rw-r--r--
image-file.elc
6.53
KB
-rw-r--r--
image-mode.elc
42.56
KB
-rw-r--r--
image.elc
34.45
KB
-rw-r--r--
imenu.elc
24.94
KB
-rw-r--r--
indent.elc
23.63
KB
-rw-r--r--
info-look.elc
28.18
KB
-rw-r--r--
info-xref.elc
16.59
KB
-rw-r--r--
info.elc
144.48
KB
-rw-r--r--
informat.elc
9.73
KB
-rw-r--r--
isearch.elc
147.85
KB
-rw-r--r--
isearchb.elc
4.73
KB
-rw-r--r--
jit-lock.elc
23.49
KB
-rw-r--r--
jka-cmpr-hook.elc
13.07
KB
-rw-r--r--
jka-compr.elc
12.09
KB
-rw-r--r--
json.elc
22.76
KB
-rw-r--r--
jsonrpc.elc
31.65
KB
-rw-r--r--
kermit.elc
2.92
KB
-rw-r--r--
kmacro.elc
35.15
KB
-rw-r--r--
ldefs-boot.el
1.41
MB
-rw-r--r--
linum.elc
10.77
KB
-rw-r--r--
loaddefs.el
1.41
MB
-rw-r--r--
loadhist.elc
9.77
KB
-rw-r--r--
loadup.el
20.08
KB
-rw-r--r--
locate.elc
19.57
KB
-rw-r--r--
lpr.elc
9.44
KB
-rw-r--r--
ls-lisp.elc
22.7
KB
-rw-r--r--
macros.elc
7.23
KB
-rw-r--r--
makesum.elc
2.47
KB
-rw-r--r--
man.elc
53.85
KB
-rw-r--r--
master.elc
4.58
KB
-rw-r--r--
mb-depth.elc
3.56
KB
-rw-r--r--
md4.elc
8.12
KB
-rw-r--r--
menu-bar.elc
86.61
KB
-rw-r--r--
midnight.elc
10.22
KB
-rw-r--r--
minibuf-eldef.elc
6.43
KB
-rw-r--r--
minibuffer.elc
104.08
KB
-rw-r--r--
misc.elc
5.4
KB
-rw-r--r--
misearch.elc
12.37
KB
-rw-r--r--
mouse-copy.elc
3.61
KB
-rw-r--r--
mouse-drag.elc
6.43
KB
-rw-r--r--
mouse.elc
71.3
KB
-rw-r--r--
mpc.elc
79.29
KB
-rw-r--r--
msb.elc
26.76
KB
-rw-r--r--
mwheel.elc
12.83
KB
-rw-r--r--
newcomment.elc
39.43
KB
-rw-r--r--
notifications.elc
13.78
KB
-rw-r--r--
novice.elc
4.43
KB
-rw-r--r--
obarray.elc
1.71
KB
-rw-r--r--
outline.elc
37.04
KB
-rw-r--r--
paren.elc
8.69
KB
-rw-r--r--
password-cache.elc
3.57
KB
-rw-r--r--
pcmpl-cvs.elc
6.17
KB
-rw-r--r--
pcmpl-gnu.elc
12.96
KB
-rw-r--r--
pcmpl-linux.elc
3.09
KB
-rw-r--r--
pcmpl-rpm.elc
11.17
KB
-rw-r--r--
pcmpl-unix.elc
7.52
KB
-rw-r--r--
pcmpl-x.elc
8.95
KB
-rw-r--r--
pcomplete.elc
36.16
KB
-rw-r--r--
pixel-scroll.elc
10.82
KB
-rw-r--r--
plstore.elc
14.75
KB
-rw-r--r--
printing.elc
157.7
KB
-rw-r--r--
proced.elc
62.85
KB
-rw-r--r--
profiler.elc
42.81
KB
-rw-r--r--
ps-bdf.elc
12.69
KB
-rw-r--r--
ps-def.elc
2.23
KB
-rw-r--r--
ps-mule.elc
34.89
KB
-rw-r--r--
ps-print-loaddefs.el
2.6
KB
-rw-r--r--
ps-print.elc
141.17
KB
-rw-r--r--
ps-samp.elc
5.26
KB
-rw-r--r--
recentf.elc
48.73
KB
-rw-r--r--
rect.elc
26.88
KB
-rw-r--r--
register.elc
27.63
KB
-rw-r--r--
registry.elc
10.41
KB
-rw-r--r--
repeat.elc
5.14
KB
-rw-r--r--
replace.elc
84.62
KB
-rw-r--r--
reposition.elc
2.66
KB
-rw-r--r--
reveal.elc
7.16
KB
-rw-r--r--
rfn-eshadow.elc
7.23
KB
-rw-r--r--
rot13.elc
2.56
KB
-rw-r--r--
rtree.elc
4.09
KB
-rw-r--r--
ruler-mode.elc
21.87
KB
-rw-r--r--
savehist.elc
10.83
KB
-rw-r--r--
saveplace.elc
11.87
KB
-rw-r--r--
sb-image.elc
2.75
KB
-rw-r--r--
scroll-all.elc
4.41
KB
-rw-r--r--
scroll-bar.elc
16.68
KB
-rw-r--r--
scroll-lock.elc
5.41
KB
-rw-r--r--
select.elc
18.75
KB
-rw-r--r--
server.elc
47.56
KB
-rw-r--r--
ses.elc
131.12
KB
-rw-r--r--
shadowfile.elc
31.16
KB
-rw-r--r--
shell.elc
41.53
KB
-rw-r--r--
simple.elc
301.78
KB
-rw-r--r--
skeleton.elc
15.76
KB
-rw-r--r--
so-long.elc
47.15
KB
-rw-r--r--
sort.elc
15.49
KB
-rw-r--r--
soundex.elc
1.14
KB
-rw-r--r--
speedbar.elc
115.02
KB
-rw-r--r--
startup.elc
68.51
KB
-rw-r--r--
strokes.elc
44.03
KB
-rw-r--r--
subdirs.el
450
B
-rw-r--r--
subr.elc
186.63
KB
-rw-r--r--
svg.elc
12.71
KB
-rw-r--r--
t-mouse.elc
3.8
KB
-rw-r--r--
tab-bar.elc
52.48
KB
-rw-r--r--
tab-line.elc
29.85
KB
-rw-r--r--
tabify.elc
2.17
KB
-rw-r--r--
talk.elc
2.99
KB
-rw-r--r--
tar-mode.elc
57.2
KB
-rw-r--r--
tempo.elc
19.18
KB
-rw-r--r--
term.elc
107.99
KB
-rw-r--r--
thingatpt.elc
16.88
KB
-rw-r--r--
thread.elc
8.08
KB
-rw-r--r--
thumbs.elc
25.74
KB
-rw-r--r--
time-stamp.elc
18.69
KB
-rw-r--r--
time.elc
20.87
KB
-rw-r--r--
timezone.elc
10.94
KB
-rw-r--r--
tmm.elc
13.39
KB
-rw-r--r--
tool-bar.elc
9.76
KB
-rw-r--r--
tooltip.elc
13.19
KB
-rw-r--r--
tree-widget.elc
19.84
KB
-rw-r--r--
tutorial.elc
22.28
KB
-rw-r--r--
type-break.elc
37.35
KB
-rw-r--r--
uniquify.elc
17.68
KB
-rw-r--r--
userlock.elc
6.33
KB
-rw-r--r--
vcursor.elc
23.92
KB
-rw-r--r--
version.elc
6.01
KB
-rw-r--r--
view.elc
34.69
KB
-rw-r--r--
vt-control.elc
1.99
KB
-rw-r--r--
vt100-led.elc
1.33
KB
-rw-r--r--
w32-fns.elc
11.01
KB
-rw-r--r--
w32-vars.elc
5.16
KB
-rw-r--r--
wdired.elc
23.52
KB
-rw-r--r--
whitespace.elc
69.06
KB
-rw-r--r--
wid-browse.elc
8.48
KB
-rw-r--r--
wid-edit.elc
99.52
KB
-rw-r--r--
widget.elc
1.4
KB
-rw-r--r--
windmove.elc
19.82
KB
-rw-r--r--
window.elc
294.5
KB
-rw-r--r--
winner.elc
12.04
KB
-rw-r--r--
woman.elc
109.43
KB
-rw-r--r--
x-dnd.elc
19.56
KB
-rw-r--r--
xdg.elc
10.14
KB
-rw-r--r--
xml.elc
25.31
KB
-rw-r--r--
xt-mouse.elc
14.1
KB
-rw-r--r--
xwidget.elc
18.9
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : epg.elc
;ELC ;;; Compiled ;;; in Emacs version 27.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 (#$ . 430)) #@42 An alist mapping from key ID to user ID. (defvar epg-user-id-alist nil (#$ . 507)) (defvar epg-last-status nil) (defvar epg-read-point nil) (defvar epg-process-filter-running nil) (defvar epg-pending-status-list nil) (defvar epg-key-id nil) (defvar epg-context nil) (defvar epg-debug-buffer nil) (defvar epg-agent-file nil) (defvar epg-agent-mtime nil) (defconst epg-cipher-algorithm-alist '((0 . "NONE") (1 . "IDEA") (2 . "3DES") (3 . "CAST5") (4 . "BLOWFISH") (7 . "AES") (8 . "AES192") (9 . "AES256") (10 . "TWOFISH") (11 . "CAMELLIA128") (12 . "CAMELLIA256") (110 . "DUMMY"))) (defconst epg-pubkey-algorithm-alist '((1 . "RSA") (2 . "RSA_E") (3 . "RSA_S") (16 . "ELGAMAL_E") (17 . "DSA") (18 . "ECDH") (19 . "ECDSA") (20 . "ELGAMAL") (22 . "EDDSA") (110 . "PRIVATE10"))) (defconst epg-digest-algorithm-alist '((1 . "MD5") (2 . "SHA1") (3 . "RIPEMD160") (8 . "SHA256") (9 . "SHA384") (10 . "SHA512") (11 . "SHA224") (110 . "PRIVATE10"))) (defconst epg-compress-algorithm-alist '((0 . "NONE") (1 . "ZIP") (2 . "ZLIB") (3 . "BZIP2") (110 . "PRIVATE10"))) (defconst epg-invalid-recipients-reason-alist '((0 . "No specific reason given") (1 . "Not Found") (2 . "Ambiguous specification") (3 . "Wrong key usage") (4 . "Key revoked") (5 . "Key expired") (6 . "No CRL known") (7 . "CRL too old") (8 . "Policy mismatch") (9 . "Not a secret key") (10 . "Key not trusted"))) (defconst epg-delete-problem-reason-alist '((1 . "No such key") (2 . "Must delete secret key first") (3 . "Ambiguous specification"))) (defconst epg-import-ok-reason-alist '((0 . "Not actually changed") (1 . "Entirely new key") (2 . "New user IDs") (4 . "New signatures") (8 . "New subkeys") (16 . "Contains private key"))) (defconst epg-import-problem-reason-alist '((0 . "No specific reason given") (1 . "Invalid Certificate") (2 . "Issuer Certificate missing") (3 . "Certificate Chain too long") (4 . "Error storing certificate"))) (defconst epg-no-data-reason-alist '((1 . "No armored data") (2 . "Expected a packet but did not found one") (3 . "Invalid packet found, this may indicate a non OpenPGP message") (4 . "Signature expected but not found"))) (defconst epg-unexpected-reason-alist nil) (defvar epg-key-validity-alist '((111 . unknown) (105 . invalid) (100 . disabled) (114 . revoked) (101 . expired) (45 . none) (113 . undefined) (110 . never) (109 . marginal) (102 . full) (117 . ultimate))) (defvar epg-key-capability-alist '((101 . encrypt) (115 . sign) (99 . certify) (97 . authentication) (68 . disabled))) (defvar epg-new-signature-type-alist '((68 . detached) (67 . clear) (83 . normal))) (defvar epg-dn-type-alist '(("1.2.840.113549.1.9.1" . "EMail") ("2.5.4.12" . "T") ("2.5.4.42" . "GN") ("2.5.4.4" . "SN") ("0.2.262.1.10.7.20" . "NameDistinguisher") ("2.5.4.16" . "ADDR") ("2.5.4.15" . "BC") ("2.5.4.13" . "D") ("2.5.4.17" . "PostalCode") ("2.5.4.65" . "Pseudo") ("2.5.4.5" . "SerialNumber"))) (defvar epg-prompt-alist nil) (define-error 'epg-error "GPG error") #@78 compiler-macro for inlining `cl--struct-epg-data-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'cl--struct-epg-data-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--struct-epg-data-p (and (memq (type-of cl-x) cl-struct-epg-data-tags) t)) nil] 9 (#$ . 3468)]) (put 'cl--struct-epg-data-p 'compiler-macro 'cl--struct-epg-data-p--cmacro) #@13 (fn CL-X) (defalias 'cl--struct-epg-data-p #[257 "\301!>\205 \302\207" [cl-struct-epg-data-tags type-of t] 3 (#$ . 3845)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put cl--struct-epg-data-p side-effect-free error-free put epg-data cl-deftype-satisfies] 5) #@70 compiler-macro for inlining `epg-data-file'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-data-file--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-data-file (progn (or (cl--struct-epg-data-p cl-x) (signal 'wrong-type-argument (list 'epg-data cl-x))) (aref cl-x 1))) nil] 9 (#$ . 4133)]) (put 'epg-data-file 'compiler-macro 'epg-data-file--cmacro) #@58 Access slot "file" of `epg-data' struct CL-X. (fn CL-X) (defalias 'epg-data-file #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-data-tags type-of signal wrong-type-argument epg-data 1] 5 (#$ . 4524)]) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put epg-data-file side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" epg-data-file] 5 "\n\n(fn CL-DO CL-X)"]] 5) #@72 compiler-macro for inlining `epg-data-string'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-data-string--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-data-string (progn (or (cl--struct-epg-data-p cl-x) (signal 'wrong-type-argument (list 'epg-data cl-x))) (aref cl-x 2))) nil] 9 (#$ . 4974)]) (put 'epg-data-string 'compiler-macro 'epg-data-string--cmacro) #@60 Access slot "string" of `epg-data' struct CL-X. (fn CL-X) (defalias 'epg-data-string #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-data-tags type-of signal wrong-type-argument epg-data 2] 5 (#$ . 5375)]) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put epg-data-string side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" epg-data-string] 5 "\n\n(fn CL-DO CL-X)"]] 5) #@84 compiler-macro for inlining `epg-make-data-from-string'. (fn CL-WHOLE-ARG STRING) (defalias 'epg-make-data-from-string--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (string) (cl-block epg-make-data-from-string (record 'epg-data nil string)) nil] 9 (#$ . 5833)]) (put 'epg-make-data-from-string 'compiler-macro 'epg-make-data-from-string--cmacro) #@58 Constructor for objects of type `epg-data'. (fn STRING) (defalias 'epg-make-data-from-string #[257 "\300\301\302#\207" [record epg-data nil] 5 (#$ . 6210)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-make-data-from-string side-effect-free t] 4) #@80 compiler-macro for inlining `epg-make-data-from-file'. (fn CL-WHOLE-ARG FILE) (defalias 'epg-make-data-from-file--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (file) (cl-block epg-make-data-from-file (record 'epg-data file nil)) nil] 9 (#$ . 6477)]) (put 'epg-make-data-from-file 'compiler-macro 'epg-make-data-from-file--cmacro) #@56 Constructor for objects of type `epg-data'. (fn FILE) (defalias 'epg-make-data-from-file #[257 "\300\301\302#\207" [record epg-data nil] 5 (#$ . 6838)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put epg-make-data-from-file side-effect-free t cl-struct-define epg-data nil cl-structure-object record ((cl-tag-slot) (file nil :read-only t) (string nil :read-only t)) cl-struct-epg-data-tags] 11) #@81 compiler-macro for inlining `cl--struct-epg-context-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'cl--struct-epg-context-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--struct-epg-context-p (and (memq (type-of cl-x) cl-struct-epg-context-tags) t)) nil] 9 (#$ . 7285)]) (put 'cl--struct-epg-context-p 'compiler-macro 'cl--struct-epg-context-p--cmacro) #@13 (fn CL-X) (defalias 'cl--struct-epg-context-p #[257 "\301!>\205 \302\207" [cl-struct-epg-context-tags type-of t] 3 (#$ . 7680)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put cl--struct-epg-context-p side-effect-free error-free put epg-context cl-deftype-satisfies] 5) #@77 compiler-macro for inlining `epg-context-protocol'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-context-protocol--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-protocol (progn (or (cl--struct-epg-context-p cl-x) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 1))) nil] 9 (#$ . 7980)]) (put 'epg-context-protocol 'compiler-macro 'epg-context-protocol--cmacro) #@65 Access slot "protocol" of `epg-context' struct CL-X. (fn CL-X) (defalias 'epg-context-protocol #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 1] 5 (#$ . 8412)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-context-protocol side-effect-free t] 4) #@76 compiler-macro for inlining `epg-context-program'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-context-program--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-program (progn (or (cl--struct-epg-context-p cl-x) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 2))) nil] 9 (#$ . 8761)]) (put 'epg-context-program 'compiler-macro 'epg-context-program--cmacro) #@64 Access slot "program" of `epg-context' struct CL-X. (fn CL-X) (defalias 'epg-context-program #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 2] 5 (#$ . 9188)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-context-program side-effect-free t] 4) #@83 compiler-macro for inlining `epg-context-home-directory'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-context-home-directory--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-home-directory (progn (or (cl--struct-epg-context-p cl-x) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 3))) nil] 9 (#$ . 9534)]) (put 'epg-context-home-directory 'compiler-macro 'epg-context-home-directory--cmacro) #@71 Access slot "home-directory" of `epg-context' struct CL-X. (fn CL-X) (defalias 'epg-context-home-directory #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 3] 5 (#$ . 9996)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-context-home-directory side-effect-free t] 4) #@74 compiler-macro for inlining `epg-context-armor'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-context-armor--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-armor (progn (or (cl--struct-epg-context-p cl-x) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 4))) nil] 9 (#$ . 10363)]) (put 'epg-context-armor 'compiler-macro 'epg-context-armor--cmacro) #@62 Access slot "armor" of `epg-context' struct CL-X. (fn CL-X) (defalias 'epg-context-armor #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 4] 5 (#$ . 10781)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-context-armor side-effect-free t] 4) #@77 compiler-macro for inlining `epg-context-textmode'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-context-textmode--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-textmode (progn (or (cl--struct-epg-context-p cl-x) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 5))) nil] 9 (#$ . 11122)]) (put 'epg-context-textmode 'compiler-macro 'epg-context-textmode--cmacro) #@65 Access slot "textmode" of `epg-context' struct CL-X. (fn CL-X) (defalias 'epg-context-textmode #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 5] 5 (#$ . 11555)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-context-textmode side-effect-free t] 4) #@82 compiler-macro for inlining `epg-context-include-certs'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-context-include-certs--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-include-certs (progn (or (cl--struct-epg-context-p cl-x) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 6))) nil] 9 (#$ . 11905)]) (put 'epg-context-include-certs 'compiler-macro 'epg-context-include-certs--cmacro) #@70 Access slot "include-certs" of `epg-context' struct CL-X. (fn CL-X) (defalias 'epg-context-include-certs #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 6] 5 (#$ . 12363)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-context-include-certs side-effect-free t] 4) #@85 compiler-macro for inlining `epg-context-cipher-algorithm'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-context-cipher-algorithm--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-cipher-algorithm (progn (or (cl--struct-epg-context-p cl-x) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 7))) nil] 9 (#$ . 12728)]) (put 'epg-context-cipher-algorithm 'compiler-macro 'epg-context-cipher-algorithm--cmacro) #@73 Access slot "cipher-algorithm" of `epg-context' struct CL-X. (fn CL-X) (defalias 'epg-context-cipher-algorithm #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 7] 5 (#$ . 13201)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-context-cipher-algorithm side-effect-free t] 4) #@85 compiler-macro for inlining `epg-context-digest-algorithm'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-context-digest-algorithm--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-digest-algorithm (progn (or (cl--struct-epg-context-p cl-x) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 8))) nil] 9 (#$ . 13575)]) (put 'epg-context-digest-algorithm 'compiler-macro 'epg-context-digest-algorithm--cmacro) #@73 Access slot "digest-algorithm" of `epg-context' struct CL-X. (fn CL-X) (defalias 'epg-context-digest-algorithm #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 8] 5 (#$ . 14048)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-context-digest-algorithm side-effect-free t] 4) #@87 compiler-macro for inlining `epg-context-compress-algorithm'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-context-compress-algorithm--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-compress-algorithm (progn (or (cl--struct-epg-context-p cl-x) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 9))) nil] 9 (#$ . 14422)]) (put 'epg-context-compress-algorithm 'compiler-macro 'epg-context-compress-algorithm--cmacro) #@75 Access slot "compress-algorithm" of `epg-context' struct CL-X. (fn CL-X) (defalias 'epg-context-compress-algorithm #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 9] 5 (#$ . 14905)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-context-compress-algorithm side-effect-free t] 4) #@88 compiler-macro for inlining `epg-context-passphrase-callback'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-context-passphrase-callback--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-passphrase-callback (progn (or (cl--struct-epg-context-p cl-x) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 10))) nil] 9 (#$ . 15285)]) (put 'epg-context-passphrase-callback 'compiler-macro 'epg-context-passphrase-callback--cmacro) #@76 Access slot "passphrase-callback" of `epg-context' struct CL-X. (fn CL-X) (defalias 'epg-context-passphrase-callback #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 10] 5 (#$ . 15774)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-context-passphrase-callback side-effect-free t] 4) #@86 compiler-macro for inlining `epg-context-progress-callback'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-context-progress-callback--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-progress-callback (progn (or (cl--struct-epg-context-p cl-x) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 11))) nil] 9 (#$ . 16158)]) (put 'epg-context-progress-callback 'compiler-macro 'epg-context-progress-callback--cmacro) #@74 Access slot "progress-callback" of `epg-context' struct CL-X. (fn CL-X) (defalias 'epg-context-progress-callback #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 11] 5 (#$ . 16637)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-context-progress-callback side-effect-free t] 4) #@82 compiler-macro for inlining `epg-context-edit-callback'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-context-edit-callback--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-edit-callback (progn (or (cl--struct-epg-context-p cl-x) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 12))) nil] 9 (#$ . 17015)]) (put 'epg-context-edit-callback 'compiler-macro 'epg-context-edit-callback--cmacro) #@70 Access slot "edit-callback" of `epg-context' struct CL-X. (fn CL-X) (defalias 'epg-context-edit-callback #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 12] 5 (#$ . 17474)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-context-edit-callback side-effect-free t] 4) #@76 compiler-macro for inlining `epg-context-signers'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-context-signers--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-signers (progn (or (cl--struct-epg-context-p cl-x) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 13))) nil] 9 (#$ . 17840)]) (put 'epg-context-signers 'compiler-macro 'epg-context-signers--cmacro) #@64 Access slot "signers" of `epg-context' struct CL-X. (fn CL-X) (defalias 'epg-context-signers #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 13] 5 (#$ . 18269)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-context-signers side-effect-free t] 4) #@75 compiler-macro for inlining `epg-context-sender'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-context-sender--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-sender (progn (or (cl--struct-epg-context-p cl-x) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 14))) nil] 9 (#$ . 18617)]) (put 'epg-context-sender 'compiler-macro 'epg-context-sender--cmacro) #@63 Access slot "sender" of `epg-context' struct CL-X. (fn CL-X) (defalias 'epg-context-sender #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 14] 5 (#$ . 19041)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-context-sender side-effect-free t] 4) #@82 compiler-macro for inlining `epg-context-sig-notations'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-context-sig-notations--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-sig-notations (progn (or (cl--struct-epg-context-p cl-x) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 15))) nil] 9 (#$ . 19386)]) (put 'epg-context-sig-notations 'compiler-macro 'epg-context-sig-notations--cmacro) #@70 Access slot "sig-notations" of `epg-context' struct CL-X. (fn CL-X) (defalias 'epg-context-sig-notations #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 15] 5 (#$ . 19845)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-context-sig-notations side-effect-free t] 4) #@76 compiler-macro for inlining `epg-context-process'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-context-process--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-process (progn (or (cl--struct-epg-context-p cl-x) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 16))) nil] 9 (#$ . 20211)]) (put 'epg-context-process 'compiler-macro 'epg-context-process--cmacro) #@64 Access slot "process" of `epg-context' struct CL-X. (fn CL-X) (defalias 'epg-context-process #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 16] 5 (#$ . 20640)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-context-process side-effect-free t] 4) #@80 compiler-macro for inlining `epg-context-output-file'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-context-output-file--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-output-file (progn (or (cl--struct-epg-context-p cl-x) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 17))) nil] 9 (#$ . 20988)]) (put 'epg-context-output-file 'compiler-macro 'epg-context-output-file--cmacro) #@68 Access slot "output-file" of `epg-context' struct CL-X. (fn CL-X) (defalias 'epg-context-output-file #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 17] 5 (#$ . 21437)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-context-output-file side-effect-free t] 4) #@75 compiler-macro for inlining `epg-context-result'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-context-result--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-result (progn (or (cl--struct-epg-context-p cl-x) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 18))) nil] 9 (#$ . 21797)]) (put 'epg-context-result 'compiler-macro 'epg-context-result--cmacro) #@63 Access slot "result" of `epg-context' struct CL-X. (fn CL-X) (defalias 'epg-context-result #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 18] 5 (#$ . 22221)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-context-result side-effect-free t] 4) #@78 compiler-macro for inlining `epg-context-operation'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-context-operation--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-operation (progn (or (cl--struct-epg-context-p cl-x) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 19))) nil] 9 (#$ . 22566)]) (put 'epg-context-operation 'compiler-macro 'epg-context-operation--cmacro) #@66 Access slot "operation" of `epg-context' struct CL-X. (fn CL-X) (defalias 'epg-context-operation #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 19] 5 (#$ . 23005)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-context-operation side-effect-free t] 4) #@82 compiler-macro for inlining `epg-context-pinentry-mode'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-context-pinentry-mode--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-pinentry-mode (progn (or (cl--struct-epg-context-p cl-x) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 20))) nil] 9 (#$ . 23359)]) (put 'epg-context-pinentry-mode 'compiler-macro 'epg-context-pinentry-mode--cmacro) #@70 Access slot "pinentry-mode" of `epg-context' struct CL-X. (fn CL-X) (defalias 'epg-context-pinentry-mode #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 20] 5 (#$ . 23818)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-context-pinentry-mode side-effect-free t] 4) #@81 compiler-macro for inlining `epg-context-error-output'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-context-error-output--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-error-output (progn (or (cl--struct-epg-context-p cl-x) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 21))) nil] 9 (#$ . 24184)]) (put 'epg-context-error-output 'compiler-macro 'epg-context-error-output--cmacro) #@69 Access slot "error-output" of `epg-context' struct CL-X. (fn CL-X) (defalias 'epg-context-error-output #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 21] 5 (#$ . 24638)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-context-error-output side-effect-free t] 4) #@81 compiler-macro for inlining `epg-context-error-buffer'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-context-error-buffer--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-context-error-buffer (progn (or (cl--struct-epg-context-p cl-x) (signal 'wrong-type-argument (list 'epg-context cl-x))) (aref cl-x 22))) nil] 9 (#$ . 25001)]) (put 'epg-context-error-buffer 'compiler-macro 'epg-context-error-buffer--cmacro) #@69 Access slot "error-buffer" of `epg-context' struct CL-X. (fn CL-X) (defalias 'epg-context-error-buffer #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 22] 5 (#$ . 25455)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-context-error-buffer side-effect-free t] 4) #@155 Constructor for objects of type `epg-context'. (fn PROTOCOL &optional ARMOR TEXTMODE INCLUDE-CERTS CIPHER-ALGORITHM DIGEST-ALGORITHM COMPRESS-ALGORITHM) (defalias 'epg-context--make #[1921 "\302!\211\204 \303\304\305 D\"\210\306\307\"\262\203$ \303\310\311\312G\\D\"\210\313\314\n\f\f\f\f\f\f\315C\316\211\211\211\211\211\211\211\211 \317\316&\207" [epg-gpg-home-directory epg-pinentry-mode epg-find-configuration signal epg-error "no usable configuration" alist-get program wrong-number-of-arguments epg-context--make 7 record epg-context epg-passphrase-callback-function nil ""] 33 (#$ . 25819)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put epg-context--make side-effect-free t cl-struct-define epg-context nil cl-structure-object record ((cl-tag-slot) (protocol) (program) (home-directory epg-gpg-home-directory) (armor) (textmode) (include-certs) (cipher-algorithm) (digest-algorithm) (compress-algorithm) (passphrase-callback (list #'epg-passphrase-callback-function)) (progress-callback) (edit-callback) (signers) (sender) (sig-notations) (process) (output-file) (result) (operation) (pinentry-mode epg-pinentry-mode) (error-output "") (error-buffer)) cl-struct-epg-context-tags] 11) #@133 Return a context object. (fn &optional PROTOCOL ARMOR TEXTMODE INCLUDE-CERTS CIPHER-ALGORITHM DIGEST-ALGORITHM COMPRESS-ALGORITHM) (defalias 'epg-make-context #[1792 "\300\206 \301&\207" [epg-context--make OpenPGP] 15 (#$ . 27082)]) #@79 Specify if the output should be ASCII armored in CONTEXT. (fn CONTEXT ARMOR) (defalias 'epg-context-set-armor #[514 "\301!>\204 \302\303\304D\"\210\211\305I\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 4] 6 (#$ . 27338)]) (make-obsolete 'epg-context-set-armor 'setf "25.1") #@82 Specify if canonical text mode should be used in CONTEXT. (fn CONTEXT TEXTMODE) (defalias 'epg-context-set-textmode #[514 "\301!>\204 \302\303\304D\"\210\211\305I\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 5] 6 (#$ . 27660)]) (make-obsolete 'epg-context-set-textmode 'setf "25.1") #@597 Set the function used to query passphrase. PASSPHRASE-CALLBACK is either a function, or a cons-cell whose car is a function and cdr is a callback data. The function gets three arguments: the context, the key-id in question, and the callback data (if any). The callback may not be called if you use GnuPG 2.x, which relies on the external program called `gpg-agent' for passphrase query. If you really want to intercept passphrase query, consider installing GnuPG 1.x _along with_ GnuPG 2.x, which does passphrase query by itself and Emacs can intercept them. (fn CONTEXT PASSPHRASE-CALLBACK) (defalias 'epg-context-set-passphrase-callback #[514 "\301!>\204 \302\303\304D\"\210\211\305\306!\203 C\202 I\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 10 functionp] 7 (#$ . 27992)]) #@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 "\301!>\204 \302\303\304D\"\210\211\305\306!\203 C\202 I\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 11 functionp] 7 (#$ . 28826)]) #@59 Set the list of key-id for signing. (fn CONTEXT SIGNERS) (defalias 'epg-context-set-signers #[514 "\301!>\204 \302\303\304D\"\210\211\305I\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 13] 6 (#$ . 29451)]) (make-obsolete 'epg-context-set-signers 'setf "25.1") #@83 compiler-macro for inlining `cl--struct-epg-signature-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'cl--struct-epg-signature-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--struct-epg-signature-p (and (memq (type-of cl-x) cl-struct-epg-signature-tags) t)) nil] 9 (#$ . 29758)]) (put 'cl--struct-epg-signature-p 'compiler-macro 'cl--struct-epg-signature-p--cmacro) #@13 (fn CL-X) (defalias 'cl--struct-epg-signature-p #[257 "\301!>\205 \302\207" [cl-struct-epg-signature-tags type-of t] 3 (#$ . 30166)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put cl--struct-epg-signature-p side-effect-free error-free put epg-signature cl-deftype-satisfies] 5) #@77 compiler-macro for inlining `epg-signature-status'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-signature-status--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-signature-status (progn (or (cl--struct-epg-signature-p cl-x) (signal 'wrong-type-argument (list 'epg-signature cl-x))) (aref cl-x 1))) nil] 9 (#$ . 30475)]) (put 'epg-signature-status 'compiler-macro 'epg-signature-status--cmacro) #@65 Access slot "status" of `epg-signature' struct CL-X. (fn CL-X) (defalias 'epg-signature-status #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-signature-tags type-of signal wrong-type-argument epg-signature 1] 5 (#$ . 30912)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-signature-status side-effect-free t] 4) #@77 compiler-macro for inlining `epg-signature-key-id'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-signature-key-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-signature-key-id (progn (or (cl--struct-epg-signature-p cl-x) (signal 'wrong-type-argument (list 'epg-signature cl-x))) (aref cl-x 2))) nil] 9 (#$ . 31266)]) (put 'epg-signature-key-id 'compiler-macro 'epg-signature-key-id--cmacro) #@65 Access slot "key-id" of `epg-signature' struct CL-X. (fn CL-X) (defalias 'epg-signature-key-id #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-signature-tags type-of signal wrong-type-argument epg-signature 2] 5 (#$ . 31703)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-signature-key-id side-effect-free t] 4) #@79 compiler-macro for inlining `epg-signature-validity'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-signature-validity--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-signature-validity (progn (or (cl--struct-epg-signature-p cl-x) (signal 'wrong-type-argument (list 'epg-signature cl-x))) (aref cl-x 3))) nil] 9 (#$ . 32057)]) (put 'epg-signature-validity 'compiler-macro 'epg-signature-validity--cmacro) #@67 Access slot "validity" of `epg-signature' struct CL-X. (fn CL-X) (defalias 'epg-signature-validity #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-signature-tags type-of signal wrong-type-argument epg-signature 3] 5 (#$ . 32504)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-signature-validity side-effect-free t] 4) #@82 compiler-macro for inlining `epg-signature-fingerprint'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-signature-fingerprint--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-signature-fingerprint (progn (or (cl--struct-epg-signature-p cl-x) (signal 'wrong-type-argument (list 'epg-signature cl-x))) (aref cl-x 4))) nil] 9 (#$ . 32864)]) (put 'epg-signature-fingerprint 'compiler-macro 'epg-signature-fingerprint--cmacro) #@70 Access slot "fingerprint" of `epg-signature' struct CL-X. (fn CL-X) (defalias 'epg-signature-fingerprint #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-signature-tags type-of signal wrong-type-argument epg-signature 4] 5 (#$ . 33326)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-signature-fingerprint side-effect-free t] 4) #@84 compiler-macro for inlining `epg-signature-creation-time'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-signature-creation-time--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-signature-creation-time (progn (or (cl--struct-epg-signature-p cl-x) (signal 'wrong-type-argument (list 'epg-signature cl-x))) (aref cl-x 5))) nil] 9 (#$ . 33695)]) (put 'epg-signature-creation-time 'compiler-macro 'epg-signature-creation-time--cmacro) #@72 Access slot "creation-time" of `epg-signature' struct CL-X. (fn CL-X) (defalias 'epg-signature-creation-time #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-signature-tags type-of signal wrong-type-argument epg-signature 5] 5 (#$ . 34167)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-signature-creation-time side-effect-free t] 4) #@86 compiler-macro for inlining `epg-signature-expiration-time'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-signature-expiration-time--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-signature-expiration-time (progn (or (cl--struct-epg-signature-p cl-x) (signal 'wrong-type-argument (list 'epg-signature cl-x))) (aref cl-x 6))) nil] 9 (#$ . 34542)]) (put 'epg-signature-expiration-time 'compiler-macro 'epg-signature-expiration-time--cmacro) #@74 Access slot "expiration-time" of `epg-signature' struct CL-X. (fn CL-X) (defalias 'epg-signature-expiration-time #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-signature-tags type-of signal wrong-type-argument epg-signature 6] 5 (#$ . 35024)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-signature-expiration-time side-effect-free t] 4) #@87 compiler-macro for inlining `epg-signature-pubkey-algorithm'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-signature-pubkey-algorithm--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-signature-pubkey-algorithm (progn (or (cl--struct-epg-signature-p cl-x) (signal 'wrong-type-argument (list 'epg-signature cl-x))) (aref cl-x 7))) nil] 9 (#$ . 35405)]) (put 'epg-signature-pubkey-algorithm 'compiler-macro 'epg-signature-pubkey-algorithm--cmacro) #@75 Access slot "pubkey-algorithm" of `epg-signature' struct CL-X. (fn CL-X) (defalias 'epg-signature-pubkey-algorithm #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-signature-tags type-of signal wrong-type-argument epg-signature 7] 5 (#$ . 35892)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-signature-pubkey-algorithm side-effect-free t] 4) #@87 compiler-macro for inlining `epg-signature-digest-algorithm'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-signature-digest-algorithm--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-signature-digest-algorithm (progn (or (cl--struct-epg-signature-p cl-x) (signal 'wrong-type-argument (list 'epg-signature cl-x))) (aref cl-x 8))) nil] 9 (#$ . 36276)]) (put 'epg-signature-digest-algorithm 'compiler-macro 'epg-signature-digest-algorithm--cmacro) #@75 Access slot "digest-algorithm" of `epg-signature' struct CL-X. (fn CL-X) (defalias 'epg-signature-digest-algorithm #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-signature-tags type-of signal wrong-type-argument epg-signature 8] 5 (#$ . 36763)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-signature-digest-algorithm side-effect-free t] 4) #@76 compiler-macro for inlining `epg-signature-class'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-signature-class--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-signature-class (progn (or (cl--struct-epg-signature-p cl-x) (signal 'wrong-type-argument (list 'epg-signature cl-x))) (aref cl-x 9))) nil] 9 (#$ . 37147)]) (put 'epg-signature-class 'compiler-macro 'epg-signature-class--cmacro) #@64 Access slot "class" of `epg-signature' struct CL-X. (fn CL-X) (defalias 'epg-signature-class #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-signature-tags type-of signal wrong-type-argument epg-signature 9] 5 (#$ . 37579)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-signature-class side-effect-free t] 4) #@78 compiler-macro for inlining `epg-signature-version'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-signature-version--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-signature-version (progn (or (cl--struct-epg-signature-p cl-x) (signal 'wrong-type-argument (list 'epg-signature cl-x))) (aref cl-x 10))) nil] 9 (#$ . 37930)]) (put 'epg-signature-version 'compiler-macro 'epg-signature-version--cmacro) #@66 Access slot "version" of `epg-signature' struct CL-X. (fn CL-X) (defalias 'epg-signature-version #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-signature-tags type-of signal wrong-type-argument epg-signature 10] 5 (#$ . 38373)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-signature-version side-effect-free t] 4) #@80 compiler-macro for inlining `epg-signature-notations'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-signature-notations--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-signature-notations (progn (or (cl--struct-epg-signature-p cl-x) (signal 'wrong-type-argument (list 'epg-signature cl-x))) (aref cl-x 11))) nil] 9 (#$ . 38731)]) (put 'epg-signature-notations 'compiler-macro 'epg-signature-notations--cmacro) #@68 Access slot "notations" of `epg-signature' struct CL-X. (fn CL-X) (defalias 'epg-signature-notations #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-signature-tags type-of signal wrong-type-argument epg-signature 11] 5 (#$ . 39184)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-signature-notations side-effect-free t] 4) #@94 compiler-macro for inlining `epg-make-signature'. (fn CL-WHOLE-ARG STATUS &optional KEY-ID) (defalias 'epg-make-signature--cmacro #[770 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (status key-id) (cl-block epg-make-signature (record 'epg-signature status key-id nil nil nil nil nil nil nil nil nil)) nil] 11 (#$ . 39548)]) (put 'epg-make-signature 'compiler-macro 'epg-make-signature--cmacro) #@80 Constructor for objects of type `epg-signature'. (fn STATUS &optional KEY-ID) (defalias 'epg-make-signature #[513 "\300\301\302\211\211\211\211\211\211\211\211&\f\207" [record epg-signature nil] 15 (#$ . 39962)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put epg-make-signature side-effect-free t cl-struct-define epg-signature nil cl-structure-object record ((cl-tag-slot) (status) (key-id) (validity) (fingerprint) (creation-time) (expiration-time) (pubkey-algorithm) (digest-algorithm) (class) (version) (notations)) cl-struct-epg-signature-tags] 11) #@87 compiler-macro for inlining `cl--struct-epg-new-signature-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'cl--struct-epg-new-signature-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--struct-epg-new-signature-p (and (memq (type-of cl-x) cl-struct-epg-new-signature-tags) t)) nil] 9 (#$ . 40570)]) (put 'cl--struct-epg-new-signature-p 'compiler-macro 'cl--struct-epg-new-signature-p--cmacro) #@13 (fn CL-X) (defalias 'cl--struct-epg-new-signature-p #[257 "\301!>\205 \302\207" [cl-struct-epg-new-signature-tags type-of t] 3 (#$ . 41002)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put cl--struct-epg-new-signature-p side-effect-free error-free put epg-new-signature cl-deftype-satisfies] 5) #@79 compiler-macro for inlining `epg-new-signature-type'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-new-signature-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-new-signature-type (progn (or (cl--struct-epg-new-signature-p cl-x) (signal 'wrong-type-argument (list 'epg-new-signature cl-x))) (aref cl-x 1))) nil] 9 (#$ . 41327)]) (put 'epg-new-signature-type 'compiler-macro 'epg-new-signature-type--cmacro) #@67 Access slot "type" of `epg-new-signature' struct CL-X. (fn CL-X) (defalias 'epg-new-signature-type #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-new-signature-tags type-of signal wrong-type-argument epg-new-signature 1] 5 (#$ . 41782)]) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put epg-new-signature-type side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" epg-new-signature-type] 5 "\n\n(fn CL-DO CL-X)"]] 5) #@91 compiler-macro for inlining `epg-new-signature-pubkey-algorithm'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-new-signature-pubkey-algorithm--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-new-signature-pubkey-algorithm (progn (or (cl--struct-epg-new-signature-p cl-x) (signal 'wrong-type-argument (list 'epg-new-signature cl-x))) (aref cl-x 2))) nil] 9 (#$ . 42287)]) (put 'epg-new-signature-pubkey-algorithm 'compiler-macro 'epg-new-signature-pubkey-algorithm--cmacro) #@79 Access slot "pubkey-algorithm" of `epg-new-signature' struct CL-X. (fn CL-X) (defalias 'epg-new-signature-pubkey-algorithm #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-new-signature-tags type-of signal wrong-type-argument epg-new-signature 2] 5 (#$ . 42802)]) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put epg-new-signature-pubkey-algorithm side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" epg-new-signature-pubkey-algorithm] 5 "\n\n(fn CL-DO CL-X)"]] 5) #@91 compiler-macro for inlining `epg-new-signature-digest-algorithm'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-new-signature-digest-algorithm--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-new-signature-digest-algorithm (progn (or (cl--struct-epg-new-signature-p cl-x) (signal 'wrong-type-argument (list 'epg-new-signature cl-x))) (aref cl-x 3))) nil] 9 (#$ . 43355)]) (put 'epg-new-signature-digest-algorithm 'compiler-macro 'epg-new-signature-digest-algorithm--cmacro) #@79 Access slot "digest-algorithm" of `epg-new-signature' struct CL-X. (fn CL-X) (defalias 'epg-new-signature-digest-algorithm #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-new-signature-tags type-of signal wrong-type-argument epg-new-signature 3] 5 (#$ . 43870)]) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put epg-new-signature-digest-algorithm side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" epg-new-signature-digest-algorithm] 5 "\n\n(fn CL-DO CL-X)"]] 5) #@80 compiler-macro for inlining `epg-new-signature-class'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-new-signature-class--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-new-signature-class (progn (or (cl--struct-epg-new-signature-p cl-x) (signal 'wrong-type-argument (list 'epg-new-signature cl-x))) (aref cl-x 4))) nil] 9 (#$ . 44423)]) (put 'epg-new-signature-class 'compiler-macro 'epg-new-signature-class--cmacro) #@68 Access slot "class" of `epg-new-signature' struct CL-X. (fn CL-X) (defalias 'epg-new-signature-class #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-new-signature-tags type-of signal wrong-type-argument epg-new-signature 4] 5 (#$ . 44883)]) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put epg-new-signature-class side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" epg-new-signature-class] 5 "\n\n(fn CL-DO CL-X)"]] 5) #@88 compiler-macro for inlining `epg-new-signature-creation-time'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-new-signature-creation-time--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-new-signature-creation-time (progn (or (cl--struct-epg-new-signature-p cl-x) (signal 'wrong-type-argument (list 'epg-new-signature cl-x))) (aref cl-x 5))) nil] 9 (#$ . 45392)]) (put 'epg-new-signature-creation-time 'compiler-macro 'epg-new-signature-creation-time--cmacro) #@76 Access slot "creation-time" of `epg-new-signature' struct CL-X. (fn CL-X) (defalias 'epg-new-signature-creation-time #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-new-signature-tags type-of signal wrong-type-argument epg-new-signature 5] 5 (#$ . 45892)]) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put epg-new-signature-creation-time side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" epg-new-signature-creation-time] 5 "\n\n(fn CL-DO CL-X)"]] 5) #@86 compiler-macro for inlining `epg-new-signature-fingerprint'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-new-signature-fingerprint--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-new-signature-fingerprint (progn (or (cl--struct-epg-new-signature-p cl-x) (signal 'wrong-type-argument (list 'epg-new-signature cl-x))) (aref cl-x 6))) nil] 9 (#$ . 46433)]) (put 'epg-new-signature-fingerprint 'compiler-macro 'epg-new-signature-fingerprint--cmacro) #@74 Access slot "fingerprint" of `epg-new-signature' struct CL-X. (fn CL-X) (defalias 'epg-new-signature-fingerprint #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-new-signature-tags type-of signal wrong-type-argument epg-new-signature 6] 5 (#$ . 46923)]) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put epg-new-signature-fingerprint side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" epg-new-signature-fingerprint] 5 "\n\n(fn CL-DO CL-X)"]] 5) #@145 compiler-macro for inlining `epg-make-new-signature'. (fn CL-WHOLE-ARG TYPE PUBKEY-ALGORITHM DIGEST-ALGORITHM CLASS CREATION-TIME FINGERPRINT) (defalias 'epg-make-new-signature--cmacro #[1799 "\300\301\302\303\211\211 & \207" [cl--defsubst-expand (type pubkey-algorithm digest-algorithm class creation-time fingerprint) (cl-block epg-make-new-signature (record 'epg-new-signature type pubkey-algorithm digest-algorithm class creation-time fingerprint)) nil] 19 (#$ . 47457)]) (put 'epg-make-new-signature 'compiler-macro 'epg-make-new-signature--cmacro) #@131 Constructor for objects of type `epg-new-signature'. (fn TYPE PUBKEY-ALGORITHM DIGEST-ALGORITHM CLASS CREATION-TIME FINGERPRINT) (defalias 'epg-make-new-signature #[1542 "\300\301&\207" [record epg-new-signature] 14 (#$ . 48030)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put epg-make-new-signature side-effect-free t cl-struct-define epg-new-signature nil cl-structure-object record ((cl-tag-slot) (type nil :read-only t) (pubkey-algorithm nil :read-only t) (digest-algorithm nil :read-only t) (class nil :read-only t) (creation-time nil :read-only t) (fingerprint nil :read-only t)) cl-struct-epg-new-signature-tags] 11) #@77 compiler-macro for inlining `cl--struct-epg-key-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'cl--struct-epg-key-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--struct-epg-key-p (and (memq (type-of cl-x) cl-struct-epg-key-tags) t)) nil] 9 (#$ . 48719)]) (put 'cl--struct-epg-key-p 'compiler-macro 'cl--struct-epg-key-p--cmacro) #@13 (fn CL-X) (defalias 'cl--struct-epg-key-p #[257 "\301!>\205 \302\207" [cl-struct-epg-key-tags type-of t] 3 (#$ . 49091)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put cl--struct-epg-key-p side-effect-free error-free put epg-key cl-deftype-satisfies] 5) #@76 compiler-macro for inlining `epg-key-owner-trust'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-key-owner-trust--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-key-owner-trust (progn (or (cl--struct-epg-key-p cl-x) (signal 'wrong-type-argument (list 'epg-key cl-x))) (aref cl-x 1))) nil] 9 (#$ . 49376)]) (put 'epg-key-owner-trust 'compiler-macro 'epg-key-owner-trust--cmacro) #@64 Access slot "owner-trust" of `epg-key' struct CL-X. (fn CL-X) (defalias 'epg-key-owner-trust #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-key-tags type-of signal wrong-type-argument epg-key 1] 5 (#$ . 49796)]) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put epg-key-owner-trust side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" epg-key-owner-trust] 5 "\n\n(fn CL-DO CL-X)"]] 5) #@77 compiler-macro for inlining `epg-key-sub-key-list'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-key-sub-key-list--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-key-sub-key-list (progn (or (cl--struct-epg-key-p cl-x) (signal 'wrong-type-argument (list 'epg-key cl-x))) (aref cl-x 2))) nil] 9 (#$ . 50269)]) (put 'epg-key-sub-key-list 'compiler-macro 'epg-key-sub-key-list--cmacro) #@65 Access slot "sub-key-list" of `epg-key' struct CL-X. (fn CL-X) (defalias 'epg-key-sub-key-list #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-key-tags type-of signal wrong-type-argument epg-key 2] 5 (#$ . 50694)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-key-sub-key-list side-effect-free t] 4) #@77 compiler-macro for inlining `epg-key-user-id-list'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-key-user-id-list--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-key-user-id-list (progn (or (cl--struct-epg-key-p cl-x) (signal 'wrong-type-argument (list 'epg-key cl-x))) (aref cl-x 3))) nil] 9 (#$ . 51036)]) (put 'epg-key-user-id-list 'compiler-macro 'epg-key-user-id-list--cmacro) #@65 Access slot "user-id-list" of `epg-key' struct CL-X. (fn CL-X) (defalias 'epg-key-user-id-list #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-key-tags type-of signal wrong-type-argument epg-key 3] 5 (#$ . 51461)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-key-user-id-list side-effect-free t] 4) #@76 compiler-macro for inlining `epg-make-key'. (fn CL-WHOLE-ARG OWNER-TRUST) (defalias 'epg-make-key--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (owner-trust) (cl-block epg-make-key (record 'epg-key owner-trust nil nil)) nil] 9 (#$ . 51803)]) (put 'epg-make-key 'compiler-macro 'epg-make-key--cmacro) #@62 Constructor for objects of type `epg-key'. (fn OWNER-TRUST) (defalias 'epg-make-key #[257 "\300\301\302\211$\207" [record epg-key nil] 6 (#$ . 52134)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put epg-make-key side-effect-free t cl-struct-define epg-key nil cl-structure-object record ((cl-tag-slot) (owner-trust nil :read-only t) (sub-key-list) (user-id-list)) cl-struct-epg-key-tags] 11) #@81 compiler-macro for inlining `cl--struct-epg-sub-key-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'cl--struct-epg-sub-key-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--struct-epg-sub-key-p (and (memq (type-of cl-x) cl-struct-epg-sub-key-tags) t)) nil] 9 (#$ . 52578)]) (put 'cl--struct-epg-sub-key-p 'compiler-macro 'cl--struct-epg-sub-key-p--cmacro) #@13 (fn CL-X) (defalias 'cl--struct-epg-sub-key-p #[257 "\301!>\205 \302\207" [cl-struct-epg-sub-key-tags type-of t] 3 (#$ . 52974)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put cl--struct-epg-sub-key-p side-effect-free error-free put epg-sub-key cl-deftype-satisfies] 5) #@77 compiler-macro for inlining `epg-sub-key-validity'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-sub-key-validity--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-sub-key-validity (progn (or (cl--struct-epg-sub-key-p cl-x) (signal 'wrong-type-argument (list 'epg-sub-key cl-x))) (aref cl-x 1))) nil] 9 (#$ . 53275)]) (put 'epg-sub-key-validity 'compiler-macro 'epg-sub-key-validity--cmacro) #@65 Access slot "validity" of `epg-sub-key' struct CL-X. (fn CL-X) (defalias 'epg-sub-key-validity #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-sub-key-tags type-of signal wrong-type-argument epg-sub-key 1] 5 (#$ . 53708)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-sub-key-validity side-effect-free t] 4) #@79 compiler-macro for inlining `epg-sub-key-capability'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-sub-key-capability--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-sub-key-capability (progn (or (cl--struct-epg-sub-key-p cl-x) (signal 'wrong-type-argument (list 'epg-sub-key cl-x))) (aref cl-x 2))) nil] 9 (#$ . 54058)]) (put 'epg-sub-key-capability 'compiler-macro 'epg-sub-key-capability--cmacro) #@67 Access slot "capability" of `epg-sub-key' struct CL-X. (fn CL-X) (defalias 'epg-sub-key-capability #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-sub-key-tags type-of signal wrong-type-argument epg-sub-key 2] 5 (#$ . 54501)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-sub-key-capability side-effect-free t] 4) #@77 compiler-macro for inlining `epg-sub-key-secret-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-sub-key-secret-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-sub-key-secret-p (progn (or (cl--struct-epg-sub-key-p cl-x) (signal 'wrong-type-argument (list 'epg-sub-key cl-x))) (aref cl-x 3))) nil] 9 (#$ . 54857)]) (put 'epg-sub-key-secret-p 'compiler-macro 'epg-sub-key-secret-p--cmacro) #@65 Access slot "secret-p" of `epg-sub-key' struct CL-X. (fn CL-X) (defalias 'epg-sub-key-secret-p #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-sub-key-tags type-of signal wrong-type-argument epg-sub-key 3] 5 (#$ . 55290)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-sub-key-secret-p side-effect-free t] 4) #@78 compiler-macro for inlining `epg-sub-key-algorithm'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-sub-key-algorithm--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-sub-key-algorithm (progn (or (cl--struct-epg-sub-key-p cl-x) (signal 'wrong-type-argument (list 'epg-sub-key cl-x))) (aref cl-x 4))) nil] 9 (#$ . 55640)]) (put 'epg-sub-key-algorithm 'compiler-macro 'epg-sub-key-algorithm--cmacro) #@66 Access slot "algorithm" of `epg-sub-key' struct CL-X. (fn CL-X) (defalias 'epg-sub-key-algorithm #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-sub-key-tags type-of signal wrong-type-argument epg-sub-key 4] 5 (#$ . 56078)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-sub-key-algorithm side-effect-free t] 4) #@75 compiler-macro for inlining `epg-sub-key-length'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-sub-key-length--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-sub-key-length (progn (or (cl--struct-epg-sub-key-p cl-x) (signal 'wrong-type-argument (list 'epg-sub-key cl-x))) (aref cl-x 5))) nil] 9 (#$ . 56431)]) (put 'epg-sub-key-length 'compiler-macro 'epg-sub-key-length--cmacro) #@63 Access slot "length" of `epg-sub-key' struct CL-X. (fn CL-X) (defalias 'epg-sub-key-length #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-sub-key-tags type-of signal wrong-type-argument epg-sub-key 5] 5 (#$ . 56854)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-sub-key-length side-effect-free t] 4) #@71 compiler-macro for inlining `epg-sub-key-id'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-sub-key-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-sub-key-id (progn (or (cl--struct-epg-sub-key-p cl-x) (signal 'wrong-type-argument (list 'epg-sub-key cl-x))) (aref cl-x 6))) nil] 9 (#$ . 57198)]) (put 'epg-sub-key-id 'compiler-macro 'epg-sub-key-id--cmacro) #@59 Access slot "id" of `epg-sub-key' struct CL-X. (fn CL-X) (defalias 'epg-sub-key-id #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-sub-key-tags type-of signal wrong-type-argument epg-sub-key 6] 5 (#$ . 57601)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-sub-key-id side-effect-free t] 4) #@82 compiler-macro for inlining `epg-sub-key-creation-time'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-sub-key-creation-time--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-sub-key-creation-time (progn (or (cl--struct-epg-sub-key-p cl-x) (signal 'wrong-type-argument (list 'epg-sub-key cl-x))) (aref cl-x 7))) nil] 9 (#$ . 57933)]) (put 'epg-sub-key-creation-time 'compiler-macro 'epg-sub-key-creation-time--cmacro) #@70 Access slot "creation-time" of `epg-sub-key' struct CL-X. (fn CL-X) (defalias 'epg-sub-key-creation-time #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-sub-key-tags type-of signal wrong-type-argument epg-sub-key 7] 5 (#$ . 58391)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-sub-key-creation-time side-effect-free t] 4) #@84 compiler-macro for inlining `epg-sub-key-expiration-time'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-sub-key-expiration-time--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-sub-key-expiration-time (progn (or (cl--struct-epg-sub-key-p cl-x) (signal 'wrong-type-argument (list 'epg-sub-key cl-x))) (aref cl-x 8))) nil] 9 (#$ . 58756)]) (put 'epg-sub-key-expiration-time 'compiler-macro 'epg-sub-key-expiration-time--cmacro) #@72 Access slot "expiration-time" of `epg-sub-key' struct CL-X. (fn CL-X) (defalias 'epg-sub-key-expiration-time #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-sub-key-tags type-of signal wrong-type-argument epg-sub-key 8] 5 (#$ . 59224)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-sub-key-expiration-time side-effect-free t] 4) #@80 compiler-macro for inlining `epg-sub-key-fingerprint'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-sub-key-fingerprint--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-sub-key-fingerprint (progn (or (cl--struct-epg-sub-key-p cl-x) (signal 'wrong-type-argument (list 'epg-sub-key cl-x))) (aref cl-x 9))) nil] 9 (#$ . 59595)]) (put 'epg-sub-key-fingerprint 'compiler-macro 'epg-sub-key-fingerprint--cmacro) #@68 Access slot "fingerprint" of `epg-sub-key' struct CL-X. (fn CL-X) (defalias 'epg-sub-key-fingerprint #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-sub-key-tags type-of signal wrong-type-argument epg-sub-key 9] 5 (#$ . 60043)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-sub-key-fingerprint side-effect-free t] 4) #@147 compiler-macro for inlining `epg-make-sub-key'. (fn CL-WHOLE-ARG VALIDITY CAPABILITY SECRET-P ALGORITHM LENGTH ID CREATION-TIME EXPIRATION-TIME) (defalias 'epg-make-sub-key--cmacro #[2313 "\300\301\302\303\211\211 & \207" [cl--defsubst-expand (validity capability secret-p algorithm length id creation-time expiration-time) (cl-block epg-make-sub-key (record 'epg-sub-key validity capability secret-p algorithm length id creation-time expiration-time nil)) nil] 23 (#$ . 60403)]) (put 'epg-make-sub-key 'compiler-macro 'epg-make-sub-key--cmacro) #@133 Constructor for objects of type `epg-sub-key'. (fn VALIDITY CAPABILITY SECRET-P ALGORITHM LENGTH ID CREATION-TIME EXPIRATION-TIME) (defalias 'epg-make-sub-key #[2056 "\300\301 \302&\n\207" [record epg-sub-key nil] 19 (#$ . 60972)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put epg-make-sub-key side-effect-free t cl-struct-define epg-sub-key nil cl-structure-object record ((cl-tag-slot) (validity) (capability) (secret-p) (algorithm) (length) (id) (creation-time) (expiration-time) (fingerprint)) cl-struct-epg-sub-key-tags] 11) #@81 compiler-macro for inlining `cl--struct-epg-user-id-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'cl--struct-epg-user-id-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--struct-epg-user-id-p (and (memq (type-of cl-x) cl-struct-epg-user-id-tags) t)) nil] 9 (#$ . 61570)]) (put 'cl--struct-epg-user-id-p 'compiler-macro 'cl--struct-epg-user-id-p--cmacro) #@13 (fn CL-X) (defalias 'cl--struct-epg-user-id-p #[257 "\301!>\205 \302\207" [cl-struct-epg-user-id-tags type-of t] 3 (#$ . 61966)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put cl--struct-epg-user-id-p side-effect-free error-free put epg-user-id cl-deftype-satisfies] 5) #@77 compiler-macro for inlining `epg-user-id-validity'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-user-id-validity--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-user-id-validity (progn (or (cl--struct-epg-user-id-p cl-x) (signal 'wrong-type-argument (list 'epg-user-id cl-x))) (aref cl-x 1))) nil] 9 (#$ . 62267)]) (put 'epg-user-id-validity 'compiler-macro 'epg-user-id-validity--cmacro) #@65 Access slot "validity" of `epg-user-id' struct CL-X. (fn CL-X) (defalias 'epg-user-id-validity #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-user-id-tags type-of signal wrong-type-argument epg-user-id 1] 5 (#$ . 62700)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-user-id-validity side-effect-free t] 4) #@75 compiler-macro for inlining `epg-user-id-string'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-user-id-string--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-user-id-string (progn (or (cl--struct-epg-user-id-p cl-x) (signal 'wrong-type-argument (list 'epg-user-id cl-x))) (aref cl-x 2))) nil] 9 (#$ . 63050)]) (put 'epg-user-id-string 'compiler-macro 'epg-user-id-string--cmacro) #@63 Access slot "string" of `epg-user-id' struct CL-X. (fn CL-X) (defalias 'epg-user-id-string #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-user-id-tags type-of signal wrong-type-argument epg-user-id 2] 5 (#$ . 63473)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-user-id-string side-effect-free t] 4) #@83 compiler-macro for inlining `epg-user-id-signature-list'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-user-id-signature-list--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-user-id-signature-list (progn (or (cl--struct-epg-user-id-p cl-x) (signal 'wrong-type-argument (list 'epg-user-id cl-x))) (aref cl-x 3))) nil] 9 (#$ . 63817)]) (put 'epg-user-id-signature-list 'compiler-macro 'epg-user-id-signature-list--cmacro) #@71 Access slot "signature-list" of `epg-user-id' struct CL-X. (fn CL-X) (defalias 'epg-user-id-signature-list #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-user-id-tags type-of signal wrong-type-argument epg-user-id 3] 5 (#$ . 64280)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-user-id-signature-list side-effect-free t] 4) #@84 compiler-macro for inlining `epg-make-user-id'. (fn CL-WHOLE-ARG VALIDITY STRING) (defalias 'epg-make-user-id--cmacro #[771 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (validity string) (cl-block epg-make-user-id (record 'epg-user-id validity string nil)) nil] 11 (#$ . 64648)]) (put 'epg-make-user-id 'compiler-macro 'epg-make-user-id--cmacro) #@70 Constructor for objects of type `epg-user-id'. (fn VALIDITY STRING) (defalias 'epg-make-user-id #[514 "\300\301\302$\207" [record epg-user-id nil] 7 (#$ . 65014)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put epg-make-user-id side-effect-free t cl-struct-define epg-user-id nil cl-structure-object record ((cl-tag-slot) (validity) (string) (signature-list)) cl-struct-epg-user-id-tags] 11) #@87 compiler-macro for inlining `cl--struct-epg-key-signature-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'cl--struct-epg-key-signature-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--struct-epg-key-signature-p (and (memq (type-of cl-x) cl-struct-epg-key-signature-tags) t)) nil] 9 (#$ . 65459)]) (put 'cl--struct-epg-key-signature-p 'compiler-macro 'cl--struct-epg-key-signature-p--cmacro) #@13 (fn CL-X) (defalias 'cl--struct-epg-key-signature-p #[257 "\301!>\205 \302\207" [cl-struct-epg-key-signature-tags type-of t] 3 (#$ . 65891)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put cl--struct-epg-key-signature-p side-effect-free error-free put epg-key-signature cl-deftype-satisfies] 5) #@83 compiler-macro for inlining `epg-key-signature-validity'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-key-signature-validity--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-key-signature-validity (progn (or (cl--struct-epg-key-signature-p cl-x) (signal 'wrong-type-argument (list 'epg-key-signature cl-x))) (aref cl-x 1))) nil] 9 (#$ . 66216)]) (put 'epg-key-signature-validity 'compiler-macro 'epg-key-signature-validity--cmacro) #@71 Access slot "validity" of `epg-key-signature' struct CL-X. (fn CL-X) (defalias 'epg-key-signature-validity #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-key-signature-tags type-of signal wrong-type-argument epg-key-signature 1] 5 (#$ . 66691)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-key-signature-validity side-effect-free t] 4) #@91 compiler-macro for inlining `epg-key-signature-pubkey-algorithm'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-key-signature-pubkey-algorithm--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-key-signature-pubkey-algorithm (progn (or (cl--struct-epg-key-signature-p cl-x) (signal 'wrong-type-argument (list 'epg-key-signature cl-x))) (aref cl-x 2))) nil] 9 (#$ . 67071)]) (put 'epg-key-signature-pubkey-algorithm 'compiler-macro 'epg-key-signature-pubkey-algorithm--cmacro) #@79 Access slot "pubkey-algorithm" of `epg-key-signature' struct CL-X. (fn CL-X) (defalias 'epg-key-signature-pubkey-algorithm #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-key-signature-tags type-of signal wrong-type-argument epg-key-signature 2] 5 (#$ . 67586)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-key-signature-pubkey-algorithm side-effect-free t] 4) #@81 compiler-macro for inlining `epg-key-signature-key-id'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-key-signature-key-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-key-signature-key-id (progn (or (cl--struct-epg-key-signature-p cl-x) (signal 'wrong-type-argument (list 'epg-key-signature cl-x))) (aref cl-x 3))) nil] 9 (#$ . 67990)]) (put 'epg-key-signature-key-id 'compiler-macro 'epg-key-signature-key-id--cmacro) #@69 Access slot "key-id" of `epg-key-signature' struct CL-X. (fn CL-X) (defalias 'epg-key-signature-key-id #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-key-signature-tags type-of signal wrong-type-argument epg-key-signature 3] 5 (#$ . 68455)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-key-signature-key-id side-effect-free t] 4) #@88 compiler-macro for inlining `epg-key-signature-creation-time'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-key-signature-creation-time--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-key-signature-creation-time (progn (or (cl--struct-epg-key-signature-p cl-x) (signal 'wrong-type-argument (list 'epg-key-signature cl-x))) (aref cl-x 4))) nil] 9 (#$ . 68829)]) (put 'epg-key-signature-creation-time 'compiler-macro 'epg-key-signature-creation-time--cmacro) #@76 Access slot "creation-time" of `epg-key-signature' struct CL-X. (fn CL-X) (defalias 'epg-key-signature-creation-time #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-key-signature-tags type-of signal wrong-type-argument epg-key-signature 4] 5 (#$ . 69329)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-key-signature-creation-time side-effect-free t] 4) #@90 compiler-macro for inlining `epg-key-signature-expiration-time'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-key-signature-expiration-time--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-key-signature-expiration-time (progn (or (cl--struct-epg-key-signature-p cl-x) (signal 'wrong-type-argument (list 'epg-key-signature cl-x))) (aref cl-x 5))) nil] 9 (#$ . 69724)]) (put 'epg-key-signature-expiration-time 'compiler-macro 'epg-key-signature-expiration-time--cmacro) #@78 Access slot "expiration-time" of `epg-key-signature' struct CL-X. (fn CL-X) (defalias 'epg-key-signature-expiration-time #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-key-signature-tags type-of signal wrong-type-argument epg-key-signature 5] 5 (#$ . 70234)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-key-signature-expiration-time side-effect-free t] 4) #@82 compiler-macro for inlining `epg-key-signature-user-id'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-key-signature-user-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-key-signature-user-id (progn (or (cl--struct-epg-key-signature-p cl-x) (signal 'wrong-type-argument (list 'epg-key-signature cl-x))) (aref cl-x 6))) nil] 9 (#$ . 70635)]) (put 'epg-key-signature-user-id 'compiler-macro 'epg-key-signature-user-id--cmacro) #@70 Access slot "user-id" of `epg-key-signature' struct CL-X. (fn CL-X) (defalias 'epg-key-signature-user-id #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-key-signature-tags type-of signal wrong-type-argument epg-key-signature 6] 5 (#$ . 71105)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-key-signature-user-id side-effect-free t] 4) #@80 compiler-macro for inlining `epg-key-signature-class'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-key-signature-class--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-key-signature-class (progn (or (cl--struct-epg-key-signature-p cl-x) (signal 'wrong-type-argument (list 'epg-key-signature cl-x))) (aref cl-x 7))) nil] 9 (#$ . 71482)]) (put 'epg-key-signature-class 'compiler-macro 'epg-key-signature-class--cmacro) #@68 Access slot "class" of `epg-key-signature' struct CL-X. (fn CL-X) (defalias 'epg-key-signature-class #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-key-signature-tags type-of signal wrong-type-argument epg-key-signature 7] 5 (#$ . 71942)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-key-signature-class side-effect-free t] 4) #@87 compiler-macro for inlining `epg-key-signature-exportable-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-key-signature-exportable-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-key-signature-exportable-p (progn (or (cl--struct-epg-key-signature-p cl-x) (signal 'wrong-type-argument (list 'epg-key-signature cl-x))) (aref cl-x 8))) nil] 9 (#$ . 72313)]) (put 'epg-key-signature-exportable-p 'compiler-macro 'epg-key-signature-exportable-p--cmacro) #@75 Access slot "exportable-p" of `epg-key-signature' struct CL-X. (fn CL-X) (defalias 'epg-key-signature-exportable-p #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-key-signature-tags type-of signal wrong-type-argument epg-key-signature 8] 5 (#$ . 72808)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-key-signature-exportable-p side-effect-free t] 4) #@164 compiler-macro for inlining `epg-make-key-signature'. (fn CL-WHOLE-ARG VALIDITY PUBKEY-ALGORITHM KEY-ID CREATION-TIME EXPIRATION-TIME USER-ID CLASS EXPORTABLE-P) (defalias 'epg-make-key-signature--cmacro #[2313 "\300\301\302\303\211\211 & \207" [cl--defsubst-expand (validity pubkey-algorithm key-id creation-time expiration-time user-id class exportable-p) (cl-block epg-make-key-signature (record 'epg-key-signature validity pubkey-algorithm key-id creation-time expiration-time user-id class exportable-p)) nil] 23 (#$ . 73201)]) (put 'epg-make-key-signature 'compiler-macro 'epg-make-key-signature--cmacro) #@150 Constructor for objects of type `epg-key-signature'. (fn VALIDITY PUBKEY-ALGORITHM KEY-ID CREATION-TIME EXPIRATION-TIME USER-ID CLASS EXPORTABLE-P) (defalias 'epg-make-key-signature #[2056 "\300\301 & \207" [record epg-key-signature] 18 (#$ . 73835)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put epg-make-key-signature side-effect-free t cl-struct-define epg-key-signature nil cl-structure-object record ((cl-tag-slot) (validity) (pubkey-algorithm) (key-id) (creation-time) (expiration-time) (user-id) (class) (exportable-p)) cl-struct-epg-key-signature-tags] 11) #@86 compiler-macro for inlining `cl--struct-epg-sig-notation-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'cl--struct-epg-sig-notation-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--struct-epg-sig-notation-p (and (memq (type-of cl-x) cl-struct-epg-sig-notation-tags) t)) nil] 9 (#$ . 74468)]) (put 'cl--struct-epg-sig-notation-p 'compiler-macro 'cl--struct-epg-sig-notation-p--cmacro) #@13 (fn CL-X) (defalias 'cl--struct-epg-sig-notation-p #[257 "\301!>\205 \302\207" [cl-struct-epg-sig-notation-tags type-of t] 3 (#$ . 74894)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put cl--struct-epg-sig-notation-p side-effect-free error-free put epg-sig-notation cl-deftype-satisfies] 5) #@78 compiler-macro for inlining `epg-sig-notation-name'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-sig-notation-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-sig-notation-name (progn (or (cl--struct-epg-sig-notation-p cl-x) (signal 'wrong-type-argument (list 'epg-sig-notation cl-x))) (aref cl-x 1))) nil] 9 (#$ . 75215)]) (put 'epg-sig-notation-name 'compiler-macro 'epg-sig-notation-name--cmacro) #@66 Access slot "name" of `epg-sig-notation' struct CL-X. (fn CL-X) (defalias 'epg-sig-notation-name #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-sig-notation-tags type-of signal wrong-type-argument epg-sig-notation 1] 5 (#$ . 75663)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-sig-notation-name side-effect-free t] 4) #@79 compiler-macro for inlining `epg-sig-notation-value'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-sig-notation-value--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-sig-notation-value (progn (or (cl--struct-epg-sig-notation-p cl-x) (signal 'wrong-type-argument (list 'epg-sig-notation cl-x))) (aref cl-x 2))) nil] 9 (#$ . 76026)]) (put 'epg-sig-notation-value 'compiler-macro 'epg-sig-notation-value--cmacro) #@67 Access slot "value" of `epg-sig-notation' struct CL-X. (fn CL-X) (defalias 'epg-sig-notation-value #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-sig-notation-tags type-of signal wrong-type-argument epg-sig-notation 2] 5 (#$ . 76479)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-sig-notation-value side-effect-free t] 4) #@88 compiler-macro for inlining `epg-sig-notation-human-readable'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-sig-notation-human-readable--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-sig-notation-human-readable (progn (or (cl--struct-epg-sig-notation-p cl-x) (signal 'wrong-type-argument (list 'epg-sig-notation cl-x))) (aref cl-x 3))) nil] 9 (#$ . 76845)]) (put 'epg-sig-notation-human-readable 'compiler-macro 'epg-sig-notation-human-readable--cmacro) #@76 Access slot "human-readable" of `epg-sig-notation' struct CL-X. (fn CL-X) (defalias 'epg-sig-notation-human-readable #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-sig-notation-tags type-of signal wrong-type-argument epg-sig-notation 3] 5 (#$ . 77343)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-sig-notation-human-readable side-effect-free t] 4) #@82 compiler-macro for inlining `epg-sig-notation-critical'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-sig-notation-critical--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-sig-notation-critical (progn (or (cl--struct-epg-sig-notation-p cl-x) (signal 'wrong-type-argument (list 'epg-sig-notation cl-x))) (aref cl-x 4))) nil] 9 (#$ . 77736)]) (put 'epg-sig-notation-critical 'compiler-macro 'epg-sig-notation-critical--cmacro) #@70 Access slot "critical" of `epg-sig-notation' struct CL-X. (fn CL-X) (defalias 'epg-sig-notation-critical #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-sig-notation-tags type-of signal wrong-type-argument epg-sig-notation 4] 5 (#$ . 78204)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-sig-notation-critical side-effect-free t] 4) #@118 compiler-macro for inlining `epg-make-sig-notation'. (fn CL-WHOLE-ARG NAME VALUE &optional HUMAN-READABLE CRITICAL) (defalias 'epg-make-sig-notation--cmacro #[1283 "\300\301\302\303\211\211 & \207" [cl--defsubst-expand (name value human-readable critical) (cl-block epg-make-sig-notation (record 'epg-sig-notation name value human-readable critical)) nil] 15 (#$ . 78580)]) (put 'epg-make-sig-notation 'compiler-macro 'epg-make-sig-notation--cmacro) #@104 Constructor for objects of type `epg-sig-notation'. (fn NAME VALUE &optional HUMAN-READABLE CRITICAL) (defalias 'epg-make-sig-notation #[1026 "\300\301%\207" [record epg-sig-notation] 10 (#$ . 79045)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put epg-make-sig-notation side-effect-free t cl-struct-define epg-sig-notation nil cl-structure-object record ((cl-tag-slot) (name) (value) (human-readable) (critical)) cl-struct-epg-sig-notation-tags] 11) #@87 compiler-macro for inlining `cl--struct-epg-import-status-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'cl--struct-epg-import-status-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--struct-epg-import-status-p (and (memq (type-of cl-x) cl-struct-epg-import-status-tags) t)) nil] 9 (#$ . 79551)]) (put 'cl--struct-epg-import-status-p 'compiler-macro 'cl--struct-epg-import-status-p--cmacro) #@13 (fn CL-X) (defalias 'cl--struct-epg-import-status-p #[257 "\301!>\205 \302\207" [cl-struct-epg-import-status-tags type-of t] 3 (#$ . 79983)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put cl--struct-epg-import-status-p side-effect-free error-free put epg-import-status cl-deftype-satisfies] 5) #@86 compiler-macro for inlining `epg-import-status-fingerprint'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-import-status-fingerprint--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-status-fingerprint (progn (or (cl--struct-epg-import-status-p cl-x) (signal 'wrong-type-argument (list 'epg-import-status cl-x))) (aref cl-x 1))) nil] 9 (#$ . 80308)]) (put 'epg-import-status-fingerprint 'compiler-macro 'epg-import-status-fingerprint--cmacro) #@74 Access slot "fingerprint" of `epg-import-status' struct CL-X. (fn CL-X) (defalias 'epg-import-status-fingerprint #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-status-tags type-of signal wrong-type-argument epg-import-status 1] 5 (#$ . 80798)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-import-status-fingerprint side-effect-free t] 4) #@81 compiler-macro for inlining `epg-import-status-reason'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-import-status-reason--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-status-reason (progn (or (cl--struct-epg-import-status-p cl-x) (signal 'wrong-type-argument (list 'epg-import-status cl-x))) (aref cl-x 2))) nil] 9 (#$ . 81187)]) (put 'epg-import-status-reason 'compiler-macro 'epg-import-status-reason--cmacro) #@69 Access slot "reason" of `epg-import-status' struct CL-X. (fn CL-X) (defalias 'epg-import-status-reason #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-status-tags type-of signal wrong-type-argument epg-import-status 2] 5 (#$ . 81652)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-import-status-reason side-effect-free t] 4) #@78 compiler-macro for inlining `epg-import-status-new'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-import-status-new--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-status-new (progn (or (cl--struct-epg-import-status-p cl-x) (signal 'wrong-type-argument (list 'epg-import-status cl-x))) (aref cl-x 3))) nil] 9 (#$ . 82026)]) (put 'epg-import-status-new 'compiler-macro 'epg-import-status-new--cmacro) #@66 Access slot "new" of `epg-import-status' struct CL-X. (fn CL-X) (defalias 'epg-import-status-new #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-status-tags type-of signal wrong-type-argument epg-import-status 3] 5 (#$ . 82476)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-import-status-new side-effect-free t] 4) #@82 compiler-macro for inlining `epg-import-status-user-id'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-import-status-user-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-status-user-id (progn (or (cl--struct-epg-import-status-p cl-x) (signal 'wrong-type-argument (list 'epg-import-status cl-x))) (aref cl-x 4))) nil] 9 (#$ . 82841)]) (put 'epg-import-status-user-id 'compiler-macro 'epg-import-status-user-id--cmacro) #@70 Access slot "user-id" of `epg-import-status' struct CL-X. (fn CL-X) (defalias 'epg-import-status-user-id #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-status-tags type-of signal wrong-type-argument epg-import-status 4] 5 (#$ . 83311)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-import-status-user-id side-effect-free t] 4) #@84 compiler-macro for inlining `epg-import-status-signature'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-import-status-signature--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-status-signature (progn (or (cl--struct-epg-import-status-p cl-x) (signal 'wrong-type-argument (list 'epg-import-status cl-x))) (aref cl-x 5))) nil] 9 (#$ . 83688)]) (put 'epg-import-status-signature 'compiler-macro 'epg-import-status-signature--cmacro) #@72 Access slot "signature" of `epg-import-status' struct CL-X. (fn CL-X) (defalias 'epg-import-status-signature #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-status-tags type-of signal wrong-type-argument epg-import-status 5] 5 (#$ . 84168)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-import-status-signature side-effect-free t] 4) #@82 compiler-macro for inlining `epg-import-status-sub-key'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-import-status-sub-key--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-status-sub-key (progn (or (cl--struct-epg-import-status-p cl-x) (signal 'wrong-type-argument (list 'epg-import-status cl-x))) (aref cl-x 6))) nil] 9 (#$ . 84551)]) (put 'epg-import-status-sub-key 'compiler-macro 'epg-import-status-sub-key--cmacro) #@70 Access slot "sub-key" of `epg-import-status' struct CL-X. (fn CL-X) (defalias 'epg-import-status-sub-key #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-status-tags type-of signal wrong-type-argument epg-import-status 6] 5 (#$ . 85021)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-import-status-sub-key side-effect-free t] 4) #@81 compiler-macro for inlining `epg-import-status-secret'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-import-status-secret--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-status-secret (progn (or (cl--struct-epg-import-status-p cl-x) (signal 'wrong-type-argument (list 'epg-import-status cl-x))) (aref cl-x 7))) nil] 9 (#$ . 85398)]) (put 'epg-import-status-secret 'compiler-macro 'epg-import-status-secret--cmacro) #@69 Access slot "secret" of `epg-import-status' struct CL-X. (fn CL-X) (defalias 'epg-import-status-secret #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-status-tags type-of signal wrong-type-argument epg-import-status 7] 5 (#$ . 85863)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-import-status-secret side-effect-free t] 4) #@140 compiler-macro for inlining `epg-make-import-status'. (fn CL-WHOLE-ARG FINGERPRINT &optional REASON NEW USER-ID SIGNATURE SUB-KEY SECRET) (defalias 'epg-make-import-status--cmacro #[2050 "\300\301\302\303\211\211\f\f\f\f\f\f\f&\f\207" [cl--defsubst-expand (fingerprint reason new user-id signature sub-key secret) (cl-block epg-make-import-status (record 'epg-import-status fingerprint reason new user-id signature sub-key secret)) nil] 21 (#$ . 86238)]) (put 'epg-make-import-status 'compiler-macro 'epg-make-import-status--cmacro) #@126 Constructor for objects of type `epg-import-status'. (fn FINGERPRINT &optional REASON NEW USER-ID SIGNATURE SUB-KEY SECRET) (defalias 'epg-make-import-status #[1793 "\300\301&\207" [record epg-import-status] 16 (#$ . 86786)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put epg-make-import-status side-effect-free t cl-struct-define epg-import-status nil cl-structure-object record ((cl-tag-slot) (fingerprint) (reason) (new) (user-id) (signature) (sub-key) (secret)) cl-struct-epg-import-status-tags] 11) #@87 compiler-macro for inlining `cl--struct-epg-import-result-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'cl--struct-epg-import-result-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block cl--struct-epg-import-result-p (and (memq (type-of cl-x) cl-struct-epg-import-result-tags) t)) nil] 9 (#$ . 87357)]) (put 'cl--struct-epg-import-result-p 'compiler-macro 'cl--struct-epg-import-result-p--cmacro) #@13 (fn CL-X) (defalias 'cl--struct-epg-import-result-p #[257 "\301!>\205 \302\207" [cl-struct-epg-import-result-tags type-of t] 3 (#$ . 87789)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put cl--struct-epg-import-result-p side-effect-free error-free put epg-import-result cl-deftype-satisfies] 5) #@85 compiler-macro for inlining `epg-import-result-considered'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-import-result-considered--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-result-considered (progn (or (cl--struct-epg-import-result-p cl-x) (signal 'wrong-type-argument (list 'epg-import-result cl-x))) (aref cl-x 1))) nil] 9 (#$ . 88114)]) (put 'epg-import-result-considered 'compiler-macro 'epg-import-result-considered--cmacro) #@73 Access slot "considered" of `epg-import-result' struct CL-X. (fn CL-X) (defalias 'epg-import-result-considered #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-result-tags type-of signal wrong-type-argument epg-import-result 1] 5 (#$ . 88599)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-import-result-considered side-effect-free t] 4) #@85 compiler-macro for inlining `epg-import-result-no-user-id'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-import-result-no-user-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-result-no-user-id (progn (or (cl--struct-epg-import-result-p cl-x) (signal 'wrong-type-argument (list 'epg-import-result cl-x))) (aref cl-x 2))) nil] 9 (#$ . 88985)]) (put 'epg-import-result-no-user-id 'compiler-macro 'epg-import-result-no-user-id--cmacro) #@73 Access slot "no-user-id" of `epg-import-result' struct CL-X. (fn CL-X) (defalias 'epg-import-result-no-user-id #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-result-tags type-of signal wrong-type-argument epg-import-result 2] 5 (#$ . 89470)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-import-result-no-user-id side-effect-free t] 4) #@83 compiler-macro for inlining `epg-import-result-imported'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-import-result-imported--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-result-imported (progn (or (cl--struct-epg-import-result-p cl-x) (signal 'wrong-type-argument (list 'epg-import-result cl-x))) (aref cl-x 3))) nil] 9 (#$ . 89856)]) (put 'epg-import-result-imported 'compiler-macro 'epg-import-result-imported--cmacro) #@71 Access slot "imported" of `epg-import-result' struct CL-X. (fn CL-X) (defalias 'epg-import-result-imported #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-result-tags type-of signal wrong-type-argument epg-import-result 3] 5 (#$ . 90331)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-import-result-imported side-effect-free t] 4) #@87 compiler-macro for inlining `epg-import-result-imported-rsa'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-import-result-imported-rsa--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-result-imported-rsa (progn (or (cl--struct-epg-import-result-p cl-x) (signal 'wrong-type-argument (list 'epg-import-result cl-x))) (aref cl-x 4))) nil] 9 (#$ . 90711)]) (put 'epg-import-result-imported-rsa 'compiler-macro 'epg-import-result-imported-rsa--cmacro) #@75 Access slot "imported-rsa" of `epg-import-result' struct CL-X. (fn CL-X) (defalias 'epg-import-result-imported-rsa #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-result-tags type-of signal wrong-type-argument epg-import-result 4] 5 (#$ . 91206)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-import-result-imported-rsa side-effect-free t] 4) #@84 compiler-macro for inlining `epg-import-result-unchanged'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-import-result-unchanged--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-result-unchanged (progn (or (cl--struct-epg-import-result-p cl-x) (signal 'wrong-type-argument (list 'epg-import-result cl-x))) (aref cl-x 5))) nil] 9 (#$ . 91598)]) (put 'epg-import-result-unchanged 'compiler-macro 'epg-import-result-unchanged--cmacro) #@72 Access slot "unchanged" of `epg-import-result' struct CL-X. (fn CL-X) (defalias 'epg-import-result-unchanged #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-result-tags type-of signal wrong-type-argument epg-import-result 5] 5 (#$ . 92078)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-import-result-unchanged side-effect-free t] 4) #@87 compiler-macro for inlining `epg-import-result-new-user-ids'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-import-result-new-user-ids--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-result-new-user-ids (progn (or (cl--struct-epg-import-result-p cl-x) (signal 'wrong-type-argument (list 'epg-import-result cl-x))) (aref cl-x 6))) nil] 9 (#$ . 92461)]) (put 'epg-import-result-new-user-ids 'compiler-macro 'epg-import-result-new-user-ids--cmacro) #@75 Access slot "new-user-ids" of `epg-import-result' struct CL-X. (fn CL-X) (defalias 'epg-import-result-new-user-ids #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-result-tags type-of signal wrong-type-argument epg-import-result 6] 5 (#$ . 92956)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-import-result-new-user-ids side-effect-free t] 4) #@87 compiler-macro for inlining `epg-import-result-new-sub-keys'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-import-result-new-sub-keys--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-result-new-sub-keys (progn (or (cl--struct-epg-import-result-p cl-x) (signal 'wrong-type-argument (list 'epg-import-result cl-x))) (aref cl-x 7))) nil] 9 (#$ . 93348)]) (put 'epg-import-result-new-sub-keys 'compiler-macro 'epg-import-result-new-sub-keys--cmacro) #@75 Access slot "new-sub-keys" of `epg-import-result' struct CL-X. (fn CL-X) (defalias 'epg-import-result-new-sub-keys #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-result-tags type-of signal wrong-type-argument epg-import-result 7] 5 (#$ . 93843)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-import-result-new-sub-keys side-effect-free t] 4) #@89 compiler-macro for inlining `epg-import-result-new-signatures'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-import-result-new-signatures--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-result-new-signatures (progn (or (cl--struct-epg-import-result-p cl-x) (signal 'wrong-type-argument (list 'epg-import-result cl-x))) (aref cl-x 8))) nil] 9 (#$ . 94235)]) (put 'epg-import-result-new-signatures 'compiler-macro 'epg-import-result-new-signatures--cmacro) #@77 Access slot "new-signatures" of `epg-import-result' struct CL-X. (fn CL-X) (defalias 'epg-import-result-new-signatures #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-result-tags type-of signal wrong-type-argument epg-import-result 8] 5 (#$ . 94740)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-import-result-new-signatures side-effect-free t] 4) #@90 compiler-macro for inlining `epg-import-result-new-revocations'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-import-result-new-revocations--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-result-new-revocations (progn (or (cl--struct-epg-import-result-p cl-x) (signal 'wrong-type-argument (list 'epg-import-result cl-x))) (aref cl-x 9))) nil] 9 (#$ . 95138)]) (put 'epg-import-result-new-revocations 'compiler-macro 'epg-import-result-new-revocations--cmacro) #@78 Access slot "new-revocations" of `epg-import-result' struct CL-X. (fn CL-X) (defalias 'epg-import-result-new-revocations #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-result-tags type-of signal wrong-type-argument epg-import-result 9] 5 (#$ . 95648)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-import-result-new-revocations side-effect-free t] 4) #@86 compiler-macro for inlining `epg-import-result-secret-read'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-import-result-secret-read--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-result-secret-read (progn (or (cl--struct-epg-import-result-p cl-x) (signal 'wrong-type-argument (list 'epg-import-result cl-x))) (aref cl-x 10))) nil] 9 (#$ . 96049)]) (put 'epg-import-result-secret-read 'compiler-macro 'epg-import-result-secret-read--cmacro) #@74 Access slot "secret-read" of `epg-import-result' struct CL-X. (fn CL-X) (defalias 'epg-import-result-secret-read #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-result-tags type-of signal wrong-type-argument epg-import-result 10] 5 (#$ . 96540)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-import-result-secret-read side-effect-free t] 4) #@90 compiler-macro for inlining `epg-import-result-secret-imported'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-import-result-secret-imported--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-result-secret-imported (progn (or (cl--struct-epg-import-result-p cl-x) (signal 'wrong-type-argument (list 'epg-import-result cl-x))) (aref cl-x 11))) nil] 9 (#$ . 96930)]) (put 'epg-import-result-secret-imported 'compiler-macro 'epg-import-result-secret-imported--cmacro) #@78 Access slot "secret-imported" of `epg-import-result' struct CL-X. (fn CL-X) (defalias 'epg-import-result-secret-imported #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-result-tags type-of signal wrong-type-argument epg-import-result 11] 5 (#$ . 97441)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-import-result-secret-imported side-effect-free t] 4) #@91 compiler-macro for inlining `epg-import-result-secret-unchanged'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-import-result-secret-unchanged--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-result-secret-unchanged (progn (or (cl--struct-epg-import-result-p cl-x) (signal 'wrong-type-argument (list 'epg-import-result cl-x))) (aref cl-x 12))) nil] 9 (#$ . 97843)]) (put 'epg-import-result-secret-unchanged 'compiler-macro 'epg-import-result-secret-unchanged--cmacro) #@79 Access slot "secret-unchanged" of `epg-import-result' struct CL-X. (fn CL-X) (defalias 'epg-import-result-secret-unchanged #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-result-tags type-of signal wrong-type-argument epg-import-result 12] 5 (#$ . 98359)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-import-result-secret-unchanged side-effect-free t] 4) #@87 compiler-macro for inlining `epg-import-result-not-imported'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-import-result-not-imported--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-result-not-imported (progn (or (cl--struct-epg-import-result-p cl-x) (signal 'wrong-type-argument (list 'epg-import-result cl-x))) (aref cl-x 13))) nil] 9 (#$ . 98764)]) (put 'epg-import-result-not-imported 'compiler-macro 'epg-import-result-not-imported--cmacro) #@75 Access slot "not-imported" of `epg-import-result' struct CL-X. (fn CL-X) (defalias 'epg-import-result-not-imported #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-result-tags type-of signal wrong-type-argument epg-import-result 13] 5 (#$ . 99260)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-import-result-not-imported side-effect-free t] 4) #@82 compiler-macro for inlining `epg-import-result-imports'. (fn CL-WHOLE-ARG CL-X) (defalias 'epg-import-result-imports--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block epg-import-result-imports (progn (or (cl--struct-epg-import-result-p cl-x) (signal 'wrong-type-argument (list 'epg-import-result cl-x))) (aref cl-x 14))) nil] 9 (#$ . 99653)]) (put 'epg-import-result-imports 'compiler-macro 'epg-import-result-imports--cmacro) #@70 Access slot "imports" of `epg-import-result' struct CL-X. (fn CL-X) (defalias 'epg-import-result-imports #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-epg-import-result-tags type-of signal wrong-type-argument epg-import-result 14] 5 (#$ . 100124)]) (byte-code "\300\301\302\303#\300\207" [function-put epg-import-result-imports side-effect-free t] 4) #@251 compiler-macro for inlining `epg-make-import-result'. (fn CL-WHOLE-ARG CONSIDERED NO-USER-ID IMPORTED IMPORTED-RSA UNCHANGED NEW-USER-IDS NEW-SUB-KEYS NEW-SIGNATURES NEW-REVOCATIONS SECRET-READ SECRET-IMPORTED SECRET-UNCHANGED NOT-IMPORTED IMPORTS) (defalias 'epg-make-import-result--cmacro #[3855 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (considered no-user-id imported imported-rsa unchanged new-user-ids new-sub-keys new-signatures new-revocations secret-read secret-imported secret-unchanged not-imported imports) (cl-block epg-make-import-result (record 'epg-import-result considered no-user-id imported imported-rsa unchanged new-user-ids new-sub-keys new-signatures new-revocations secret-read secret-imported secret-unchanged not-imported imports)) nil] 35 (#$ . 100504)]) (put 'epg-make-import-result 'compiler-macro 'epg-make-import-result--cmacro) #@237 Constructor for objects of type `epg-import-result'. (fn CONSIDERED NO-USER-ID IMPORTED IMPORTED-RSA UNCHANGED NEW-USER-IDS NEW-SUB-KEYS NEW-SIGNATURES NEW-REVOCATIONS SECRET-READ SECRET-IMPORTED SECRET-UNCHANGED NOT-IMPORTED IMPORTS) (defalias 'epg-make-import-result #[3598 "\300\301&\207" [record epg-import-result] 30 (#$ . 101412)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put epg-make-import-result side-effect-free t cl-struct-define epg-import-result nil cl-structure-object record ((cl-tag-slot) (considered) (no-user-id) (imported) (imported-rsa) (unchanged) (new-user-ids) (new-sub-keys) (new-signatures) (new-revocations) (secret-read) (secret-imported) (secret-unchanged) (not-imported) (imports)) cl-struct-epg-import-result-tags] 11) #@71 Return the result of CONTEXT associated with NAME. (fn CONTEXT NAME) (defalias 'epg-context-result-for #[514 "\211\301!>\204 \302\303\304D\"\210\305H\236A\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 18] 7 (#$ . 102244)]) #@83 Set the result of CONTEXT associated with NAME to VALUE. (fn CONTEXT NAME VALUE) (defalias 'epg-context-set-result-for #[771 "\301!>\204 \302\303\304D\"\210\305H\236\211\203 \211\241\202< \301!>\204/ \302\303\304D\"\210\211\305BBI\262\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 18] 10 (#$ . 102513)]) #@63 Convert SIGNATURE to a human readable string. (fn SIGNATURE) (defalias 'epg-signature-to-string #[257 "\303\304!>\204 \305\306\307D\"\210\310H \"A\304!>\204% \305\306\307D\"\210\311H\304!>\2047 \305\306\307D\"\210\310H\304!>\204J \305\306\307D\"\210\312H\313=\203V \314\202\337 \304!>\204f \305\306\307D\"\210\312H\315=\203r \316\202\337 \304!>\204\202 \305\306\307D\"\210\312H\317=\203\216 \320\202\337 \304!>\204\236 \305\306\307D\"\210\312H\321=\203\252 \322\202\337 \304!>\204\272 \305\306\307D\"\210\312H\323=\203\306 \324\202\337 \304!>\204\326 \305\306\307D\"\210\312H\325=\205\337 \326\203\371 \327;\203\361 \330!\202\365 \331!P\202\372 \332\304!>\204 \305\306\307 D\"\210\333H\203-\334\335\304 !>\204%\305\306\307 D\"\210\333H\"\202.\332\304!>\204?\305\306\307\nD\"\210\336H\203a\337\340\304\n!>\204Y\305\306\307\fD\"\210 \336H\"\202b\332\203y\341\n\236A\206u\334\342 \"P\202z\332\260\207" [cl-struct-epg-signature-tags epg-user-id-alist epg-pubkey-algorithm-alist assoc type-of signal wrong-type-argument epg-signature 2 7 1 good "Good signature from " bad "Bad signature from " expired "Expired signature from " expired-key "Signature made by expired key " revoked-key "Signature made by revoked key " no-pubkey "No public key for " " " epg--decode-percent-escape-as-utf-8 epg-decode-dn "" 3 format " (trust %s)" 5 format-time-string " created at %Y-%m-%dT%T%z" " using " "(unknown algorithm %d)"] 14 (#$ . 102878)]) #@71 Convert VERIFY-RESULT to a human readable string. (fn VERIFY-RESULT) (defalias 'epg-verify-result-to-string #[257 "\300\301\302#\207" [mapconcat epg-signature-to-string "\n"] 5 (#$ . 104401)]) #@71 Convert NEW-SIGNATURE to a human readable string. (fn NEW-SIGNATURE) (defalias 'epg-new-signature-to-string #[257 "\303!>\204 \304\305\306D\"\210\211\307H\310=\203 \311\2027 \303!>\204* \304\305\306D\"\210\211\307H\312=\2036 \313\2027 \314\303!>\204F \304\305\306D\"\210\315H \236A\316\303!>\204] \304\305\306D\"\210\317H\n\236A\320\321\322\303!>\204w \304\305\306\nD\"\210\323H\"\303!>\204\215 \304\305\306 D\"\210\324H\260\207" [cl-struct-epg-new-signature-tags epg-pubkey-algorithm-alist epg-digest-algorithm-alist type-of signal wrong-type-argument epg-new-signature 1 detached "Detached signature " clear "Cleartext signature " "Signature " 2 "/" 3 " " format "%02X " 4 6] 12 (#$ . 104602)]) #@71 Convert IMPORT-RESULT to a human readable string. (fn IMPORT-RESULT) (defalias 'epg-import-result-to-string #[257 "\301\302\303!>\204 \304\305\306D\"\210\307H\"\303!>\204$ \304\305\306D\"\210\310H\311V\205B \301\312\303!>\204> \304\305\306D\"\210\310H\"\303!>\204Q \304\305\306D\"\210\313H\311V\205o \301\314\303!>\204k \304\305\306D\"\210\313H\"\303!>\204 \304\305\306D\"\210\315H\311V\205\320 \301\316\303!>\204\232 \304\305\306D\"\210\315H\"\303!>\204\256 \304\305\306D\"\210\317H\311V\205\316 \301\320\303!>\204\311 \304\305\306 D\"\210\317H\"\321Q\303!>\204\340 \304\305\306D\"\210\322H\311V\205 \301\323\303!>\204\373 \304\305\306 D\"\210\322H\"\303!>\204\304\305\306D\"\210\324H\311V\2051\301\325\303!>\204,\304\305\306\nD\"\210\324H\"\303!>\204B\304\305\306 D\"\210\326H\311V\205c\301\327\303 !>\204^\304\305\306 D\"\210\326H\"\303!>\204t\304\305\306\nD\"\210\330H\311V\205\225\301\331\303\n!>\204\220\304\305\306\fD\"\210 \330H\"\303 !>\204\246\304\305\306 D\"\210\332H\311V\205\307\301\333\303 !>\204\302\304\305\306 D\"\210\n\332H\"\303\n!>\204\330\304\305\306\fD\"\210 \334H\311V\205\371\301\335\303\f!>\204\364\304\305\306D\"\210 \334H\"\303 !>\204\n\304\305\306 D\"\210\n\336H\311V\205+\301\337\303 !>\204&\304\305\306D\"\210\f\336H\"\303\f!>\204<\304\305\306D\"\210 \340H\311V\205]\301\341\303!>\204X\304\305\306D\"\210 \340H\"\260\f\207" [cl-struct-epg-import-result-tags format "Total number processed: %d\n" type-of signal wrong-type-argument epg-import-result 1 13 0 " skipped new keys: %d\n" 2 " w/o user IDs: %d\n" 3 " imported: %d" 4 " (RSA: %d)" "\n" 5 " unchanged: %d\n" 6 " new user IDs: %d\n" 7 " new subkeys: %d\n" 8 " new signatures: %d\n" 9 " new key revocations: %d\n" 10 " secret keys read: %d\n" 11 " secret keys imported: %d\n" 12 " secret keys unchanged: %d\n"] 18 (#$ . 105336)]) #@14 (fn ERROR) (defalias 'epg-error-to-string #[257 "\211@\304=\203 \305\207\211@\306=\203 \307\207\211@\310=\203, \211A\236\211\203* \311\312A\227\"\202+ \313\207\211@\314=\203F \211A \236\211\203D \311\315A\227\"\202E \316\207\211@\317=\203O \320\207\211@\321>\203\234 \211@\322=\203a \323\202b \324\325A\236\211\203r \311\326A\"\202s \327\262\330A\236\211\203\227 \211A\331V\203\227 \211A\n\236\211\262\203\227 \311\332A\227\"\202\230 \333\262Q\207\211@\334=\203\251 \311\335A\"\207\211@\336=\203\266 \311\337A\"\207\211@\340=\203\277 \341\207\211@\342=\203\310 \343\207\211@\344=\203\342 \211A \236\211\203\340 \311\345A\227\"\202\341 \346\207\211@\347=\205\352 \350\207" [epg-no-data-reason-alist epg-unexpected-reason-alist epg-invalid-recipients-reason-alist epg-delete-problem-reason-alist exit "Exit" quit "Canceled" no-data format "No data (%s)" "No data" unexpected "Unexpected (%s)" "Unexpected" bad-armor "Bad armor" (invalid-recipient invalid-signer) invalid-recipient "Unusable public key" "Unusable secret key" requested ": %s" ": <unknown>" reason 0 " (%s)" "" no-pubkey "No public key: %s" no-seckey "No secret key: %s" no-recipients "No recipients" no-signers "No signers" delete-problem "Delete problem (%s)" "Delete problem" key-not-created "Key not created"] 7 (#$ . 107383)]) #@15 (fn ERRORS) (defalias 'epg-errors-to-string #[257 "\300\301\302#\207" [mapconcat epg-error-to-string "; "] 5 (#$ . 108701)]) #@77 Start `epg-gpg-program' in a subprocess with given ARGS. (fn CONTEXT ARGS) (defalias 'epg--start #[514 "\306!>\204 \307\310\311D\"\210\312H\203E \313\306!>\204% \307\310\311D\"\210\312H!\314=\203E \315\316\306!>\204@ \307\310\311D\"\210\317H\"\210\320\321!\322\323\324\325\326F\306!>\204^ \307\310\311D\"\210\327H\330=?\205s \331\332\206n \333\"\205s \334\306!>\204\204 \307\310\311D\"\210\327H\330=?\205\245 \306!>\204\236 \307\310\311D\"\210\335H\205\245 \336\306!>\204\266 \307\310\311 D\"\210\337H\205\324 \340\306!>\204\317 \307\310\311\nD\"\210\337HD\306!>\204\345 \307\310\311\nD\"\210\327H\330=?\205\360 \341\306 !>\204\307\310\311 D\"\210\342H\205 \343\306\n!>\204\307\310\311\fD\"\210 \344H\205\"\345\306 !>\2043\307\310\311 D\"\210\n\346H\205Q\347\306\f!>\204L\307\310\311D\"\210 \346HD\306\f!>\204b\307\310\311D\"\210 \350H\205\202\351\352\306!>\204|\307\310\311D\"\210 \350H!D &\n \353\354!\355\211\211\211\356\n\357>\204\313\353\360!r\211q\210\361\362\363\364\365!\366\"\317$\216\3671\304\370\371\372\373#\362U\205\300\374\375!\210\376 \211\2620\202\310\210\202\311\210*\210\203\331\377P\201G BB\201H \201I \" B\203\331\201J \"\203\201K \327 \"\262\201L !\3448\262\206\f\201M \262\f\203c\212 \204 \353\201N ! q\210db\210\2034\201H \201O \"\2027\201P \201H \201Q \306 !>\204N\307\310\311D\"\210\f\317H\201R \201S \f\201T ##\261\210)rq\210\201U \201V !\203w\201V \355!\210\201W \201@ !\210\355@\201W \201A !\210eA\201W \201B !\210\355B\201W \201C !\210\355C\201W \201D !\210\355D\201W \311!\210 \201W \201E !\210E\201W \201F !\210\211F)\201X \201Y \201Z \201[ \353\201\\ !\201] \201^ \201_ \373&\262\306\n!>\204\377\307\310\311\fD\"\210 \211\201` \201a !I\266\201b \361\362\201c \364\365!\201d \"\317$\216\201e \201f !\210\201g \201Y \201h \201[ \n\201i \306!>\204L\307\310\311D\"\210\317HB\201j \201k \201l \201m \201n \201o \201p \201_ \373&\262)\210\306\n!>\204\205\307\310\311\fD\"\210 \211\312I\262)\207" [cl-struct-epg-context-tags process-environment system-type emacs-version epg-debug epg-debug-buffer type-of signal wrong-type-argument epg-context 16 process-status run error "%s is already running in this context" 2 getenv "GPG_AGENT_INFO" append "--no-tty" "--status-fd" "1" "--yes" 1 CMS string-match ":" "" ("--use-agent") 11 ("--enable-progress-filter") 3 "--homedir" ("--command-fd" "0") 4 ("--armor") 5 ("--textmode") 17 "--output" 20 "--pinentry-mode" symbol-name generate-new-buffer " *epg*" nil (0 0 0 0) (ms-dos windows-nt) " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] (file-error) call-process "tty" "/dev/fd/0" t delete-char -1 buffer-string "GPG_TTY=" epg-last-status epg-read-point epg-process-filter-running epg-pending-status-list epg-key-id epg-agent-file epg-agent-mtime "TERM=xterm" format "INSIDE_EMACS=%s,epg" "\\(.*\\):[0-9]+:[0-9]+" match-string file-attributes (0 0 0 0) " *epg-debug*" "GPG_AGENT_INFO=%s\n" "GPG_AGENT_INFO is not set\n" "%s %s\n" mapconcat identity " " fboundp set-buffer-multibyte make-local-variable make-pipe-process :name "epg-error" :buffer " *epg-error*" :sentinel ignore :noquery 22 process-buffer default-file-modes "\301\300!\207" [set-default-file-modes] set-default-file-modes 448 make-process "epg" :command :connection-type pipe :coding raw-text :filter epg--process-filter :stderr] 28 (#$ . 108835)]) #@22 (fn PROCESS INPUT) (defalias 'epg--process-filter #[514 "\203 r \206 \306\307!\211q\210db\210\211c\210)\310\311!!\205\303 r\311!q\210\212db\210\211c\210\n?\205\302 \312 b\210\313 \210\314\315!\205\301 \314\316!\203\271 \317\320!\317\321!\322\f\235\203T \322\323 ! >\204d \324\325\305 D\"\210 \326H\327=\203\234 \323 ! >\204| \324\325\305 D\"\210 \330H@ \323 ! >\204\223 \324\325\305 D\"\210 \330HA$\210\202\262 \331\332P!\262\211\203\262 \333!\203\262 \211 \"\210B \266\322y\210`\2029 )*\207" [epg-debug epg-debug-buffer epg-process-filter-running epg-read-point epg-pending-status-list epg-context generate-new-buffer " *epg-debug*" buffer-live-p process-buffer t beginning-of-line looking-at ".*\n" "\\[GNUPG:] \\([A-Z_]+\\) ?\\(.*\\)" match-string 1 2 nil type-of signal wrong-type-argument 19 edit-key 12 intern-soft "epg--status-" fboundp cl-struct-epg-context-tags epg-last-status] 13 (#$ . 112364)]) #@80 Read the output file CONTEXT and return the content as a string. (fn CONTEXT) (defalias 'epg-read-output #[257 "\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313\314!\203 \314\315!\210\316\317!>\204- \320\321\322D\"\210\323H!\205N \324\325\317!>\204F \320\321\322D\"\210\323H!\210\326 )*\207" [cl-struct-epg-context-tags coding-system-for-read generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 fboundp set-buffer-multibyte nil file-exists-p type-of signal wrong-type-argument epg-context 17 binary insert-file-contents buffer-string] 8 (#$ . 113302)]) #@78 Wait until one of elements in STATUS-LIST arrives. (fn CONTEXT STATUS-LIST) (defalias 'epg-wait-for-status #[514 "r\302\303!>\204 \304\305\306D\"\210\307H!q\210\211\310\303!>\204) \304\305\306D\"\210\307H!\311=\203O \203O \312\303!>\204F \304\305\306D\"\210\307H\313\"\210\202 \205^ \314\315\316\317\315\"B#)\207" [cl-struct-epg-context-tags epg-pending-status-list process-buffer type-of signal wrong-type-argument epg-context 16 process-status run accept-process-output 1 epg-context-set-result-for error (exit) epg-context-result-for] 9 (#$ . 113953)]) #@67 Wait until the `epg-gpg-program' process completes. (fn CONTEXT) (defalias 'epg-wait-for-completion #[257 "\303\304!>\204 \305\306\307D\"\210\310H!\311=\2032 \312\304!>\204) \305\306\307D\"\210\310H\313\"\210\202 \314\315!\210r\316\304!>\204G \305\306\307D\"\210\310H!q\210 \205` \317\n\320 !\3218\262\206_ \322\")\203g \323 \210\324\325\326\325\"\237#\210\304!>\204\200 \305\306\307D\"\210\211\211\327r\304!>\204\224 \305\306\307D\"\210\330Hq\210\331 )I\207" [cl-struct-epg-context-tags epg-agent-file epg-agent-mtime process-status type-of signal wrong-type-argument epg-context 16 run accept-process-output 1 sleep-for 0.1 process-buffer time-less-p file-attributes 5 0 redraw-frame epg-context-set-result-for error epg-context-result-for 21 22 buffer-string] 8 (#$ . 114536)]) #@34 Reset the CONTEXT. (fn CONTEXT) (defalias 'epg-reset #[257 "\301!>\204 \302\303\304D\"\210\211\305H\203E \306\307\301!>\204& \302\303\304D\"\210\305H!!\203E \310\307\301!>\204? \302\303\304D\"\210\305H!!\210\306\301!>\204U \302\303\304D\"\210\311H!\203q \310\301!>\204l \302\303\304D\"\210\311H!\210\301!>\204\200 \302\303\304D\"\210\211\211\305\312I\266\301!>\204\226 \302\303\304D\"\210\211\211\313\312I\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 16 buffer-live-p process-buffer kill-buffer 22 nil 12] 7 (#$ . 115350)]) #@50 Delete the output file of CONTEXT. (fn CONTEXT) (defalias 'epg-delete-output-file #[257 "\301!>\204 \302\303\304D\"\210\211\305H\205@ \306\301!>\204% \302\303\304D\"\210\305H!\205@ \307\301!>\204< \302\303\304D\"\210\305H!\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 17 file-exists-p delete-file] 6 (#$ . 115943)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-USERID_HINT #[514 "\301\302\"\2059 \303\304\"\303\305\"\306\"\3071! \310!\211\2620\202% \210\202& \210\211\2030 \211\241\2027 BB\211\266\203\207" [epg-user-id-alist string-match "\\`\\([^ ]+\\) \\(.*\\)" match-string 1 2 assoc (error) epg--decode-percent-escape-as-utf-8] 7 (#$ . 116313)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-NEED_PASSPHRASE #[514 "\301\302\"\205 \303\304\"\211\207" [epg-key-id string-match "\\`\\([^ ]+\\)" match-string 1] 5 (#$ . 116666)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-NEED_PASSPHRASE_SYM #[514 "\301\211\207" [epg-key-id SYM] 4 (#$ . 116855)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-NEED_PASSPHRASE_PIN #[514 "\301\211\207" [epg-key-id PIN] 4 (#$ . 116983)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-GET_HIDDEN #[514 "\205\363 \304\305\"\205\363 \306! >\204 \307\310\311D\"\210\312H\204$ \313\314!\210\315\211C\315C\315C\316\317\320\321\322#\323\"\324$\216\3251\313 \306! >\204T \307\310\311 D\"\210\312H@\306\n! >\204m \307\310\311\fD\"\210 \312HA#\240\210\242\205\307 \242\326P\240\210\327\242!\210\315\240\210 \203\245 \211\330\242\331 \332\"\"\240\210\327\242!\210\315\240\210\202\256 \211\242\240\210\315\240\210\333\306! >\204\300 \307\310\311 D\"\210\334H\242\"0\202\360 \210\335\313\336\337\n\313\"B#\210\340\306! >\204\353 \307\310\311 D\"\210\334H!*\266\204\207" [epg-key-id cl-struct-epg-context-tags inhibit-quit epg-passphrase-coding-system string-match "\\`passphrase\\." type-of signal wrong-type-argument epg-context 10 error "passphrase-callback not set" nil make-byte-code 0 "\300\242\203\n \303\300\242!\210\301\242\203 \303\301\242!\210\302\242\205 \303\302\242!\207" vconcat vector [clear-string] 2 (quit) "\n" clear-string encode-coding-string coding-system-change-eol-conversion unix process-send-string 16 epg-context-set-result-for (quit) epg-context-result-for delete-process] 14 (#$ . 117111)]) #@23 (fn CONTEXT STRING) (defalias 'epg--prompt-GET_BOOL #[514 "\301\"\302\203 A\202 \303P!\207" [epg-prompt-alist assoc y-or-n-p "? "] 6 (#$ . 118336)]) #@23 (fn CONTEXT STRING) (defalias 'epg--prompt-GET_BOOL-untrusted_key\.override #[514 "\302@\303\232\2030 \304\305A\"\2030 \306\307A\"\306\310A\"\311 \"\211\203& \211A\262\312\313#\266\203\2021 \314!\207" [epg-last-status epg-user-id-alist y-or-n-p "USERID_HINT" string-match "\\`\\([^ ]+\\) \\(.*\\)" match-string 1 2 assoc format "Untrusted key %s %s. Use anyway? " "Use untrusted key anyway? "] 10 (#$ . 118500)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-GET_BOOL #[514 "\302\3031F \304\305P!\206 \306\"\203- \307\310! >\204% \311\312\313D\"\210\314H\315\"\202B \307\310! >\204= \311\312\313D\"\210\314H\316\"0\202g \210\317\320\321\322\320\"B#\210\323\310! >\204c \311\312\313D\"\210\314H!)\207" [inhibit-quit cl-struct-epg-context-tags nil (quit) intern-soft "epg--prompt-GET_BOOL-" epg--prompt-GET_BOOL process-send-string type-of signal wrong-type-argument epg-context 16 "y\n" "n\n" epg-context-set-result-for error (quit) epg-context-result-for delete-process] 9 (#$ . 118930)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-GET_LINE #[514 "\303\"\304\30513 \306\307!\n>\204 \310\311\312D\"\210\313H\314\203( A\202+ \315P!\316P\"0\202U \210\317\320\321\322\320\"B#\210\323\307!\n>\204Q \310\311\312D\"\210\313H!)\207" [epg-prompt-alist inhibit-quit cl-struct-epg-context-tags assoc nil (quit) process-send-string type-of signal wrong-type-argument epg-context 16 read-string ": " "\n" epg-context-set-result-for error (quit) epg-context-result-for delete-process] 10 (#$ . 119528)]) #@30 (fn CONTEXT STATUS STRING) (defalias 'epg--status-*SIG #[771 "\302\303\"\203w \304\305\"\304\306\"\307\"\310\311\312\313 \314\211\211\211\211\211\211\211\211&\f\315\n\311\"B#\210\3161` \317! >\204E \320\321\322D\"\210\305H\323=\203V \324!\211\262\202\\ \325!\211\2620\202d \210\202e \210\211\203o \211\241\202v BB\211\207\310\311\312\313\314\211\211\211\211\211\211\211\211\211&\f\315\311\"B#\207" [epg-user-id-alist cl-struct-epg-context-tags string-match "\\`\\([^ ]+\\) \\(.*\\)" match-string 1 2 assoc epg-context-set-result-for verify record epg-signature nil epg-context-result-for (error) type-of signal wrong-type-argument epg-context CMS epg-dn-from-string epg--decode-percent-escape-as-utf-8] 22 (#$ . 120055)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-GOODSIG #[514 "\300\301#\207" [epg--status-*SIG good] 6 (#$ . 120815)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-EXPSIG #[514 "\300\301#\207" [epg--status-*SIG expired] 6 (#$ . 120940)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-EXPKEYSIG #[514 "\300\301#\207" [epg--status-*SIG expired-key] 6 (#$ . 121067)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-REVKEYSIG #[514 "\300\301#\207" [epg--status-*SIG revoked-key] 6 (#$ . 121201)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-BADSIG #[514 "\300\301#\207" [epg--status-*SIG bad] 6 (#$ . 121335)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-NO_PUBKEY #[514 "\302!>\204 \303\304\305D\"\210\306H\307=\203e \310\307\"@\211\205d \302! >\204/ \303\304\311D\"\210\211\312H\313=\205d \302! >\204F \303\304\311D\"\210\211\314H\232\205d \302! >\204] \303\304\311D\"\210\211\211\312\315I\262\207\316\313\315B\310\313\"B#\207" [cl-struct-epg-context-tags cl-struct-epg-signature-tags type-of signal wrong-type-argument epg-context 19 verify epg-context-result-for epg-signature 1 error 2 no-pubkey epg-context-set-result-for] 9 (#$ . 121458)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-NO_SECKEY #[514 "\300\301\302B\303\301\"B#\207" [epg-context-set-result-for error no-seckey epg-context-result-for] 9 (#$ . 122019)]) (defalias 'epg--time-from-seconds 'string-to-number) #@23 (fn CONTEXT STRING) (defalias 'epg--status-ERRSIG #[514 "\301\302\"\205\257 \303\304\305\306\211\211\211\211\211\211\211\211\211&\f\307\310\311\310\"B#\210\312!>\2041 \313\314\304D\"\210\211\211\315\316\317\"I\266\312!>\204K \313\314\304D\"\210\211\211\320\321\316\315\"!I\266\312!>\204g \313\314\304D\"\210\211\211\322\321\316\323\"!I\266\312!>\204\203 \313\314\304D\"\210\211\211\324\321\316\325\"\326\"I\266\312!>\204\240 \313\314\304D\"\210\211\211\327\330\316\327\"!I\262\262\207" [cl-struct-epg-signature-tags string-match "\\`\\([^ ]+\\) \\([0-9]+\\) \\([0-9]+\\) \\([[:xdigit:]][[:xdigit:]]\\) \\([^ ]+\\) \\([0-9]+\\)" record epg-signature error nil epg-context-set-result-for verify epg-context-result-for type-of signal wrong-type-argument 2 match-string 1 7 string-to-number 8 3 9 4 16 5 epg--time-from-seconds] 15 (#$ . 122261)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-VALIDSIG #[514 "\301\302\"@\211\205\363 \303!>\204 \304\305\306D\"\210\211\307H\310=\205\363 \311\312\"\205\363 \303!>\2046 \304\305\306D\"\210\211\211\313\314\307\"I\266\303!>\204P \304\305\306D\"\210\211\211\315\316\314\317\"!I\266\314\320\"\321\232\204\202 \303!>\204u \304\305\306D\"\210\211\211\322\316\314\320\"!I\266\303!>\204\221 \304\305\306D\"\210\211\211\323\324\314\313\"!I\266\303!>\204\255 \304\305\306D\"\210\211\211\325\324\314\315\"!I\266\303!>\204\311 \304\305\306D\"\210\211\211\326\324\314\322\"!I\266\303!>\204\345 \304\305\306D\"\210\211\211\327\324\314\325\"\330\"I\262\207" [cl-struct-epg-signature-tags epg-context-result-for verify type-of signal wrong-type-argument epg-signature 1 good string-match "\\`\\([^ ]+\\) [^ ]+ \\([^ ]+\\) \\([^ ]+\\) \\([0-9]+\\) [^ ]+ \\([0-9]+\\) \\([0-9]+\\) \\([[:xdigit:]][[:xdigit:]]\\) \\(.*\\)" 4 match-string 5 epg--time-from-seconds 2 3 "0" 6 10 string-to-number 7 8 9 16] 10 (#$ . 123148)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-TRUST_UNDEFINED #[514 "\301\302\"@\211\2056 \303!>\204 \304\305\306D\"\210\211\307H\310=\2056 \303!>\204/ \304\305\306D\"\210\211\211\311\312I\262\207" [cl-struct-epg-signature-tags epg-context-result-for verify type-of signal wrong-type-argument epg-signature 1 good 3 undefined] 7 (#$ . 124206)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-TRUST_NEVER #[514 "\301\302\"@\211\2056 \303!>\204 \304\305\306D\"\210\211\307H\310=\2056 \303!>\204/ \304\305\306D\"\210\211\211\311\312I\262\207" [cl-struct-epg-signature-tags epg-context-result-for verify type-of signal wrong-type-argument epg-signature 1 good 3 never] 7 (#$ . 124565)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-TRUST_MARGINAL #[514 "\301\302\"@\211\2056 \303!>\204 \304\305\306D\"\210\211\307H\310=\2056 \303!>\204/ \304\305\306D\"\210\211\211\311\312I\262\207" [cl-struct-epg-signature-tags epg-context-result-for verify type-of signal wrong-type-argument epg-signature 1 good 3 marginal] 7 (#$ . 124916)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-TRUST_FULLY #[514 "\301\302\"@\211\2056 \303!>\204 \304\305\306D\"\210\211\307H\310=\2056 \303!>\204/ \304\305\306D\"\210\211\211\311\312I\262\207" [cl-struct-epg-signature-tags epg-context-result-for verify type-of signal wrong-type-argument epg-signature 1 good 3 full] 7 (#$ . 125273)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-TRUST_ULTIMATE #[514 "\301\302\"@\211\2056 \303!>\204 \304\305\306D\"\210\211\307H\310=\2056 \303!>\204/ \304\305\306D\"\210\211\211\311\312I\262\207" [cl-struct-epg-signature-tags epg-context-result-for verify type-of signal wrong-type-argument epg-signature 1 good 3 ultimate] 7 (#$ . 125623)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-NOTATION_NAME #[514 "\301\302\"@\211\205, \303\304\305\306\305%\307!>\204 \310\311\312D\"\210\211\313\313HBI\262\262\207" [cl-struct-epg-signature-tags epg-context-result-for verify record epg-sig-notation nil t type-of signal wrong-type-argument epg-signature 11] 10 (#$ . 125980)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-NOTATION_DATA #[514 "\302\303\"@\304\2059 \305!>\204 \306\307\310D\"\210\311H@\211\262\2059 \305! >\2042 \306\307\312D\"\210\211\211\313I\262\207" [cl-struct-epg-signature-tags cl-struct-epg-sig-notation-tags epg-context-result-for verify nil type-of signal wrong-type-argument epg-signature 11 epg-sig-notation 2] 8 (#$ . 126326)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-POLICY_URL #[514 "\301\302\"@\211\205, \303\304\305\306\305%\307!>\204 \310\311\312D\"\210\211\313\313HBI\262\262\207" [cl-struct-epg-signature-tags epg-context-result-for verify record epg-sig-notation nil t type-of signal wrong-type-argument epg-signature 11] 10 (#$ . 126722)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-PROGRESS #[514 "\301!>\204 \302\303\304D\"\210\305H\205^ \306\307\"\205^ \301!>\204+ \302\303\304D\"\210\305H@\310\311\"\310\312\"\313\310\314\"!\313\310\315\"!\301!>\204W \302\303\304\nD\"\210\305HA&\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 11 string-match "\\`\\([^ ]+\\) \\([^ ]\\) \\([0-9]+\\) \\([0-9]+\\)" match-string 1 2 string-to-number 3 4] 12 (#$ . 127065)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-ENC_TO #[514 "\300\301\"\205$ \302\303\304\305\"\306\304\307\"!\306\304\310\"!E\311\303\"B#\207" [string-match "\\`\\([0-9A-Za-z]+\\) \\([0-9]+\\) \\([0-9]+\\)" epg-context-set-result-for encrypted-to match-string 1 string-to-number 2 3 epg-context-result-for] 11 (#$ . 127549)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-DECRYPTION_FAILED #[514 "\300\301\302#\207" [epg-context-set-result-for decryption-failed t] 6 (#$ . 127889)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-DECRYPTION_OKAY #[514 "\300\301\302#\207" [epg-context-set-result-for decryption-okay t] 6 (#$ . 128052)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-NODATA #[514 "\300\301\302\303!B\304\301\"B#\207" [epg-context-set-result-for error no-data string-to-number epg-context-result-for] 9 (#$ . 128211)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-UNEXPECTED #[514 "\300\301\302\303!B\304\301\"B#\207" [epg-context-set-result-for error unexpected string-to-number epg-context-result-for] 9 (#$ . 128417)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-KEYEXPIRED #[514 "\300\301\302\303\304!BD\305\301\"B#\207" [epg-context-set-result-for key key-expired expiration-time epg--time-from-seconds epg-context-result-for] 9 (#$ . 128630)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-KEYREVOKED #[514 "\300\301\302\303\301\"B#\207" [epg-context-set-result-for key (key-revoked) epg-context-result-for] 9 (#$ . 128870)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-BADARMOR #[514 "\300\301\302\303\301\"B#\207" [epg-context-set-result-for error (bad-armor) epg-context-result-for] 9 (#$ . 129060)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-INV_RECP #[514 "\300\301\"\205# \302\303\304\305\306\307\310\"!B\311\307\312\"BE\313\303\"B#\207" [string-match "\\`\\([0-9]+\\) \\(.*\\)" epg-context-set-result-for error invalid-recipient reason string-to-number match-string 1 requested 2 epg-context-result-for] 11 (#$ . 129248)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-INV_SGNR #[514 "\300\301\"\205# \302\303\304\305\306\307\310\"!B\311\307\312\"BE\313\303\"B#\207" [string-match "\\`\\([0-9]+\\) \\(.*\\)" epg-context-set-result-for error invalid-signer reason string-to-number match-string 1 requested 2 epg-context-result-for] 11 (#$ . 129591)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-NO_RECP #[514 "\300\301\302\303\301\"B#\207" [epg-context-set-result-for error (no-recipients) epg-context-result-for] 9 (#$ . 129931)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-NO_SGNR #[514 "\300\301\302\303\301\"B#\207" [epg-context-set-result-for error (no-signers) epg-context-result-for] 9 (#$ . 130122)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-DELETE_PROBLEM #[514 "\300\301\"\205 \302\303\304\305\306\307\"!B\310\303\"B#\207" [string-match "\\`\\([0-9]+\\)" epg-context-set-result-for error delete-problem string-to-number match-string 1 epg-context-result-for] 10 (#$ . 130310)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-SIG_CREATED #[514 "\301\302\"\205O \303\304\305\306\"\307H\236A\310\305\311\"!\310\305\312\"!\310\305\313 \"\314\"\315\305\316\n\"!\317 \307\225\"\320\321&\266\206\322\304\"B#\207" [epg-new-signature-type-alist string-match "\\`\\([DCS]\\) \\([0-9]+\\) \\([0-9]+\\) \\([[:xdigit:]][[:xdigit:]]\\) \\(.*\\) " epg-context-set-result-for sign match-string 1 0 string-to-number 2 3 4 16 epg--time-from-seconds 5 substring record epg-new-signature epg-context-result-for] 19 (#$ . 130606)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-KEY_CREATED #[514 "\300\301\"\205\" \302\303\304\305\306\307\"!B\310\306\311\"BD\312\303\"B#\207" [string-match "\\`\\([BPS]\\) \\([^ ]+\\)" epg-context-set-result-for generate-key type string-to-char match-string 1 fingerprint 2 epg-context-result-for] 10 (#$ . 131169)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-KEY_NOT_CREATED #[514 "\300\301\302\303\301\"B#\207" [epg-context-set-result-for error (key-not-created) epg-context-result-for] 9 (#$ . 131501)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-IMPORTED #[514 "\301\302\"\2059 \303\304\"\303\305\"\306\"\3071! \310!\211\2620\202% \210\202& \210\211\2030 \211\241\2027 BB\211\266\203\207" [epg-user-id-alist string-match "\\`\\([^ ]+\\) \\(.*\\)" match-string 1 2 assoc (error) epg--decode-percent-escape-as-utf-8] 7 (#$ . 131702)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-IMPORT_OK #[514 "\300\301\"\205] \302\303\304\"!\305\306\307\224\205 \303\310\"\311\304\"\312U?\311\307\"\312U?\311\313\"\312U?\311\314\"\312U?\311 \315\"\312U?\316\317\320&\266\206\321\306\"B#\262\207" [string-match "\\`\\([0-9]+\\)\\( \\(.+\\)\\)?" string-to-number match-string 1 epg-context-set-result-for import-status 2 3 logand 0 4 8 16 record epg-import-status nil epg-context-result-for] 21 (#$ . 132052)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-IMPORT_PROBLEM #[514 "\300\301\"\205. \302\303\304\224\205 \305\306\"\307\305\310\"!\311\312\313\211\211\211\211&\266\202\314\303\"B#\207" [string-match "\\`\\([0-9]+\\)\\( \\(.+\\)\\)?" epg-context-set-result-for import-status 2 match-string 3 string-to-number 1 record epg-import-status nil epg-context-result-for] 16 (#$ . 132549)]) #@23 (fn CONTEXT STRING) (defalias 'epg--status-IMPORT_RES #[514 "\300\301\"\205\223 \302\303\304\305\306\"!\304\305\307\"!\304\305\310\"!\304\305\311 \"!\304\305\312\n\"!\304\305\313 \"!\304\305\314\f\"!\304\305\315 \"!\304\305\316\"!\304\305\317\"!\304\305\320\"!\304\305\321\"!\304\305\322\"!\323\324\"\325\326&\266\216#\210\302\324\327#\207" [string-match "\\`\\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\)" epg-context-set-result-for import string-to-number match-string 1 2 3 4 5 6 7 8 9 10 11 12 13 epg-context-result-for import-status record epg-import-result nil] 35 (#$ . 132947)]) #@32 (fn CONTEXT KEY-ID HANDBACK) (defalias 'epg-passphrase-callback-function #[771 "\302=\203 \303\304\305!>\204 \306\307\310D\"\210\311H\312=\"\207\303\313=\203* \314\202A \315 \"\211\203; \316\317A#\202? \316\320\"\262!\207" [cl-struct-epg-context-tags epg-user-id-alist SYM read-passwd "Passphrase for symmetric encryption: " type-of signal wrong-type-argument epg-context 19 encrypt PIN "Passphrase for PIN: " assoc format "Passphrase for %s %s: " "Passphrase for %s: "] 9 (#$ . 133719)]) (make-obsolete 'epg-passphrase-callback-function 'epa-passphrase-callback-function "23.1") #@26 (fn CONTEXT NAME MODE) (defalias 'epg--list-keys-1 #[771 "\302\303!>\204 \304\305\306D\"\210\307H\205, \310\303!>\204( \304\305\306D\"\210\307HD\311\303!>\204> \304\305\306D\"\210\312H\313=?\205H \314#\315>\203S \316\202^ \317>\203] \320\202^ \321\322\323\211\211\211\203\216 <\204u C\262 \203\227 \302 @D\"\262A\262 \202u \302C\"\262\324\325!r\211q\210\326\327\330\331\332!\333\"\334$\216\335\336\303 !>\204\275 \304\305\306D\"\210\f\334H\323\337\323D\323 &\210eb\210\340\341\323\337#\203\342\343\323\"B\262\344\327!\262\327\262\327\262@GW\203\316 \345\346#=\203\316 \327\225\262@\344\312\"I\210T\262\202\351 \237*\262)\207" [cl-struct-epg-context-tags coding-system-for-read append type-of signal wrong-type-argument epg-context 3 "--homedir" ("--with-colons" "--no-greeting" "--batch" "--with-fingerprint" "--with-fingerprint") 1 CMS ("--fixed-list-mode") (t secret) "--list-secret-keys" (nil public) "--list-keys" "--list-sigs" binary nil generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 apply call-process t re-search-forward "^[a-z][a-z][a-z]:.*" make-vector 15 match-string string-match "\\([^:]+\\)?:"] 18 (#$ . 134321)]) #@13 (fn LINE) (defalias 'epg--make-sub-key-1 #[257 "\211\301H\205 \302\301H!\236A\303\304\305\306\307H\"\"\310H\311\235\312\313H!\312\314H!\315H\316\317H!\320H\205< \316\320H!\321\322 \304&\n\207" [epg-key-validity-alist 1 string-to-char delq nil mapcar #[257 "\211\236A\207" [epg-key-capability-alist] 3 "\n\n(fn CHAR)"] 11 0 ("sec" "ssb") string-to-number 3 2 4 epg--time-from-seconds 5 6 record epg-sub-key] 20 (#$ . 135603)]) #@360 Return a list of epg-key objects matched with NAME. If MODE is nil or `public', only public keyring should be searched. If MODE is t or `secret', only secret keyring should be searched. Otherwise, only public keyring should be searched and the key signatures should be included. NAME is either a string or a list of strings. (fn CONTEXT &optional NAME MODE) (defalias 'epg-list-keys #[769 "\304#\305\211\211\211\211\211\203u@\306H\307\235\203j @\306H\310\235\262@\311H\2055 \312@\311H!\236A\313\314\305\211$\262B\262\315@!\316@! >\204Z \317\320\314 @D\"\210@\211\321\321HBI\266\202m@\306H\322\235\203\234 \315@!\316@! >\204\214 \317\320\314 @D\"\210@\211\321\321HBI\266\202m@\306H\323\232\203;\324@\325H!\262\306\262\326\327#\203\312 \330\331\332\211$\262\306\225T\262\202\262 \3331\337 \334\335\327\327Q!@\336\"\211\2620\202\350 \210@\325H\211\262\210@\337H\205\373 \312@\337H!\236A\203\3401\n\341!0\202\210\202\313\342\305$\266\202\316@! >\204+\317\320\314 @D\"\210@\211\343\343HBI\266\202m@\306H\344\232\203\251\316\211@! >\204Y\317\320\314 @D\"\210@\321H@!\n>\204\204\317\320\345\316 @! >\204{\317\320\314 @D\"\210@\321H@D\"\210\316@! >\204\227\317\320\314@D\"\210@\321H@\211\325 @\325HI\266\202m@\306H\346\232\203m@\337H\205\305\312@\337H!\236A\347@\343H!@\350H\351\n@\352H!\351 @\353H! @\325H\347 @\354H\355\" @\354H\321H\356=\313\357 & \266\210\316\211@! >\204 \317\320\314\n@D\"\210@\343H@! >\204J\317\320\342\316\n@! >\204A\317\320\314\f@D\"\210 @\343H@D\"\210\316@! >\204]\317\320\314 @D\"\210@\343H@\211\343\343HBI\266A\262\202 \237\262\262\203\352\316@! >\204\222\317\320\314@D\"\210@\211\321\321H\237I\266\316@! >\204\257\317\320\314@D\"\210@\211\343\343H\237I\262\262\203\343\316@! >\204\321\317\320\342@D\"\210@\211\343\343H\237I\266A\262\202\274A\262\202|\207" [epg-key-validity-alist cl-struct-epg-key-tags cl-struct-epg-sub-key-tags cl-struct-epg-user-id-tags epg--list-keys-1 nil 0 ("pub" "sec" "crt" "crs") ("crt" "crs") 8 string-to-char record epg-key epg--make-sub-key-1 type-of signal wrong-type-argument 2 ("sub" "ssb") "uid" copy-sequence 9 string-match "\"" replace-match "\\\"" t (error) decode-coding-string read-from-string utf-8 1 (error) epg-dn-from-string epg-user-id 3 "fpr" epg-sub-key "sig" string-to-number 4 epg--time-from-seconds 5 6 10 16 120 epg-key-signature] 28 (#$ . 136068)]) #@18 (fn NOTATIONS) (defalias 'epg--args-from-sig-notations #[257 "\300\301\302\303\"\"\207" [apply nconc mapcar #[257 "\301!>\204 \302\303\304D\"\210\211\305H\203. \301!>\204$ \302\303\304D\"\210\211\306H\204. \307\310!\210\301!>\204= \302\303\304D\"\210\211\305H\203\255 \311\301!>\204S \302\303\304D\"\210\312H\203\204 \313\301!>\204i \302\303\304D\"\210\305H\314\301!>\204} \302\303\304D\"\210\315HR\202\253 \301!>\204\223 \302\303\304D\"\210\305H\314\301!>\204\247 \302\303\304D\"\210\315HQD\207\316\301!>\204\275 \302\303\304D\"\210\312H\203\332 \313\301!>\204\323 \302\303\304D\"\210\315HP\202\354 \301!>\204\351 \302\303\304D\"\210\315HD\207" [cl-struct-epg-sig-notation-tags type-of signal wrong-type-argument epg-sig-notation 1 3 error "Unreadable" "--sig-notation" 4 "!" "=" 2 "--sig-policy-url"] 9 "\n\n(fn NOTATION)"]] 6 (#$ . 138602)]) #@16 (fn CONTEXT) (defalias 'epg-cancel #[257 "\302\303\304!>\204 \305\306\301D\"\210\307H!!\203< r\303\304!>\204* \305\306\301D\"\210\307H!q\210\310 \311\312\313 \311\"B#\210)\314\304!>\204L \305\306\301D\"\210\307H!\315=\205i \316\304!>\204e \305\306\301D\"\210\307H!\207" [cl-struct-epg-context-tags epg-context buffer-live-p process-buffer type-of signal wrong-type-argument 16 epg-context-set-result-for error (quit) epg-context-result-for process-status run delete-process] 8 (#$ . 139500)]) #@388 Initiate a decrypt operation on CIPHER. CIPHER must be a file data object. If you use this function, you will need to wait for the completion of `epg-gpg-program' by using `epg-wait-for-completion' and call `epg-reset' to clear a temporary output file. If you are unsure, use synchronous version of this function `epg-decrypt-file' or `epg-decrypt-string' instead. (fn CONTEXT CIPHER) (defalias 'epg-start-decrypt #[514 "\302!>\204 \303\304\305D\"\210\211\306H\204 \307\310!\210\302! >\204( \303\304\311D\"\210\211\312\313I\266\302! >\204> \303\304\311D\"\210\211\314\315I\266\316\317\320\302!>\204Y \303\304\305D\"\210\306HE\"\210\302! >\204n \303\304\311D\"\210\306H\321=?\205{ \322\323\"\207" [cl-struct-epg-data-tags cl-struct-epg-context-tags type-of signal wrong-type-argument epg-data 1 error "Not a file" epg-context 19 decrypt 18 nil epg--start "--decrypt" "--" CMS epg-wait-for-status ("BEGIN_DECRYPTION")] 10 (#$ . 140019)]) #@16 (fn CONTEXT) (defalias 'epg--check-error-for-decrypt #[257 "\300\301\"\300\302\"\203 \303\304\305\306!D\"\210\300\307\"?\205$ \303\304\310\306!D\"\207" [epg-context-result-for error decryption-failed signal epg-error "Decryption failed" epg-errors-to-string decryption-okay "Can't decrypt"] 7 (#$ . 140986)]) #@140 Decrypt a file CIPHER and store the result to a file PLAIN. If PLAIN is nil, it returns the result as a string. (fn CONTEXT CIPHER PLAIN) (defalias 'epg-decrypt-file #[771 "\301\302\303\304\305\"\306\"\307$\216\310!>\204 \311\312\313D\"\210\211\314\206( \315\316!I\266\317\320\321\322#\"\210\323!\210\324!\210\211?\205D \325!)\207" [cl-struct-epg-context-tags make-byte-code 0 "\301\204 \302\300!\210\303\300!\207" vconcat vector [epg-delete-output-file epg-reset] 2 type-of signal wrong-type-argument epg-context 17 make-temp-file "epg-output" epg-start-decrypt record epg-data nil epg-wait-for-completion epg--check-error-for-decrypt epg-read-output] 10 (#$ . 141310)]) #@73 Decrypt a string CIPHER and return the plain text. (fn CONTEXT CIPHER) (defalias 'epg-decrypt-string #[514 "\302\303!\304\305\306\307\310\311\"\312\"\313$\216\314\315\315\316%\210\317! >\204+ \320\321\322D\"\210\211\323\302\324!I\266\325\326\327\315#\"\210\330!\210\331!\210\332!*\207" [coding-system-for-write cl-struct-epg-context-tags make-temp-file "epg-input" binary make-byte-code 0 "\302\300!\210\303\301!\203 \304\301!\210\305\300!\207" vconcat vector [epg-delete-output-file file-exists-p delete-file epg-reset] 2 write-region nil quiet type-of signal wrong-type-argument epg-context 17 "epg-output" epg-start-decrypt record epg-data epg-wait-for-completion epg--check-error-for-decrypt epg-read-output] 10 (#$ . 142006)]) #@584 Initiate a verify operation on SIGNATURE. SIGNATURE and SIGNED-TEXT are a data object if they are specified. For a detached signature, both SIGNATURE and SIGNED-TEXT should be set. For a normal or a cleartext signature, SIGNED-TEXT should be nil. If you use this function, you will need to wait for the completion of `epg-gpg-program' by using `epg-wait-for-completion' and call `epg-reset' to clear a temporary output file. If you are unsure, use synchronous version of this function `epg-verify-file' or `epg-verify-string' instead. (fn CONTEXT SIGNATURE &optional SIGNED-TEXT) (defalias 'epg-start-verify #[770 "\302!>\204 \303\304\305D\"\210\211\306\307I\266\302!>\204% \303\304\305D\"\210\211\310\311I\266\211\203\302! >\204? \303\304\312D\"\210\211\313H\203t \314\315\316\302! >\204Z \303\304\312D\"\210\313H\302! >\204n \303\304\312D\"\210\313HF\"\207\314\315\316\302! >\204\211 \303\304\312D\"\210\313H\317F\"\210\320\302!>\204\241 \303\304\305D\"\210\321H!\322=\203\322 \323\302!>\204\273 \303\304\305D\"\210\321H\302! >\204\315 \303\304\312D\"\210\324H\"\210\320\302!>\204\343 \303\304\305D\"\210\321H!\322=\205\325\302!>\204\375 \303\304\305D\"\210\321H!\207\302! >\204\303\304\312D\"\210\313H\203b\314\302!>\204)\303\304\305D\"\210\313H\326=\203K\315\316\302! >\204D\303\304\312D\"\210\313HE\202`\316\302! >\204\\\303\304\312D\"\210\313HD\"\207\314\302!>\204t\303\304\305D\"\210\313H\326=\203\200\327\202\201\330\"\210\320\302!>\204\224\303\304\305D\"\210\321H!\322=\203\306\323\302!>\204\256\303\304\305D\"\210\321H\302! >\204\301\303\304\312D\"\210\324H\"\210\320\302!>\204\327\303\304\305D\"\210\321H!\322=\205\365\325\302!>\204\361\303\304\305D\"\210\321H!\207" [cl-struct-epg-context-tags cl-struct-epg-data-tags type-of signal wrong-type-argument epg-context 19 verify 18 nil epg-data 1 epg--start "--verify" "--" "-" process-status 16 run process-send-string 2 process-send-eof CMS ("--verify" "-") ("-")] 12 (#$ . 142763)]) #@757 Verify a file SIGNATURE. SIGNED-TEXT and PLAIN are also a file if they are specified. For a detached signature, both SIGNATURE and SIGNED-TEXT should be string. For a normal or a cleartext signature, SIGNED-TEXT should be nil. In the latter case, if PLAIN is specified, the plaintext is stored into the file after successful verification. Note that this function does not return verification result as t or nil, nor signal error on failure. That's a design decision to handle the case where SIGNATURE has multiple signature. To check the verification results, use `epg-context-result-for' as follows: (epg-context-result-for context \='verify) which will return a list of `epg-signature' object. (fn CONTEXT SIGNATURE &optional SIGNED-TEXT PLAIN) (defalias 'epg-verify-file #[1026 "\301\302\303\304\305\"\306\"\307$\216\310!>\204 \311\312\313D\"\210\211\314\206) \315\316!I\266\203C \317\320\321\322#\320\321\322##\210\202M \317\320\321\322#\"\210\323!\210\211?\205Y \324!)\207" [cl-struct-epg-context-tags make-byte-code 0 "\301\204 \302\300!\210\303\300!\207" vconcat vector [epg-delete-output-file epg-reset] 2 type-of signal wrong-type-argument epg-context 17 make-temp-file "epg-output" epg-start-verify record epg-data nil epg-wait-for-completion epg-read-output] 11 (#$ . 144840)]) #@711 Verify a string SIGNATURE. SIGNED-TEXT is a string if it is specified. For a detached signature, both SIGNATURE and SIGNED-TEXT should be string. For a normal or a cleartext signature, SIGNED-TEXT should be nil. In the latter case, this function returns the plaintext after successful verification. Note that this function does not return verification result as t or nil, nor signal error on failure. That's a design decision to handle the case where SIGNATURE has multiple signature. To check the verification results, use `epg-context-result-for' as follows: (epg-context-result-for context \='verify) which will return a list of `epg-signature' object. (fn CONTEXT SIGNATURE &optional SIGNED-TEXT) (defalias 'epg-verify-string #[770 "\302\303C\304\305\306\307\310 \"\311\"\312$\216\313! >\204$ \314\315\316D\"\210\211\317\320\321!I\266\203S \211\320\322!\240\210\323\303\242\303\324%\210\325\326\327\242\303#\326\327\303##\210\202] \325\326\327\303#\"\210\330!\210\331!*\207" [coding-system-for-write cl-struct-epg-context-tags binary nil make-byte-code 0 "\302\300!\210\301\242\203 \303\301\242!\203 \304\301\242!\210\305\300!\207" vconcat vector [epg-delete-output-file file-exists-p delete-file epg-reset] 2 type-of signal wrong-type-argument epg-context 17 make-temp-file "epg-output" "epg-signature" write-region quiet epg-start-verify record epg-data epg-wait-for-completion epg-read-output] 12 (#$ . 146169)]) #@561 Initiate a sign operation on PLAIN. PLAIN is a data object. If optional 3rd argument MODE is t or `detached', it makes a detached signature. If it is nil or `normal', it makes a normal signature. Otherwise, it makes a cleartext signature. If you use this function, you will need to wait for the completion of `epg-gpg-program' by using `epg-wait-for-completion' and call `epg-reset' to clear a temporary output file. If you are unsure, use synchronous version of this function `epg-sign-file' or `epg-sign-string' instead. (fn CONTEXT PLAIN &optional MODE) (defalias 'epg-start-sign #[770 "\302!>\204 \303\304\305D\"\210\211\306\307I\266\302!>\204% \303\304\305D\"\210\211\310\311I\266\211\312>\204^ \302!>\204A \303\304\305D\"\210\211\313\311I\266\302!>\204W \303\304\305D\"\210\211\314\311I\266\315\316\317>\203k \320\202v \321>\203u \322\202v \323C\324\325\326\327\302 !>\204\214 \303\304\305 D\"\210\n\330H\"\"\302!>\204\243 \303\304\305\nD\"\210\331H\302 !>\204\270 \303\304\305 D\"\210\332H\333=\205\320 \334\333\335\"\205\320 \211;\205\320 \336D\262\337\302\n!>\204\344 \303\304\305\fD\"\210 \340H!\302 ! >\204\372 \303\304\341 D\"\210\332H\205\342\302\n! >\204\303\304\341\fD\"\210 \332HD%\"\210\302!>\204*\303\304\305D\"\210\332H\343=\2047\344\345\"\210\302! >\204F\303\304\341D\"\210\346H\205\276\347\302!>\204]\303\304\305D\"\210\350H!\351=\203\217\352\302!>\204w\303\304\305D\"\210\350H\302! >\204\212\303\304\341D\"\210\346H\"\210\347\302!>\204\240\303\304\305D\"\210\350H!\351=\205\276\353\302!>\204\272\303\304\305D\"\210\350H!\207" [cl-struct-epg-context-tags cl-struct-epg-data-tags type-of signal wrong-type-argument epg-context 19 sign 18 nil (t detached nil normal) 4 5 epg--start append (t detached) "--detach-sign" (nil normal) "--sign" "--clearsign" apply nconc mapcar #[257 "\302\303\211!>\204 \304\305\306D\"\210\307H@! >\2045 \304\305\310\303!>\204. \304\305\306D\"\210\307H@D\"\210\303!>\204D \304\305\306D\"\210\307H@\311HD\207" [cl-struct-epg-key-tags cl-struct-epg-sub-key-tags "-u" type-of signal wrong-type-argument epg-key 2 epg-sub-key 6] 9 "\n\n(fn SIGNER)"] 13 14 1 OpenPGP epg-required-version-p "2.1.15" "--sender" epg--args-from-sig-notations 15 epg-data "--" CMS epg-wait-for-status ("BEGIN_SIGNING") 2 process-status 16 run process-send-string process-send-eof] 15 (#$ . 147629)]) #@341 Sign a file PLAIN and store the result to a file SIGNATURE. If SIGNATURE is nil, it returns the result as a string. If optional 3rd argument MODE is t or `detached', it makes a detached signature. If it is nil or `normal', it makes a normal signature. Otherwise, it makes a cleartext signature. (fn CONTEXT PLAIN SIGNATURE &optional MODE) (defalias 'epg-sign-file #[1027 "\301\302\303\304\305\"\306\"\307$\216\310!>\204 \311\312\313D\"\210\211\314\206) \315\316!I\266\317\320\321\322##\210\323!\210\324\325\"\204P \324\326\"\311\327\330\331!D\"\266?\205X \332!)\207" [cl-struct-epg-context-tags make-byte-code 0 "\301\204 \302\300!\210\303\300!\207" vconcat vector [epg-delete-output-file epg-reset] 2 type-of signal wrong-type-argument epg-context 17 make-temp-file "epg-output" epg-start-sign record epg-data nil epg-wait-for-completion epg-context-result-for sign error epg-error "Sign failed" epg-errors-to-string epg-read-output] 11 (#$ . 150074)]) #@268 Sign a string PLAIN and return the output as string. If optional 3rd argument MODE is t or `detached', it makes a detached signature. If it is nil or `normal', it makes a normal signature. Otherwise, it makes a cleartext signature. (fn CONTEXT PLAIN &optional MODE) (defalias 'epg-sign-string #[770 "\302!>\204 \303\304\305D\"\210\306H\307=?\205 \310\311!\312\313\314\315\316\317\"\320\"\321$\216\302!>\204< \303\304\305D\"\210\211\322\310\323!I\266\211\203Q \324\325\325\326%\210\327\203_ \330\331\325#\202e \330\331\325##\210\332!\210\333\334\"\204\210 \333\335\"\203\210 \333\335\"\303\336\337\340!D\"\266\341!*\207" [cl-struct-epg-context-tags coding-system-for-write type-of signal wrong-type-argument epg-context 1 CMS make-temp-file "epg-input" binary make-byte-code 0 "\302\300!\210\301\203\f \303\301!\210\304\300!\207" vconcat vector [epg-delete-output-file delete-file epg-reset] 2 17 "epg-output" write-region nil quiet epg-start-sign record epg-data epg-wait-for-completion epg-context-result-for sign error epg-error "Sign failed" epg-errors-to-string epg-read-output] 11 (#$ . 151060)]) #@471 Initiate an encrypt operation on PLAIN. PLAIN is a data object. If RECIPIENTS is nil, it performs symmetric encryption. If you use this function, you will need to wait for the completion of `epg-gpg-program' by using `epg-wait-for-completion' and call `epg-reset' to clear a temporary output file. If you are unsure, use synchronous version of this function `epg-encrypt-file' or `epg-encrypt-string' instead. (fn CONTEXT PLAIN RECIPIENTS &optional SIGN ALWAYS-TRUST) (defalias 'epg-start-encrypt #[1283 "\302!>\204 \303\304\305D\"\210\211\306\307I\266\302!>\204' \303\304\305D\"\210\211\310\311I\266\312\313\2056 \314\203? \315\202@ \316\205F \317\205f \320\321\322\323\302!>\204` \303\304\305D\"\210\324H\"\"\205\253 \302\f!>\204| \303\304\305D\"\210 \325H\326=\205\253 \302\f!>\204\226 \303\304\305D\"\210 \327H\330\326\331\"\205\251 \211;\205\251 \332D\262 \205\307 \333\302!>\204\302 \303\304\305D\"\210 \334H!\320\321\322\335\"\"\302! >\204\340 \303\304\336D\"\210 \325H\205\376 \337\302! >\204\371 \303\304\336D\"\210\325HD&\"\210\302!>\204\303\304\305D\"\210\325H\340=\204'\341\203$\342\202%\343\"\210\302! >\2047\303\304\336D\"\210\344H\205\264\345\302!>\204O\303\304\305D\"\210\346H!\347=\203\203\350\302!>\204j\303\304\305D\"\210\346H\302! >\204~\303\304\336D\"\210\344H\"\210\345\302!>\204\225\303\304\305D\"\210\346H!\347=\205\264\351\302!>\204\260\303\304\305D\"\210\346H!\207" [cl-struct-epg-context-tags cl-struct-epg-data-tags type-of signal wrong-type-argument epg-context 19 encrypt 18 nil epg--start append ("--always-trust") ("--encrypt") ("--symmetric") ("--sign") apply nconc mapcar #[257 "\302\303\211!>\204 \304\305\306D\"\210\307H@! >\2045 \304\305\310\303!>\204. \304\305\306D\"\210\307H@D\"\210\303!>\204D \304\305\306D\"\210\307H@\311HD\207" [cl-struct-epg-key-tags cl-struct-epg-sub-key-tags "-u" type-of signal wrong-type-argument epg-key 2 epg-sub-key 6] 9 "\n\n(fn SIGNER)"] 13 1 OpenPGP 14 epg-required-version-p "2.1.15" "--sender" epg--args-from-sig-notations 15 #[257 "\302\303\211!>\204 \304\305\306D\"\210\307H@! >\2045 \304\305\310\303!>\204. \304\305\306D\"\210\307H@D\"\210\303!>\204D \304\305\306D\"\210\307H@\311HD\207" [cl-struct-epg-key-tags cl-struct-epg-sub-key-tags "-r" type-of signal wrong-type-argument epg-key 2 epg-sub-key 6] 9 "\n\n(fn RECIPIENT)"] epg-data "--" CMS epg-wait-for-status ("BEGIN_SIGNING") ("BEGIN_ENCRYPTION") 2 process-status 16 run process-send-string process-send-eof] 20 (#$ . 152202)]) #@236 Encrypt a file PLAIN and store the result to a file CIPHER. If CIPHER is nil, it returns the result as a string. If RECIPIENTS is nil, it performs symmetric encryption. (fn CONTEXT PLAIN RECIPIENTS CIPHER &optional SIGN ALWAYS-TRUST) (defalias 'epg-encrypt-file #[1540 "\301\302\303\304\305\n\"\306\"\307$\216\310!>\204 \311\312\313D\"\210\211\314\206* \315\316!I\266\317\320\321\322#%\210\323!\210\324\325\"\203[ \324\326\"\204[ \311\327\330\331!D\"\210\211\203h \311\327\332\331!D\"\210\210?\205r \333!)\207" [cl-struct-epg-context-tags make-byte-code 0 "\301\204 \302\300!\210\303\300!\207" vconcat vector [epg-delete-output-file epg-reset] 2 type-of signal wrong-type-argument epg-context 17 make-temp-file "epg-output" epg-start-encrypt record epg-data nil epg-wait-for-completion epg-context-result-for error sign epg-error "Sign failed" epg-errors-to-string "Encrypt failed" epg-read-output] 13 (#$ . 154818)]) #@140 Encrypt a string PLAIN. If RECIPIENTS is nil, it performs symmetric encryption. (fn CONTEXT PLAIN RECIPIENTS &optional SIGN ALWAYS-TRUST) (defalias 'epg-encrypt-string #[1283 "?\206 \302!>\204 \303\304\305D\"\210\306H\307=?\205! \310\311!\312\313\314\315\316\317\n\"\320\"\321$\216\302!>\204C \303\304\305D\"\210\211\322\310\323!I\266\211\203X \324\325\325\326%\210\327\203g \330\331\325#\202m \330\331\325 #%\210\332!\210\333\334\"\203\224 \333\335\"\204\224 \303\336\337\340!D\"\210\211\203\241 \303\336\341\340!D\"\210\210\342!*\207" [cl-struct-epg-context-tags coding-system-for-write type-of signal wrong-type-argument epg-context 1 CMS make-temp-file "epg-input" binary make-byte-code 0 "\302\300!\210\301\203\f \303\301!\210\304\300!\207" vconcat vector [epg-delete-output-file delete-file epg-reset] 2 17 "epg-output" write-region nil quiet epg-start-encrypt record epg-data epg-wait-for-completion epg-context-result-for error sign epg-error "Sign failed" epg-errors-to-string "Encrypt failed" epg-read-output] 13 (#$ . 155777)]) #@360 Initiate an export keys operation. If you use this function, you will need to wait for the completion of `epg-gpg-program' by using `epg-wait-for-completion' and call `epg-reset' to clear a temporary output file. If you are unsure, use synchronous version of this function `epg-export-keys-to-file' or `epg-export-keys-to-string' instead. (fn CONTEXT KEYS) (defalias 'epg-start-export-keys #[514 "\301!>\204 \302\303\304D\"\210\211\305\306I\266\301!>\204% \302\303\304D\"\210\211\307\310I\266\311\312\313\314\"B\"\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 19 export-keys 18 nil epg--start "--export" mapcar #[257 "\302\211!>\204 \303\304\305D\"\210\306H@! >\2044 \303\304\307\302!>\204- \303\304\305D\"\210\306H@D\"\210\302!>\204C \303\304\305D\"\210\211\306H@\310H\207" [cl-struct-epg-key-tags cl-struct-epg-sub-key-tags type-of signal wrong-type-argument epg-key 2 epg-sub-key 6] 8 "\n\n(fn KEY)"]] 8 (#$ . 156867)]) #@46 Extract public KEYS. (fn CONTEXT KEYS FILE) (defalias 'epg-export-keys-to-file #[771 "\301\302\303\304\305\"\306\"\307$\216\310!>\204 \311\312\313D\"\210\211\314\206( \315\316!I\266\317\"\210\320!\210\321\322\"\211\203E \311\323\324\325!D\"\210\210\211?\205N \326!)\207" [cl-struct-epg-context-tags make-byte-code 0 "\301\204 \302\300!\210\303\300!\207" vconcat vector [epg-delete-output-file epg-reset] 2 type-of signal wrong-type-argument epg-context 17 make-temp-file "epg-output" epg-start-export-keys epg-wait-for-completion epg-context-result-for error epg-error "Export keys failed" epg-errors-to-string epg-read-output] 10 (#$ . 157858)]) #@69 Extract public KEYS and return them as a string. (fn CONTEXT KEYS) (defalias 'epg-export-keys-to-string #[514 "\300\301#\207" [epg-export-keys-to-file nil] 6 (#$ . 158530)]) #@387 Initiate an import keys operation. KEYS is a data object. If you use this function, you will need to wait for the completion of `epg-gpg-program' by using `epg-wait-for-completion' and call `epg-reset' to clear a temporary output file. If you are unsure, use synchronous version of this function `epg-import-keys-from-file' or `epg-import-keys-from-string' instead. (fn CONTEXT KEYS) (defalias 'epg-start-import-keys #[514 "\302!>\204 \303\304\305D\"\210\211\306\307I\266\302!>\204% \303\304\305D\"\210\211\310\311I\266\312\302! >\204= \303\304\313D\"\210\314H\203\\ \315\316\302! >\204U \303\304\313D\"\210\314HE\202^ \315C\"\210\302! >\204o \303\304\313D\"\210\211\317H\205\342 \320\302!>\204\205 \303\304\305D\"\210\321H!\322=\203\265 \323\302!>\204\236 \303\304\305D\"\210\321H\302! >\204\260 \303\304\313D\"\210\317H\"\210\320\302!>\204\305 \303\304\305D\"\210\321H!\322=\205\342 \324\302!>\204\336 \303\304\305D\"\210\321H!\207" [cl-struct-epg-context-tags cl-struct-epg-data-tags type-of signal wrong-type-argument epg-context 19 import-keys 18 nil epg--start epg-data 1 "--import" "--" 2 process-status 16 run process-send-string process-send-eof] 10 (#$ . 158714)]) #@21 (fn CONTEXT KEYS) (defalias 'epg--import-keys-1 #[514 "\300\301\302\303\304!\305\"\306$\216\307\"\210\310!\210\311\312\"\211\205& \313\314\315\316!D\"\262)\207" [make-byte-code 0 "\301\300!\207" vconcat vector [epg-reset] 2 epg-start-import-keys epg-wait-for-completion epg-context-result-for error signal epg-error "Import keys failed" epg-errors-to-string] 8 (#$ . 159937)]) #@47 Add keys from a file KEYS. (fn CONTEXT KEYS) (defalias 'epg-import-keys-from-file #[514 "\300\301\302\303#\"\207" [epg--import-keys-1 record epg-data nil] 8 (#$ . 160330)]) #@49 Add keys from a string KEYS. (fn CONTEXT KEYS) (defalias 'epg-import-keys-from-string #[514 "\300\301\302\303#\"\207" [epg--import-keys-1 record epg-data nil] 8 (#$ . 160512)]) #@362 Initiate a receive key operation. KEY-ID-LIST is a list of key IDs. If you use this function, you will need to wait for the completion of `epg-gpg-program' by using `epg-wait-for-completion' and call `epg-reset' to clear a temporary output file. If you are unsure, use synchronous version of this function `epg-receive-keys' instead. (fn CONTEXT KEY-ID-LIST) (defalias 'epg-start-receive-keys #[514 "\301!>\204 \302\303\304D\"\210\211\305\306I\266\301!>\204% \302\303\304D\"\210\211\307\310I\266\311\312B\"\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 19 receive-keys 18 nil epg--start "--recv-keys"] 6 (#$ . 160699)]) #@69 Add keys from server. KEYS is a list of key IDs. (fn CONTEXT KEYS) (defalias 'epg-receive-keys #[514 "\300\301\302\303\304!\305\"\306$\216\307\"\210\310!\210\311\312\"\211\205& \313\314\315\316!D\"\262)\207" [make-byte-code 0 "\301\300!\207" vconcat vector [epg-reset] 2 epg-start-receive-keys epg-wait-for-completion epg-context-result-for error signal epg-error "Receive keys failed" epg-errors-to-string] 8 (#$ . 161374)]) (defalias 'epg-import-keys-from-server 'epg-receive-keys) #@343 Initiate a delete keys operation. If you use this function, you will need to wait for the completion of `epg-gpg-program' by using `epg-wait-for-completion' and call `epg-reset' to clear a temporary output file. If you are unsure, use synchronous version of this function `epg-delete-keys' instead. (fn CONTEXT KEYS &optional ALLOW-SECRET) (defalias 'epg-start-delete-keys #[770 "\301!>\204 \302\303\304D\"\210\211\305\306I\266\301!>\204% \302\303\304D\"\210\211\307\310I\266\311\2036 \312\2027 \313\314\315\"B\"\207" [cl-struct-epg-context-tags type-of signal wrong-type-argument epg-context 19 delete-keys 18 nil epg--start "--delete-secret-key" "--delete-key" mapcar #[257 "\302\211!>\204 \303\304\305D\"\210\306H@! >\2044 \303\304\307\302!>\204- \303\304\305D\"\210\306H@D\"\210\302!>\204C \303\304\305D\"\210\211\306H@\310H\207" [cl-struct-epg-key-tags cl-struct-epg-sub-key-tags type-of signal wrong-type-argument epg-key 2 epg-sub-key 6] 8 "\n\n(fn KEY)"]] 9 (#$ . 161874)]) #@74 Delete KEYS from the key ring. (fn CONTEXT KEYS &optional ALLOW-SECRET) (defalias 'epg-delete-keys #[770 "\300\301\302\303\304!\305\"\306$\216\307#\210\310!\210\311\312\"\211\205' \313\314\315\316!D\"\262)\207" [make-byte-code 0 "\301\300!\207" vconcat vector [epg-reset] 2 epg-start-delete-keys epg-wait-for-completion epg-context-result-for error signal epg-error "Delete keys failed" epg-errors-to-string] 9 (#$ . 162892)]) #@526 Initiate a key generation. PARAMETERS is a string which specifies parameters of the generated key. See Info node `(gnupg) Unattended GPG key generation' in the GnuPG manual for the format. If you use this function, you will need to wait for the completion of `epg-gpg-program' by using `epg-wait-for-completion' and call `epg-reset' to clear a temporary output file. If you are unsure, use synchronous version of this function `epg-generate-key-from-file' or `epg-generate-key-from-string' instead. (fn CONTEXT PARAMETERS) (defalias 'epg-start-generate-key #[514 "\302!>\204 \303\304\305D\"\210\211\306\307I\266\302!>\204% \303\304\305D\"\210\211\310\311I\266\302! >\204; \303\304\312D\"\210\211\313H\203] \314\315\316\317\302! >\204W \303\304\312D\"\210\313HF\"\207\314\320\"\210\321\302!>\204r \303\304\305D\"\210\322H!\323=\203\242 \324\302!>\204\213 \303\304\305D\"\210\322H\302! >\204\235 \303\304\312D\"\210\325H\"\210\321\302!>\204\262 \303\304\305D\"\210\322H!\323=\205\317 \326\302!>\204\313 \303\304\305D\"\210\322H!\207" [cl-struct-epg-context-tags cl-struct-epg-data-tags type-of signal wrong-type-argument epg-context 19 generate-key 18 nil epg-data 1 epg--start "--batch" "--gen-key" "--" ("--batch" "--gen-key") process-status 16 run process-send-string 2 process-send-eof] 11 (#$ . 163336)]) #@107 Generate a new key pair. PARAMETERS is a file which tells how to create the key. (fn CONTEXT PARAMETERS) (defalias 'epg-generate-key-from-file #[514 "\300\301\302\303\304!\305\"\306$\216\307\310\311\312#\"\210\313!\210\314\315\"\211\205* \316\317\320\321!D\"\262)\207" [make-byte-code 0 "\301\300!\207" vconcat vector [epg-reset] 2 epg-start-generate-key record epg-data nil epg-wait-for-completion epg-context-result-for error signal epg-error "Generate key failed" epg-errors-to-string] 8 (#$ . 164692)]) #@109 Generate a new key pair. PARAMETERS is a string which tells how to create the key. (fn CONTEXT PARAMETERS) (defalias 'epg-generate-key-from-string #[514 "\300\301\302\303\304!\305\"\306$\216\307\310\311\312#\"\210\313!\210\314\315\"\211\205* \316\317\320\321!D\"\262)\207" [make-byte-code 0 "\301\300!\207" vconcat vector [epg-reset] 2 epg-start-generate-key record epg-data nil epg-wait-for-completion epg-context-result-for error signal epg-error "Generate key failed" epg-errors-to-string] 8 (#$ . 165215)]) #@481 Initiate an edit operation on KEY. EDIT-CALLBACK is called from process filter and takes four arguments: the context, a status, an argument string, and the handback argument. If you use this function, you will need to wait for the completion of `epg-gpg-program' by using `epg-wait-for-completion' and call `epg-reset' to clear a temporary output file. If you are unsure, use synchronous version of this function `epg-edit-key' instead. (fn CONTEXT KEY EDIT-CALLBACK HANDBACK) (defalias 'epg-start-edit-key #[1028 "\303!>\204 \304\305\306D\"\210\211\307\310I\266\303!>\204' \304\305\306D\"\210\211\311\312I\266\303!>\204> \304\305\306D\"\210\211\313BI\266\314\315\303\211! >\204\\ \304\305\316 D\"\210\317H@!\n>\204\203 \304\305\320\303 ! >\204{ \304\305\316 D\"\210\317H@D\"\210\303! >\204\224 \304\305\316D\"\210\317H@\321HD\"\207" [cl-struct-epg-context-tags cl-struct-epg-key-tags cl-struct-epg-sub-key-tags type-of signal wrong-type-argument epg-context 19 edit-key 18 nil 12 epg--start "--edit-key" epg-key 2 epg-sub-key 6] 14 (#$ . 165742)]) #@67 Edit KEY in the keyring. (fn CONTEXT KEY EDIT-CALLBACK HANDBACK) (defalias 'epg-edit-key #[1028 "\300\301\302\303\304!\305\"\306$\216\307$\210\310!\210\311\312\"\211\205( \313\314\315\316!D\"\262)\207" [make-byte-code 0 "\301\300!\207" vconcat vector [epg-reset] 2 epg-start-edit-key epg-wait-for-completion epg-context-result-for error signal epg-error "Edit key failed" epg-errors-to-string] 10 (#$ . 166836)]) #@15 (fn STRING) (defalias 'epg--decode-percent-escape #[257 "\300\301\"\262\302\303\304#\203> \305\224\203$ \306\307\310\211$\262\302\225S\262\202 \306\311\312\313\314\"\315\"!\310\211$\262\302\225\305Z\262\202 \207" [encode-coding-string raw-text 0 string-match "%\\(\\(%\\)\\|\\([[:xdigit:]][[:xdigit:]]\\)\\)" 2 replace-match "%" t byte-to-string string-to-number match-string 3 16] 8 (#$ . 167266)]) #@15 (fn STRING) (defalias 'epg--decode-percent-escape-as-utf-8 #[257 "\300\301!\302\"\207" [decode-coding-string epg--decode-percent-escape utf-8] 4 (#$ . 167689)]) #@15 (fn STRING) (defalias 'epg--decode-hexstring #[257 "\300\211\301\302#=\203$ \303\304\305\306\300\"\307\"!\310\211$\262\300\225S\262\202 \207" [0 string-match "[[:xdigit:]][[:xdigit:]]" replace-match string string-to-number match-string 16 t] 8 (#$ . 167859)]) #@15 (fn STRING) (defalias 'epg--decode-quotedstring #[257 "\300\301\302#\203= \303\224\203 \304\305\306\307$\262\300\225S\262\202 \310\224\203 \304\311\312\313\300\"\314\"!\306\211$\262\300\225\303Z\262\202 \207" [0 string-match "\\\\\\(\\([,=+<>#;\\\"]\\)\\|\\([[:xdigit:]][[:xdigit:]]\\)\\)" 2 replace-match "\\2" t nil 3 string string-to-number match-string 16] 8 (#$ . 168136)]) #@127 Parse STRING as LADPv3 Distinguished Names (RFC2253). The return value is an alist mapping from types to values. (fn STRING) (defalias 'epg-dn-from-string #[257 "\300G\301\211\211\211W\203 \302\303 #=\203 \300\225\262\302\304 #=\2037 \305\306\"\262\300\225\262\202N \302\307 #=\203N \305\306\"\262\300\225\262\204V \310\311!\210\302\312 #=\203r \300\225\262\313\305\300 \"!\262\202\247 \302\314 #=\203\216 \300\225\262\315\305\306 \"!\262\202\247 \302\316 #=\203\247 \300\225\262\313\305\300 \"!\262\211\203\312 @@;\203\276 B@D\240\210\202\344 B@B\240\210\202\344 @@:\203\327 \211@\237\240\210BB\262\301\262\301\262\302\317 #=\203 \300\225\262\306\224H\320=\262\202 \237\207" [0 nil string-match "[ \n ]*" "\\([0-9]+\\(\\.[0-9]+\\)*\\)[ \n ]*=[ \n ]*" match-string 1 "\\([0-9A-Za-z]+\\)[ \n ]*=[ \n ]*" error "Invalid type" "\\([^,=+<>#;\\\"]\\|\\\\.\\)+" epg--decode-quotedstring "#\\([[:xdigit:]]+\\)" epg--decode-hexstring "\"\\([^\\\"]\\|\\\\.\\)*\"" "[ \n ]*\\([,;+]\\)" 43] 12 (#$ . 168539)]) #@137 Convert ALIST returned by `epg-dn-from-string' to a human readable form. Type names are resolved using `epg-dn-type-alist'. (fn ALIST) (defalias 'epg-decode-dn #[257 "\300\301\302#\207" [mapconcat #[257 "\211@;\203! \301@\"\211\203 \302\303AA#\202 \302\303@A#\207\304\305!\306Q\207" [epg-dn-type-alist assoc format "%s=%s" "(" epg-decode-dn ")"] 6 "\n\n(fn RDN)"] ", "] 5 (#$ . 169628)]) (provide 'epg)
Close
