Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
23.1 /
lisp /
[ HOME SHELL ]
Name
Size
Permission
Action
calc
[ DIR ]
drwxr-xr-x
calendar
[ 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
international
[ DIR ]
drwxr-xr-x
language
[ 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
COPYING
34.32
KB
-rw-r--r--
README
538
B
-rw-r--r--
abbrev.elc
29.69
KB
-rw-r--r--
abbrevlist.elc
1.12
KB
-rw-r--r--
add-log.elc
35.21
KB
-rw-r--r--
align.elc
38.38
KB
-rw-r--r--
allout.elc
208.3
KB
-rw-r--r--
ansi-color.elc
16.3
KB
-rw-r--r--
apropos.elc
31.93
KB
-rw-r--r--
arc-mode.elc
54.72
KB
-rw-r--r--
array.elc
25.83
KB
-rw-r--r--
autoarg.elc
5.98
KB
-rw-r--r--
autoinsert.elc
12.01
KB
-rw-r--r--
autorevert.elc
18.25
KB
-rw-r--r--
avoid.elc
10.17
KB
-rw-r--r--
battery.elc
17.98
KB
-rw-r--r--
bindings.elc
39.04
KB
-rw-r--r--
bookmark.elc
55.9
KB
-rw-r--r--
bs.elc
48.34
KB
-rw-r--r--
buff-menu.elc
28
KB
-rw-r--r--
button.elc
13.92
KB
-rw-r--r--
calculator.elc
49.18
KB
-rw-r--r--
case-table.elc
4.42
KB
-rw-r--r--
cdl.elc
1.26
KB
-rw-r--r--
chistory.elc
5.75
KB
-rw-r--r--
cmuscheme.elc
17.43
KB
-rw-r--r--
comint.elc
100.97
KB
-rw-r--r--
compare-w.elc
10.98
KB
-rw-r--r--
complete.elc
23.62
KB
-rw-r--r--
completion.elc
45.06
KB
-rw-r--r--
composite.elc
29.39
KB
-rw-r--r--
cus-dep.elc
5.04
KB
-rw-r--r--
cus-edit.elc
129.67
KB
-rw-r--r--
cus-face.elc
10.46
KB
-rw-r--r--
cus-load.el
63.45
KB
-rw-r--r--
cus-start.elc
10.67
KB
-rw-r--r--
cus-theme.elc
13.7
KB
-rw-r--r--
custom.elc
36.46
KB
-rw-r--r--
cvs-status.elc
23
KB
-rw-r--r--
dabbrev.elc
23.08
KB
-rw-r--r--
delim-col.elc
8.41
KB
-rw-r--r--
delsel.elc
5.24
KB
-rw-r--r--
descr-text.elc
20.69
KB
-rw-r--r--
desktop.elc
34.52
KB
-rw-r--r--
dframe.elc
22.51
KB
-rw-r--r--
diff-mode.elc
55.58
KB
-rw-r--r--
diff.elc
5.51
KB
-rw-r--r--
dired-aux.elc
67.5
KB
-rw-r--r--
dired-x.elc
44.96
KB
-rw-r--r--
dired.elc
96.48
KB
-rw-r--r--
dirtrack.elc
7.39
KB
-rw-r--r--
disp-table.elc
8.33
KB
-rw-r--r--
dnd.elc
7.04
KB
-rw-r--r--
doc-view.elc
36.01
KB
-rw-r--r--
dos-fns.elc
5.53
KB
-rw-r--r--
dos-vars.elc
1.24
KB
-rw-r--r--
dos-w32.elc
11.12
KB
-rw-r--r--
double.elc
4.13
KB
-rw-r--r--
ebuff-menu.elc
9.11
KB
-rw-r--r--
echistory.elc
4.93
KB
-rw-r--r--
ediff-diff.elc
35.54
KB
-rw-r--r--
ediff-help.elc
11.47
KB
-rw-r--r--
ediff-hook.elc
5.89
KB
-rw-r--r--
ediff-init.elc
60.88
KB
-rw-r--r--
ediff-merg.elc
10.04
KB
-rw-r--r--
ediff-mult.elc
58.31
KB
-rw-r--r--
ediff-ptch.elc
18.63
KB
-rw-r--r--
ediff-util.elc
118.44
KB
-rw-r--r--
ediff-vers.elc
4.74
KB
-rw-r--r--
ediff-wind.elc
30.56
KB
-rw-r--r--
ediff.elc
36.28
KB
-rw-r--r--
edmacro.elc
21.45
KB
-rw-r--r--
ehelp.elc
11.03
KB
-rw-r--r--
electric.elc
2.81
KB
-rw-r--r--
elide-head.elc
2.8
KB
-rw-r--r--
emacs-lock.elc
2.77
KB
-rw-r--r--
emerge.elc
80.16
KB
-rw-r--r--
env.elc
5.69
KB
-rw-r--r--
epa-dired.elc
1.87
KB
-rw-r--r--
epa-file.elc
6.77
KB
-rw-r--r--
epa-hook.elc
4.28
KB
-rw-r--r--
epa-mail.elc
7.04
KB
-rw-r--r--
epa.elc
34.03
KB
-rw-r--r--
epg-config.elc
4.01
KB
-rw-r--r--
epg.elc
85.05
KB
-rw-r--r--
expand.elc
9.42
KB
-rw-r--r--
ezimage.elc
9.2
KB
-rw-r--r--
face-remap.elc
13.15
KB
-rw-r--r--
facemenu.elc
23.61
KB
-rw-r--r--
faces.elc
81.51
KB
-rw-r--r--
ffap.elc
46.14
KB
-rw-r--r--
filecache.elc
16.1
KB
-rw-r--r--
files.elc
175.25
KB
-rw-r--r--
filesets.elc
73.03
KB
-rw-r--r--
find-cmd.elc
4.94
KB
-rw-r--r--
find-dired.elc
7.4
KB
-rw-r--r--
find-file.elc
18.68
KB
-rw-r--r--
find-lisp.elc
7.42
KB
-rw-r--r--
finder-inf.el
93.47
KB
-rw-r--r--
finder.elc
12.11
KB
-rw-r--r--
flow-ctrl.elc
2.44
KB
-rw-r--r--
foldout.elc
7.6
KB
-rw-r--r--
follow.elc
37.11
KB
-rw-r--r--
font-core.elc
12.92
KB
-rw-r--r--
font-lock.elc
61.1
KB
-rw-r--r--
format-spec.elc
1.98
KB
-rw-r--r--
format.elc
27.73
KB
-rw-r--r--
forms-d2.el
3.13
KB
-rw-r--r--
forms-pass.el
742
B
-rw-r--r--
forms.elc
35.13
KB
-rw-r--r--
frame.elc
48.66
KB
-rw-r--r--
fringe.elc
8.01
KB
-rw-r--r--
generic-x.elc
44.25
KB
-rw-r--r--
gs.elc
3.93
KB
-rw-r--r--
help-at-pt.elc
11.27
KB
-rw-r--r--
help-fns.elc
21.77
KB
-rw-r--r--
help-macro.elc
4.37
KB
-rw-r--r--
help-mode.elc
19.38
KB
-rw-r--r--
help.elc
40.91
KB
-rw-r--r--
hex-util.elc
1.48
KB
-rw-r--r--
hexl.elc
32.06
KB
-rw-r--r--
hi-lock.elc
23.27
KB
-rw-r--r--
hilit-chg.elc
28.02
KB
-rw-r--r--
hippie-exp.elc
23.39
KB
-rw-r--r--
hl-line.elc
7.71
KB
-rw-r--r--
ibuf-ext.elc
54.62
KB
-rw-r--r--
ibuf-macs.elc
11.65
KB
-rw-r--r--
ibuffer.elc
91.96
KB
-rw-r--r--
icomplete.elc
10.36
KB
-rw-r--r--
ido.elc
110.93
KB
-rw-r--r--
ielm.elc
17.67
KB
-rw-r--r--
iimage.elc
4.06
KB
-rw-r--r--
image-dired.elc
82.24
KB
-rw-r--r--
image-file.elc
6.11
KB
-rw-r--r--
image-mode.elc
14.54
KB
-rw-r--r--
image.elc
17.09
KB
-rw-r--r--
imenu.elc
24.8
KB
-rw-r--r--
indent.elc
17
KB
-rw-r--r--
info-look.elc
26.13
KB
-rw-r--r--
info-xref.elc
7.04
KB
-rw-r--r--
info.elc
119.11
KB
-rw-r--r--
informat.elc
9.69
KB
-rw-r--r--
isearch.elc
76.23
KB
-rw-r--r--
isearchb.elc
4.92
KB
-rw-r--r--
iswitchb.elc
32.11
KB
-rw-r--r--
jit-lock.elc
17.93
KB
-rw-r--r--
jka-cmpr-hook.elc
11.67
KB
-rw-r--r--
jka-compr.elc
12.64
KB
-rw-r--r--
json.elc
13.04
KB
-rw-r--r--
kermit.elc
2.96
KB
-rw-r--r--
kmacro.elc
31.07
KB
-rw-r--r--
ldefs-boot.el
1.17
MB
-rw-r--r--
ledit.elc
4.74
KB
-rw-r--r--
linum.elc
9.56
KB
-rw-r--r--
loaddefs.el
1.17
MB
-rw-r--r--
loadhist.elc
8.65
KB
-rw-r--r--
loadup.el
12.67
KB
-rw-r--r--
locate.elc
17.81
KB
-rw-r--r--
log-edit.elc
24.93
KB
-rw-r--r--
log-view.elc
14.06
KB
-rw-r--r--
longlines.elc
14.94
KB
-rw-r--r--
lpr.elc
8.61
KB
-rw-r--r--
ls-lisp.elc
17.35
KB
-rw-r--r--
macros.elc
6.99
KB
-rw-r--r--
makesum.elc
2.16
KB
-rw-r--r--
man.elc
40.03
KB
-rw-r--r--
master.elc
4.52
KB
-rw-r--r--
mb-depth.elc
3.12
KB
-rw-r--r--
md4.elc
8.14
KB
-rw-r--r--
menu-bar.elc
67.01
KB
-rw-r--r--
midnight.elc
8.92
KB
-rw-r--r--
minibuf-eldef.elc
5.15
KB
-rw-r--r--
minibuffer.elc
42.75
KB
-rw-r--r--
misc.elc
3.67
KB
-rw-r--r--
misearch.elc
8.96
KB
-rw-r--r--
mouse-copy.elc
4.07
KB
-rw-r--r--
mouse-drag.elc
7.33
KB
-rw-r--r--
mouse-sel.elc
20.93
KB
-rw-r--r--
mouse.elc
60.03
KB
-rw-r--r--
msb.elc
27.27
KB
-rw-r--r--
mwheel.elc
9.41
KB
-rw-r--r--
newcomment.elc
32.76
KB
-rw-r--r--
novice.elc
4.75
KB
-rw-r--r--
outline.elc
34.54
KB
-rw-r--r--
paren.elc
6.43
KB
-rw-r--r--
password-cache.elc
3.58
KB
-rw-r--r--
patcomp.el
775
B
-rw-r--r--
paths.el
7.28
KB
-rw-r--r--
pcmpl-cvs.elc
6
KB
-rw-r--r--
pcmpl-gnu.elc
8.21
KB
-rw-r--r--
pcmpl-linux.elc
3.17
KB
-rw-r--r--
pcmpl-rpm.elc
7.5
KB
-rw-r--r--
pcmpl-unix.elc
5.44
KB
-rw-r--r--
pcomplete.elc
34.1
KB
-rw-r--r--
pcvs-defs.elc
16.27
KB
-rw-r--r--
pcvs-info.elc
25.83
KB
-rw-r--r--
pcvs-parse.elc
15.34
KB
-rw-r--r--
pcvs-util.elc
26.8
KB
-rw-r--r--
pcvs.elc
85.52
KB
-rw-r--r--
pgg-def.elc
2.78
KB
-rw-r--r--
pgg-gpg.elc
13.09
KB
-rw-r--r--
pgg-parse.elc
13.45
KB
-rw-r--r--
pgg-pgp.elc
7.64
KB
-rw-r--r--
pgg-pgp5.elc
7.68
KB
-rw-r--r--
pgg.elc
18.01
KB
-rw-r--r--
printing.elc
157.56
KB
-rw-r--r--
proced.elc
57.95
KB
-rw-r--r--
ps-bdf.elc
13.34
KB
-rw-r--r--
ps-def.elc
3.09
KB
-rw-r--r--
ps-mule.elc
36.17
KB
-rw-r--r--
ps-print.elc
145.59
KB
-rw-r--r--
ps-samp.elc
5.5
KB
-rw-r--r--
recentf.elc
49.04
KB
-rw-r--r--
rect.elc
10.79
KB
-rw-r--r--
register.elc
10.69
KB
-rw-r--r--
repeat.elc
6.05
KB
-rw-r--r--
replace.elc
55.02
KB
-rw-r--r--
reposition.elc
2.88
KB
-rw-r--r--
reveal.elc
6.61
KB
-rw-r--r--
rfn-eshadow.elc
7.12
KB
-rw-r--r--
rot13.elc
2.6
KB
-rw-r--r--
ruler-mode.elc
22.48
KB
-rw-r--r--
s-region.elc
3.3
KB
-rw-r--r--
savehist.elc
10.57
KB
-rw-r--r--
saveplace.elc
7.51
KB
-rw-r--r--
sb-image.elc
2.51
KB
-rw-r--r--
scroll-all.elc
4.05
KB
-rw-r--r--
scroll-bar.elc
11.47
KB
-rw-r--r--
scroll-lock.elc
4.64
KB
-rw-r--r--
select.elc
11.8
KB
-rw-r--r--
server.elc
39.79
KB
-rw-r--r--
ses.elc
87.39
KB
-rw-r--r--
sha1.elc
8
KB
-rw-r--r--
shadowfile.elc
22.61
KB
-rw-r--r--
shell.elc
34.08
KB
-rw-r--r--
simple.elc
196.35
KB
-rw-r--r--
skeleton.elc
15.78
KB
-rw-r--r--
smerge-mode.elc
33.61
KB
-rw-r--r--
sort.elc
12.94
KB
-rw-r--r--
soundex.elc
1.34
KB
-rw-r--r--
speedbar.elc
115.06
KB
-rw-r--r--
startup.elc
60.78
KB
-rw-r--r--
strokes.elc
44.11
KB
-rw-r--r--
subdirs.el
426
B
-rw-r--r--
subr.elc
113.48
KB
-rw-r--r--
t-mouse.elc
3.38
KB
-rw-r--r--
tabify.elc
2
KB
-rw-r--r--
talk.elc
3.19
KB
-rw-r--r--
tar-mode.elc
52.24
KB
-rw-r--r--
tempo.elc
18.63
KB
-rw-r--r--
term.elc
99.67
KB
-rw-r--r--
terminal.elc
31.36
KB
-rw-r--r--
thingatpt.elc
10.84
KB
-rw-r--r--
thumbs.elc
26.23
KB
-rw-r--r--
time-stamp.elc
21.03
KB
-rw-r--r--
time.elc
18.2
KB
-rw-r--r--
timezone.elc
10.99
KB
-rw-r--r--
tmm.elc
13.9
KB
-rw-r--r--
tool-bar.elc
9.69
KB
-rw-r--r--
tooltip.elc
12.35
KB
-rw-r--r--
tree-widget.elc
20.87
KB
-rw-r--r--
tutorial.elc
21.41
KB
-rw-r--r--
type-break.elc
35.61
KB
-rw-r--r--
uniquify.elc
19.91
KB
-rw-r--r--
userlock.elc
4.69
KB
-rw-r--r--
vc-annotate.elc
22.68
KB
-rw-r--r--
vc-arch.elc
17.58
KB
-rw-r--r--
vc-bzr.elc
26.84
KB
-rw-r--r--
vc-cvs.elc
32.19
KB
-rw-r--r--
vc-dav.elc
5.3
KB
-rw-r--r--
vc-dir.elc
39.5
KB
-rw-r--r--
vc-dispatcher.elc
14.61
KB
-rw-r--r--
vc-git.elc
32.75
KB
-rw-r--r--
vc-hg.elc
25.95
KB
-rw-r--r--
vc-hooks.elc
32.75
KB
-rw-r--r--
vc-mtn.elc
10.95
KB
-rw-r--r--
vc-rcs.elc
34.99
KB
-rw-r--r--
vc-sccs.elc
13.24
KB
-rw-r--r--
vc-svn.elc
20.57
KB
-rw-r--r--
vc.elc
59.4
KB
-rw-r--r--
vcursor.elc
23.44
KB
-rw-r--r--
version.el
3.37
KB
-rw-r--r--
view.elc
35.96
KB
-rw-r--r--
vt-control.elc
2.06
KB
-rw-r--r--
vt100-led.elc
1.53
KB
-rw-r--r--
w32-fns.elc
15.82
KB
-rw-r--r--
w32-vars.elc
5.53
KB
-rw-r--r--
wdired.elc
21.69
KB
-rw-r--r--
whitespace.elc
59.83
KB
-rw-r--r--
wid-browse.elc
7.89
KB
-rw-r--r--
wid-edit.elc
104.76
KB
-rw-r--r--
widget.elc
1.37
KB
-rw-r--r--
windmove.elc
9.57
KB
-rw-r--r--
window.elc
57.4
KB
-rw-r--r--
winner.elc
11.61
KB
-rw-r--r--
woman.elc
107.73
KB
-rw-r--r--
x-dnd.elc
19.35
KB
-rw-r--r--
xml.elc
18.38
KB
-rw-r--r--
xt-mouse.elc
7.43
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : epg.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:03:00 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/epg.el ;;; in Emacs version 23.1.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`epg.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'epg-config) #@36 GnuPG ID of your default identity. (defvar epg-user-id nil (#$ . 619)) #@42 An alist mapping from key ID to user ID. (defvar epg-user-id-alist nil (#$ . 696)) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\306B\302\306!\204- \303\306\304\"\210\307B\302\307!\204< \303\307\304\"\210\310B\302\310!\204K \303\310\304\"\210\311B\302\311!\204Z \303\311\304\"\210\312B\302\312!\204i \303\312\304\"\210\313B\314\315!\210\316B\317\320!\210\321B\322\323!\210\324B\325\326!\210\327B\330\331!\210\332B\333\334!\210\335B\336\337!\210\340B\341\342!\210\343B\344\345!\210\346B\347\304!\210\350B\302\350!\204\310 \303\350\351\"\210\352B\302\352!\204\327 \303\352\353\"\210\354B\302\354!\204\346 \303\354\355\"\210\356B\302\356!\204\365 \303\356\357\"\210\360B\302\360!\204\303\360\304\"\210\361\362\363\364#\207" [current-load-list epg-last-status default-boundp set-default nil epg-read-point epg-process-filter-running epg-pending-status-list epg-key-id epg-context epg-debug-buffer epg-cipher-algorithm-alist (lambda (#1=#:defconst-tmp-var) (defconst epg-cipher-algorithm-alist #1#)) ((0 . "NONE") (1 . "IDEA") (2 . "3DES") (3 . "CAST5") (4 . "BLOWFISH") (7 . "AES") (8 . "AES192") (9 . "AES256") (10 . "TWOFISH") (110 . "DUMMY")) epg-pubkey-algorithm-alist (lambda (#2=#:defconst-tmp-var) (defconst epg-pubkey-algorithm-alist #2#)) ((1 . "RSA") (2 . "RSA_E") (3 . "RSA_S") (16 . "ELGAMAL_E") (17 . "DSA") (20 . "ELGAMAL")) epg-digest-algorithm-alist (lambda (#3=#:defconst-tmp-var) (defconst epg-digest-algorithm-alist #3#)) ((1 . "MD5") (2 . "SHA1") (3 . "RMD160") (8 . "SHA256") (9 . "SHA384") (10 . "SHA512")) epg-compress-algorithm-alist (lambda (#4=#:defconst-tmp-var) (defconst epg-compress-algorithm-alist #4#)) ((0 . "NONE") (1 . "ZIP") (2 . "ZLIB") (3 . "BZIP2")) epg-invalid-recipients-reason-alist (lambda (#5=#:defconst-tmp-var) (defconst epg-invalid-recipients-reason-alist #5#)) ((0 . "No specific reason given") (1 . "Not Found") (2 . "Ambigious specification") (3 . "Wrong key usage") (4 . "Key revoked") (5 . "Key expired") (6 . "No CRL known") (7 . "CRL too old") (8 . "Policy mismatch") (9 . "Not a secret key") (10 . "Key not trusted")) epg-delete-problem-reason-alist (lambda (#6=#:defconst-tmp-var) (defconst epg-delete-problem-reason-alist #6#)) ((1 . "No such key") (2 . "Must delete secret key first") (3 . "Ambigious specification")) epg-import-ok-reason-alist (lambda (#7=#:defconst-tmp-var) (defconst epg-import-ok-reason-alist #7#)) ((0 . "Not actually changed") (1 . "Entirely new key") (2 . "New user IDs") (4 . "New signatures") (8 . "New subkeys") (16 . "Contains private key")) epg-import-problem-reason-alist (lambda (#8=#:defconst-tmp-var) (defconst epg-import-problem-reason-alist #8#)) ((0 . "No specific reason given") (1 . "Invalid Certificate") (2 . "Issuer Certificate missing") (3 . "Certificate Chain too long") (4 . "Error storing certificate")) epg-no-data-reason-alist (lambda (#9=#:defconst-tmp-var) (defconst epg-no-data-reason-alist #9#)) ((1 . "No armored data") (2 . "Expected a packet but did not found one") (3 . "Invalid packet found, this may indicate a non OpenPGP message") (4 . "Signature expected but not found")) epg-unexpected-reason-alist (lambda (#10=#:defconst-tmp-var) (defconst epg-unexpected-reason-alist #10#)) epg-key-validity-alist ((111 . unknown) (105 . invalid) (100 . disabled) (114 . revoked) (101 . expired) (45 . none) (113 . undefined) (110 . never) (109 . marginal) (102 . full) (117 . ultimate)) epg-key-capablity-alist ((101 . encrypt) (115 . sign) (99 . certify) (97 . authentication)) epg-new-signature-type-alist ((68 . detached) (67 . clear) (83 . normal)) epg-dn-type-alist (("1.2.840.113549.1.9.1" . "EMail") ("2.5.4.12" . "T") ("2.5.4.42" . "GN") ("2.5.4.4" . "SN") ("0.2.262.1.10.7.20" . "NameDistinguisher") ("2.5.4.16" . "ADDR") ("2.5.4.15" . "BC") ("2.5.4.13" . "D") ("2.5.4.17" . "PostalCode") ("2.5.4.65" . "Pseudo") ("2.5.4.5" . "SerialNumber")) epg-prompt-alist put epg-error error-conditions (epg-error error)] 4) #@31 Make a data object from FILE. (defalias 'epg-make-data-from-file #[(file) "\301\302\303\"B\207" [file epg-data vector nil] 4 (#$ . 4715)]) #@33 Make a data object from STRING. (defalias 'epg-make-data-from-string #[(string) "\301\302\303\"B\207" [string epg-data vector nil] 4 (#$ . 4861)]) #@26 Return the file of DATA. (defalias 'epg-data-file #[(data) "\242\301=\204 \302\303\304D\"\210A\305H\207" [data epg-data signal wrong-type-argument epg-data-p 0] 4 (#$ . 5015)]) #@28 Return the string of DATA. (defalias 'epg-data-string #[(data) "\242\301=\204 \302\303\304D\"\210A\305H\207" [data epg-data signal wrong-type-argument epg-data-p 1] 4 (#$ . 5202)]) #@26 Return a context object. (defalias 'epg-make-context #[(&optional protocol armor textmode include-certs cipher-algorithm digest-algorithm compress-algorithm) "\306\307\206 \310 \n \f \311C\312\211\211\211\211\211\211&B\207" [protocol armor textmode include-certs cipher-algorithm digest-algorithm epg-context vector OpenPGP epg-passphrase-callback-function nil compress-algorithm] 17 (#$ . 5393)]) #@42 Return the protocol used within CONTEXT. (defalias 'epg-context-protocol #[(context) "\242\301=\204 \302\303\304D\"\210A\305H\207" [context epg-context signal wrong-type-argument epg-context-p 0] 4 (#$ . 5802)]) #@60 Return t if the output should be ASCII armored in CONTEXT. (defalias 'epg-context-armor #[(context) "\242\301=\204 \302\303\304D\"\210A\305H\207" [context epg-context signal wrong-type-argument epg-context-p 1] 4 (#$ . 6024)]) #@60 Return t if canonical text mode should be used in CONTEXT. (defalias 'epg-context-textmode #[(context) "\242\301=\204 \302\303\304D\"\210A\305H\207" [context epg-context signal wrong-type-argument epg-context-p 2] 4 (#$ . 6261)]) #@78 Return how many certificates should be included in an S/MIME signed message. (defalias 'epg-context-include-certs #[(context) "\242\301=\204 \302\303\304D\"\210A\305H\207" [context epg-context signal wrong-type-argument epg-context-p 3] 4 (#$ . 6501)]) #@41 Return the cipher algorithm in CONTEXT. (defalias 'epg-context-cipher-algorithm #[(context) "\242\301=\204 \302\303\304D\"\210A\305H\207" [context epg-context signal wrong-type-argument epg-context-p 4] 4 (#$ . 6764)]) #@41 Return the digest algorithm in CONTEXT. (defalias 'epg-context-digest-algorithm #[(context) "\242\301=\204 \302\303\304D\"\210A\305H\207" [context epg-context signal wrong-type-argument epg-context-p 5] 4 (#$ . 6993)]) #@43 Return the compress algorithm in CONTEXT. (defalias 'epg-context-compress-algorithm #[(context) "\242\301=\204 \302\303\304D\"\210A\305H\207" [context epg-context signal wrong-type-argument epg-context-p 6] 4 (#$ . 7222)]) #@47 Return the function used to query passphrase. (defalias 'epg-context-passphrase-callback #[(context) "\242\301=\204 \302\303\304D\"\210A\305H\207" [context epg-context signal wrong-type-argument epg-context-p 7] 4 (#$ . 7455)]) #@52 Return the function which handles progress update. (defalias 'epg-context-progress-callback #[(context) "\242\301=\204 \302\303\304D\"\210A\305H\207" [context epg-context signal wrong-type-argument epg-context-p 8] 4 (#$ . 7693)]) #@40 Return the list of key-id for signing. (defalias 'epg-context-signers #[(context) "\242\301=\204 \302\303\304D\"\210A\305H\207" [context epg-context signal wrong-type-argument epg-context-p 9] 4 (#$ . 7934)]) #@43 Return the list of notations for signing. (defalias 'epg-context-sig-notations #[(context) "\242\301=\204 \302\303\304D\"\210A\305H\207" [context epg-context signal wrong-type-argument epg-context-p 10] 4 (#$ . 8153)]) #@89 Return the process object of `epg-gpg-program'. This function is for internal use only. (defalias 'epg-context-process #[(context) "\242\301=\204 \302\303\304D\"\210A\305H\207" [context epg-context signal wrong-type-argument epg-context-p 11] 4 (#$ . 8382)]) #@86 Return the output file of `epg-gpg-program'. This function is for internal use only. (defalias 'epg-context-output-file #[(context) "\242\301=\204 \302\303\304D\"\210A\305H\207" [context epg-context signal wrong-type-argument epg-context-p 12] 4 (#$ . 8651)]) #@60 Return the result of the previous cryptographic operation. (defalias 'epg-context-result #[(context) "\242\301=\204 \302\303\304D\"\210A\305H\207" [context epg-context signal wrong-type-argument epg-context-p 13] 4 (#$ . 8921)]) #@57 Return the name of the current cryptographic operation. (defalias 'epg-context-operation #[(context) "\242\301=\204 \302\303\304D\"\210A\305H\207" [context epg-context signal wrong-type-argument epg-context-p 14] 4 (#$ . 9160)]) #@39 Set the protocol used within CONTEXT. (defalias 'epg-context-set-protocol #[(context protocol) "\242\302=\204 \303\304\305D\"\210A\306 I\207" [context protocol epg-context signal wrong-type-argument epg-context-p 0] 4 (#$ . 9399)]) #@59 Specify if the output should be ASCII armored in CONTEXT. (defalias 'epg-context-set-armor #[(context armor) "\242\302=\204 \303\304\305D\"\210A\306 I\207" [context armor epg-context signal wrong-type-argument epg-context-p 1] 4 (#$ . 9641)]) #@59 Specify if canonical text mode should be used in CONTEXT. (defalias 'epg-context-set-textmode #[(context textmode) "\242\302=\204 \303\304\305D\"\210A\306 I\207" [context textmode epg-context signal wrong-type-argument epg-context-p 2] 4 (#$ . 9894)]) #@75 Set how many certificates should be included in an S/MIME signed message. (defalias 'epg-context-set-include-certs #[(context include-certs) "\242\302=\204 \303\304\305D\"\210A\306 I\207" [context include-certs epg-context signal wrong-type-argument epg-context-p 3] 4 (#$ . 10156)]) #@38 Set the cipher algorithm in CONTEXT. (defalias 'epg-context-set-cipher-algorithm #[(context cipher-algorithm) "\242\302=\204 \303\304\305D\"\210A\306 I\207" [context cipher-algorithm epg-context signal wrong-type-argument epg-context-p 4] 4 (#$ . 10450)]) #@38 Set the digest algorithm in CONTEXT. (defalias 'epg-context-set-digest-algorithm #[(context digest-algorithm) "\242\302=\204 \303\304\305D\"\210A\306 I\207" [context digest-algorithm epg-context signal wrong-type-argument epg-context-p 5] 4 (#$ . 10716)]) #@40 Set the compress algorithm in CONTEXT. (defalias 'epg-context-set-compress-algorithm #[(context compress-algorithm) "\242\302=\204 \303\304\305D\"\210A\306 I\207" [context compress-algorithm epg-context signal wrong-type-argument epg-context-p 6] 4 (#$ . 10982)]) #@44 Set the function used to query passphrase. (defalias 'epg-context-set-passphrase-callback #[(context passphrase-callback) "\242\302=\204 \303\304\305D\"\210A\306 :\203 \202 CI\207" [context passphrase-callback epg-context signal wrong-type-argument epg-context-p 7] 4 (#$ . 11256)]) #@128 Set the function which handles progress update. If optional argument HANDBACK is specified, it is passed to PROGRESS-CALLBACK. (defalias 'epg-context-set-progress-callback #[(context progress-callback) "\242\302=\204 \303\304\305D\"\210A\306 :\203 \202 CI\207" [context progress-callback epg-context signal wrong-type-argument epg-context-p 8] 4 (#$ . 11554)]) #@37 Set the list of key-id for signing. (defalias 'epg-context-set-signers #[(context signers) "\242\302=\204 \303\304\305D\"\210A\306 I\207" [context signers epg-context signal wrong-type-argument epg-context-p 9] 4 (#$ . 11929)]) #@40 Set the list of notations for signing. (defalias 'epg-context-set-sig-notations #[(context notations) "\242\302=\204 \303\304\305D\"\210A\306 I\207" [context notations epg-context signal wrong-type-argument epg-context-p 10] 4 (#$ . 12167)]) #@86 Set the process object of `epg-gpg-program'. This function is for internal use only. (defalias 'epg-context-set-process #[(context process) "\242\302=\204 \303\304\305D\"\210A\306 I\207" [context process epg-context signal wrong-type-argument epg-context-p 11] 4 (#$ . 12419)]) #@83 Set the output file of `epg-gpg-program'. This function is for internal use only. (defalias 'epg-context-set-output-file #[(context output-file) "\242\302=\204 \303\304\305D\"\210A\306 I\207" [context output-file epg-context signal wrong-type-argument epg-context-p 12] 4 (#$ . 12707)]) #@57 Set the result of the previous cryptographic operation. (defalias 'epg-context-set-result #[(context result) "\242\302=\204 \303\304\305D\"\210A\306 I\207" [context result epg-context signal wrong-type-argument epg-context-p 13] 4 (#$ . 13004)]) #@54 Set the name of the current cryptographic operation. (defalias 'epg-context-set-operation #[(context operation) "\242\302=\204 \303\304\305D\"\210A\306 I\207" [context operation epg-context signal wrong-type-argument epg-context-p 14] 4 (#$ . 13260)]) #@28 Return a signature object. (defalias 'epg-make-signature #[(status &optional key-id) "\302\303 \304\211\211\211\211\211\211\211\211& B\207" [status key-id epg-signature vector nil] 13 (#$ . 13522)]) #@38 Return the status code of SIGNATURE. (defalias 'epg-signature-status #[(signature) "\242\301=\204 \302\303\304D\"\210A\305H\207" [signature epg-signature signal wrong-type-argument epg-signature-p 0] 4 (#$ . 13728)]) #@33 Return the key-id of SIGNATURE. (defalias 'epg-signature-key-id #[(signature) "\242\301=\204 \302\303\304D\"\210A\305H\207" [signature epg-signature signal wrong-type-argument epg-signature-p 1] 4 (#$ . 13955)]) #@35 Return the validity of SIGNATURE. (defalias 'epg-signature-validity #[(signature) "\242\301=\204 \302\303\304D\"\210A\305H\207" [signature epg-signature signal wrong-type-argument epg-signature-p 2] 4 (#$ . 14177)]) #@38 Return the fingerprint of SIGNATURE. (defalias 'epg-signature-fingerprint #[(signature) "\242\301=\204 \302\303\304D\"\210A\305H\207" [signature epg-signature signal wrong-type-argument epg-signature-p 3] 4 (#$ . 14403)]) #@40 Return the creation time of SIGNATURE. (defalias 'epg-signature-creation-time #[(signature) "\242\301=\204 \302\303\304D\"\210A\305H\207" [signature epg-signature signal wrong-type-argument epg-signature-p 4] 4 (#$ . 14635)]) #@42 Return the expiration time of SIGNATURE. (defalias 'epg-signature-expiration-time #[(signature) "\242\301=\204 \302\303\304D\"\210A\305H\207" [signature epg-signature signal wrong-type-argument epg-signature-p 5] 4 (#$ . 14871)]) #@47 Return the public key algorithm of SIGNATURE. (defalias 'epg-signature-pubkey-algorithm #[(signature) "\242\301=\204 \302\303\304D\"\210A\305H\207" [signature epg-signature signal wrong-type-argument epg-signature-p 6] 4 (#$ . 15111)]) #@43 Return the digest algorithm of SIGNATURE. (defalias 'epg-signature-digest-algorithm #[(signature) "\242\301=\204 \302\303\304D\"\210A\305H\207" [signature epg-signature signal wrong-type-argument epg-signature-p 7] 4 (#$ . 15357)]) #@32 Return the class of SIGNATURE. (defalias 'epg-signature-class #[(signature) "\242\301=\204 \302\303\304D\"\210A\305H\207" [signature epg-signature signal wrong-type-argument epg-signature-p 8] 4 (#$ . 15599)]) #@34 Return the version of SIGNATURE. (defalias 'epg-signature-version #[(signature) "\242\301=\204 \302\303\304D\"\210A\305H\207" [signature epg-signature signal wrong-type-argument epg-signature-p 9] 4 (#$ . 15819)]) #@44 Return the list of notations of SIGNATURE. (defalias 'epg-sig-notations #[(signature) "\242\301=\204 \302\303\304D\"\210A\305H\207" [signature epg-signature signal wrong-type-argument epg-signature-p 10] 4 (#$ . 16043)]) #@35 Set the status code of SIGNATURE. (defalias 'epg-signature-set-status #[(signature status) "\242\302=\204 \303\304\305D\"\210A\306 I\207" [signature status epg-signature signal wrong-type-argument epg-signature-p 0] 4 (#$ . 16274)]) #@30 Set the key-id of SIGNATURE. (defalias 'epg-signature-set-key-id #[(signature key-id) "\242\302=\204 \303\304\305D\"\210A\306 I\207" [signature key-id epg-signature signal wrong-type-argument epg-signature-p 1] 4 (#$ . 16517)]) #@32 Set the validity of SIGNATURE. (defalias 'epg-signature-set-validity #[(signature validity) "\242\302=\204 \303\304\305D\"\210A\306 I\207" [signature validity epg-signature signal wrong-type-argument epg-signature-p 2] 4 (#$ . 16755)]) #@35 Set the fingerprint of SIGNATURE. (defalias 'epg-signature-set-fingerprint #[(signature fingerprint) "\242\302=\204 \303\304\305D\"\210A\306 I\207" [signature fingerprint epg-signature signal wrong-type-argument epg-signature-p 3] 4 (#$ . 17001)]) #@37 Set the creation time of SIGNATURE. (defalias 'epg-signature-set-creation-time #[(signature creation-time) "\242\302=\204 \303\304\305D\"\210A\306 I\207" [signature creation-time epg-signature signal wrong-type-argument epg-signature-p 4] 4 (#$ . 17259)]) #@39 Set the expiration time of SIGNATURE. (defalias 'epg-signature-set-expiration-time #[(signature expiration-time) "\242\302=\204 \303\304\305D\"\210A\306 I\207" [signature expiration-time epg-signature signal wrong-type-argument epg-signature-p 5] 4 (#$ . 17525)]) #@44 Set the public key algorithm of SIGNATURE. (defalias 'epg-signature-set-pubkey-algorithm #[(signature pubkey-algorithm) "\242\302=\204 \303\304\305D\"\210A\306 I\207" [signature pubkey-algorithm epg-signature signal wrong-type-argument epg-signature-p 6] 4 (#$ . 17799)]) #@40 Set the digest algorithm of SIGNATURE. (defalias 'epg-signature-set-digest-algorithm #[(signature digest-algorithm) "\242\302=\204 \303\304\305D\"\210A\306 I\207" [signature digest-algorithm epg-signature signal wrong-type-argument epg-signature-p 7] 4 (#$ . 18081)]) #@29 Set the class of SIGNATURE. (defalias 'epg-signature-set-class #[(signature class) "\242\302=\204 \303\304\305D\"\210A\306 I\207" [signature class epg-signature signal wrong-type-argument epg-signature-p 8] 4 (#$ . 18359)]) #@31 Set the version of SIGNATURE. (defalias 'epg-signature-set-version #[(signature version) "\242\302=\204 \303\304\305D\"\210A\306 I\207" [signature version epg-signature signal wrong-type-argument epg-signature-p 9] 4 (#$ . 18593)]) #@41 Set the list of notations of SIGNATURE. (defalias 'epg-signature-set-notations #[(signature notations) "\242\302=\204 \303\304\305D\"\210A\306 I\207" [signature notations epg-signature signal wrong-type-argument epg-signature-p 10] 4 (#$ . 18835)]) #@32 Return a new signature object. (defalias 'epg-make-new-signature #[(type pubkey-algorithm digest-algorithm class creation-time fingerprint) "\306\307 \n \f &B\207" [type pubkey-algorithm digest-algorithm class creation-time fingerprint epg-new-signature vector] 8 (#$ . 19094)]) #@35 Return the type of NEW-SIGNATURE. (defalias 'epg-new-signature-type #[(new-signature) "\242\301=\204 \302\303\304D\"\210A\305H\207" [new-signature epg-new-signature signal wrong-type-argument epg-new-signature-p 0] 4 (#$ . 19381)]) #@51 Return the public key algorithm of NEW-SIGNATURE. (defalias 'epg-new-signature-pubkey-algorithm #[(new-signature) "\242\301=\204 \302\303\304D\"\210A\305H\207" [new-signature epg-new-signature signal wrong-type-argument epg-new-signature-p 1] 4 (#$ . 19623)]) #@47 Return the digest algorithm of NEW-SIGNATURE. (defalias 'epg-new-signature-digest-algorithm #[(new-signature) "\242\301=\204 \302\303\304D\"\210A\305H\207" [new-signature epg-new-signature signal wrong-type-argument epg-new-signature-p 2] 4 (#$ . 19893)]) #@36 Return the class of NEW-SIGNATURE. (defalias 'epg-new-signature-class #[(new-signature) "\242\301=\204 \302\303\304D\"\210A\305H\207" [new-signature epg-new-signature signal wrong-type-argument epg-new-signature-p 3] 4 (#$ . 20159)]) #@44 Return the creation time of NEW-SIGNATURE. (defalias 'epg-new-signature-creation-time #[(new-signature) "\242\301=\204 \302\303\304D\"\210A\305H\207" [new-signature epg-new-signature signal wrong-type-argument epg-new-signature-p 4] 4 (#$ . 20403)]) #@42 Return the fingerprint of NEW-SIGNATURE. (defalias 'epg-new-signature-fingerprint #[(new-signature) "\242\301=\204 \302\303\304D\"\210A\305H\207" [new-signature epg-new-signature signal wrong-type-argument epg-new-signature-p 5] 4 (#$ . 20663)]) #@22 Return a key object. (defalias 'epg-make-key #[(owner-trust) "\301\302\303\211#B\207" [owner-trust epg-key vector nil] 5 (#$ . 20919)]) #@32 Return the owner trust of KEY. (defalias 'epg-key-owner-trust #[(key) "\242\301=\204 \302\303\304D\"\210A\305H\207" [key epg-key signal wrong-type-argument epg-key-p 0] 4 (#$ . 21062)]) #@33 Return the sub key list of KEY. (defalias 'epg-key-sub-key-list #[(key) "\242\301=\204 \302\303\304D\"\210A\305H\207" [key epg-key signal wrong-type-argument epg-key-p 1] 4 (#$ . 21258)]) #@33 Return the user ID list of KEY. (defalias 'epg-key-user-id-list #[(key) "\242\301=\204 \302\303\304D\"\210A\305H\207" [key epg-key signal wrong-type-argument epg-key-p 2] 4 (#$ . 21456)]) #@30 Set the sub key list of KEY. (defalias 'epg-key-set-sub-key-list #[(key sub-key-list) "\242\302=\204 \303\304\305D\"\210A\306 I\207" [key sub-key-list epg-key signal wrong-type-argument epg-key-p 1] 4 (#$ . 21654)]) #@30 Set the user ID list of KEY. (defalias 'epg-key-set-user-id-list #[(key user-id-list) "\242\302=\204 \303\304\305D\"\210A\306 I\207" [key user-id-list epg-key signal wrong-type-argument epg-key-p 2] 4 (#$ . 21880)]) #@26 Return a sub key object. (defalias 'epg-make-sub-key #[(validity capability secret-p algorithm length id creation-time expiration-time) "\306\307 \n \f \n\310& B\207" [validity capability secret-p algorithm length id epg-sub-key vector nil creation-time expiration-time] 11 (#$ . 22106)]) #@33 Return the validity of SUB-KEY. (defalias 'epg-sub-key-validity #[(sub-key) "\242\301=\204 \302\303\304D\"\210A\305H\207" [sub-key epg-sub-key signal wrong-type-argument epg-sub-key-p 0] 4 (#$ . 22405)]) #@35 Return the capability of SUB-KEY. (defalias 'epg-sub-key-capability #[(sub-key) "\242\301=\204 \302\303\304D\"\210A\305H\207" [sub-key epg-sub-key signal wrong-type-argument epg-sub-key-p 1] 4 (#$ . 22619)]) #@44 Return non-nil if SUB-KEY is a secret key. (defalias 'epg-sub-key-secret-p #[(sub-key) "\242\301=\204 \302\303\304D\"\210A\305H\207" [sub-key epg-sub-key signal wrong-type-argument epg-sub-key-p 2] 4 (#$ . 22837)]) #@34 Return the algorithm of SUB-KEY. (defalias 'epg-sub-key-algorithm #[(sub-key) "\242\301=\204 \302\303\304D\"\210A\305H\207" [sub-key epg-sub-key signal wrong-type-argument epg-sub-key-p 3] 4 (#$ . 23062)]) #@31 Return the length of SUB-KEY. (defalias 'epg-sub-key-length #[(sub-key) "\242\301=\204 \302\303\304D\"\210A\305H\207" [sub-key epg-sub-key signal wrong-type-argument epg-sub-key-p 4] 4 (#$ . 23278)]) #@27 Return the ID of SUB-KEY. (defalias 'epg-sub-key-id #[(sub-key) "\242\301=\204 \302\303\304D\"\210A\305H\207" [sub-key epg-sub-key signal wrong-type-argument epg-sub-key-p 5] 4 (#$ . 23488)]) #@38 Return the creation time of SUB-KEY. (defalias 'epg-sub-key-creation-time #[(sub-key) "\242\301=\204 \302\303\304D\"\210A\305H\207" [sub-key epg-sub-key signal wrong-type-argument epg-sub-key-p 6] 4 (#$ . 23690)]) #@40 Return the expiration time of SUB-KEY. (defalias 'epg-sub-key-expiration-time #[(sub-key) "\242\301=\204 \302\303\304D\"\210A\305H\207" [sub-key epg-sub-key signal wrong-type-argument epg-sub-key-p 7] 4 (#$ . 23914)]) #@36 Return the fingerprint of SUB-KEY. (defalias 'epg-sub-key-fingerprint #[(sub-key) "\242\301=\204 \302\303\304D\"\210A\305H\207" [sub-key epg-sub-key signal wrong-type-argument epg-sub-key-p 8] 4 (#$ . 24142)]) #@73 Set the fingerprint of SUB-KEY. This function is for internal use only. (defalias 'epg-sub-key-set-fingerprint #[(sub-key fingerprint) "\242\302=\204 \303\304\305D\"\210A\306 I\207" [sub-key fingerprint epg-sub-key signal wrong-type-argument epg-sub-key-p 8] 4 (#$ . 24362)]) #@26 Return a user ID object. (defalias 'epg-make-user-id #[(validity string) "\302\303 \304#B\207" [validity string epg-user-id vector nil] 5 (#$ . 24648)]) #@33 Return the validity of USER-ID. (defalias 'epg-user-id-validity #[(user-id) "\242\301=\204 \302\303\304D\"\210A\305H\207" [user-id epg-user-id signal wrong-type-argument epg-user-id-p 0] 4 (#$ . 24808)]) #@29 Return the name of USER-ID. (defalias 'epg-user-id-string #[(user-id) "\242\301=\204 \302\303\304D\"\210A\305H\207" [user-id epg-user-id signal wrong-type-argument epg-user-id-p 1] 4 (#$ . 25022)]) #@39 Return the signature list of USER-ID. (defalias 'epg-user-id-signature-list #[(user-id) "\242\301=\204 \302\303\304D\"\210A\305H\207" [user-id epg-user-id signal wrong-type-argument epg-user-id-p 2] 4 (#$ . 25230)]) #@36 Set the signature list of USER-ID. (defalias 'epg-user-id-set-signature-list #[(user-id signature-list) "\242\302=\204 \303\304\305D\"\210A\306 I\207" [user-id signature-list epg-user-id signal wrong-type-argument epg-user-id-p 2] 4 (#$ . 25456)]) #@32 Return a key signature object. (defalias 'epg-make-key-signature #[(validity pubkey-algorithm key-id creation-time expiration-time user-id class exportable-p) "\306\307 \n \f &B\207" [validity pubkey-algorithm key-id creation-time expiration-time user-id epg-key-signature vector class exportable-p] 10 (#$ . 25714)]) #@39 Return the validity of KEY-SIGNATURE. (defalias 'epg-key-signature-validity #[(key-signature) "\242\301=\204 \302\303\304D\"\210A\305H\207" [key-signature epg-key-signature signal wrong-type-argument epg-key-signature-p 0] 4 (#$ . 26044)]) #@51 Return the public key algorithm of KEY-SIGNATURE. (defalias 'epg-key-signature-pubkey-algorithm #[(key-signature) "\242\301=\204 \302\303\304D\"\210A\305H\207" [key-signature epg-key-signature signal wrong-type-argument epg-key-signature-p 1] 4 (#$ . 26294)]) #@37 Return the key-id of KEY-SIGNATURE. (defalias 'epg-key-signature-key-id #[(key-signature) "\242\301=\204 \302\303\304D\"\210A\305H\207" [key-signature epg-key-signature signal wrong-type-argument epg-key-signature-p 2] 4 (#$ . 26564)]) #@44 Return the creation time of KEY-SIGNATURE. (defalias 'epg-key-signature-creation-time #[(key-signature) "\242\301=\204 \302\303\304D\"\210A\305H\207" [key-signature epg-key-signature signal wrong-type-argument epg-key-signature-p 3] 4 (#$ . 26810)]) #@46 Return the expiration time of KEY-SIGNATURE. (defalias 'epg-key-signature-expiration-time #[(key-signature) "\242\301=\204 \302\303\304D\"\210A\305H\207" [key-signature epg-key-signature signal wrong-type-argument epg-key-signature-p 4] 4 (#$ . 27070)]) #@38 Return the user-id of KEY-SIGNATURE. (defalias 'epg-key-signature-user-id #[(key-signature) "\242\301=\204 \302\303\304D\"\210A\305H\207" [key-signature epg-key-signature signal wrong-type-argument epg-key-signature-p 5] 4 (#$ . 27334)]) #@36 Return the class of KEY-SIGNATURE. (defalias 'epg-key-signature-class #[(key-signature) "\242\301=\204 \302\303\304D\"\210A\305H\207" [key-signature epg-key-signature signal wrong-type-argument epg-key-signature-p 6] 4 (#$ . 27582)]) #@42 Return t if KEY-SIGNATURE is exportable. (defalias 'epg-key-signature-exportable-p #[(key-signature) "\242\301=\204 \302\303\304D\"\210A\305H\207" [key-signature epg-key-signature signal wrong-type-argument epg-key-signature-p 7] 4 (#$ . 27826)]) #@27 Return a notation object. (defalias 'epg-make-sig-notation #[(name value &optional human-readable critical) "\304\305 \n $B\207" [name value human-readable critical epg-sig-notation vector] 6 (#$ . 28083)]) #@34 Return the name of SIG-NOTATION. (defalias 'epg-sig-notation-name #[(sig-notation) "\242\301=\204 \302\303\304D\"\210A\305H\207" [sig-notation epg-sig-notation signal wrong-type-argument epg-sig-notation-p 0] 4 (#$ . 28297)]) #@35 Return the value of SIG-NOTATION. (defalias 'epg-sig-notation-value #[(sig-notation) "\242\301=\204 \302\303\304D\"\210A\305H\207" [sig-notation epg-sig-notation signal wrong-type-argument epg-sig-notation-p 1] 4 (#$ . 28533)]) #@44 Return the human-readable of SIG-NOTATION. (defalias 'epg-sig-notation-human-readable #[(sig-notation) "\242\301=\204 \302\303\304D\"\210A\305H\207" [sig-notation epg-sig-notation signal wrong-type-argument epg-sig-notation-p 2] 4 (#$ . 28771)]) #@38 Return the critical of SIG-NOTATION. (defalias 'epg-sig-notation-critical #[(sig-notation) "\242\301=\204 \302\303\304D\"\210A\305H\207" [sig-notation epg-sig-notation signal wrong-type-argument epg-sig-notation-p 3] 4 (#$ . 29027)]) #@32 Set the value of SIG-NOTATION. (defalias 'epg-sig-notation-set-value #[(sig-notation value) "\242\302=\204 \303\304\305D\"\210A\306 I\207" [sig-notation value epg-sig-notation signal wrong-type-argument epg-sig-notation-p 1] 4 (#$ . 29271)]) #@33 Return an import status object. (defalias 'epg-make-import-status #[(fingerprint &optional reason new user-id signature sub-key secret) "\306\307 \n \f &B\207" [fingerprint reason new user-id signature sub-key epg-import-status vector secret] 9 (#$ . 29523)]) #@56 Return the fingerprint of the key that was considered. (defalias 'epg-import-status-fingerprint #[(import-status) "\242\301=\204 \302\303\304D\"\210A\305H\207" [import-status epg-import-status signal wrong-type-argument epg-import-status-p 0] 4 (#$ . 29793)]) #@44 Return the reason code for import failure. (defalias 'epg-import-status-reason #[(import-status) "\242\301=\204 \302\303\304D\"\210A\305H\207" [import-status epg-import-status signal wrong-type-argument epg-import-status-p 1] 4 (#$ . 30063)]) #@39 Return t if the imported key was new. (defalias 'epg-import-status-new #[(import-status) "\242\301=\204 \302\303\304D\"\210A\305H\207" [import-status epg-import-status signal wrong-type-argument epg-import-status-p 2] 4 (#$ . 30316)]) #@54 Return t if the imported key contained new user IDs. (defalias 'epg-import-status-user-id #[(import-status) "\242\301=\204 \302\303\304D\"\210A\305H\207" [import-status epg-import-status signal wrong-type-argument epg-import-status-p 3] 4 (#$ . 30561)]) #@56 Return t if the imported key contained new signatures. (defalias 'epg-import-status-signature #[(import-status) "\242\301=\204 \302\303\304D\"\210A\305H\207" [import-status epg-import-status signal wrong-type-argument epg-import-status-p 4] 4 (#$ . 30825)]) #@54 Return t if the imported key contained new sub keys. (defalias 'epg-import-status-sub-key #[(import-status) "\242\301=\204 \302\303\304D\"\210A\305H\207" [import-status epg-import-status signal wrong-type-argument epg-import-status-p 5] 4 (#$ . 31093)]) #@54 Return t if the imported key contained a secret key. (defalias 'epg-import-status-secret #[(import-status) "\242\301=\204 \302\303\304D\"\210A\305H\207" [import-status epg-import-status signal wrong-type-argument epg-import-status-p 6] 4 (#$ . 31357)]) #@33 Return an import result object. (defalias 'epg-make-import-result #[(considered no-user-id imported imported-rsa unchanged new-user-ids new-sub-keys new-signatures new-revocations secret-read secret-imported secret-unchanged not-imported imports) "\306\307 \n \f \n \f &B\207" [considered no-user-id imported imported-rsa unchanged new-user-ids epg-import-result vector new-sub-keys new-signatures new-revocations secret-read secret-imported secret-unchanged not-imported imports] 16 (#$ . 31620)]) #@45 Return the total number of considered keys. (defalias 'epg-import-result-considered #[(import-result) "\242\301=\204 \302\303\304D\"\210A\305H\207" [import-result epg-import-result signal wrong-type-argument epg-import-result-p 0] 4 (#$ . 32139)]) #@44 Return the number of keys without user ID. (defalias 'epg-import-result-no-user-id #[(import-result) "\242\301=\204 \302\303\304D\"\210A\305H\207" [import-result epg-import-result signal wrong-type-argument epg-import-result-p 1] 4 (#$ . 32397)]) #@37 Return the number of imported keys. (defalias 'epg-import-result-imported #[(import-result) "\242\301=\204 \302\303\304D\"\210A\305H\207" [import-result epg-import-result signal wrong-type-argument epg-import-result-p 2] 4 (#$ . 32654)]) #@41 Return the number of imported RSA keys. (defalias 'epg-import-result-imported-rsa #[(import-result) "\242\301=\204 \302\303\304D\"\210A\305H\207" [import-result epg-import-result signal wrong-type-argument epg-import-result-p 3] 4 (#$ . 32902)]) #@38 Return the number of unchanged keys. (defalias 'epg-import-result-unchanged #[(import-result) "\242\301=\204 \302\303\304D\"\210A\305H\207" [import-result epg-import-result signal wrong-type-argument epg-import-result-p 4] 4 (#$ . 33158)]) #@36 Return the number of new user IDs. (defalias 'epg-import-result-new-user-ids #[(import-result) "\242\301=\204 \302\303\304D\"\210A\305H\207" [import-result epg-import-result signal wrong-type-argument epg-import-result-p 5] 4 (#$ . 33408)]) #@36 Return the number of new sub keys. (defalias 'epg-import-result-new-sub-keys #[(import-result) "\242\301=\204 \302\303\304D\"\210A\305H\207" [import-result epg-import-result signal wrong-type-argument epg-import-result-p 6] 4 (#$ . 33659)]) #@38 Return the number of new signatures. (defalias 'epg-import-result-new-signatures #[(import-result) "\242\301=\204 \302\303\304D\"\210A\305H\207" [import-result epg-import-result signal wrong-type-argument epg-import-result-p 7] 4 (#$ . 33910)]) #@39 Return the number of new revocations. (defalias 'epg-import-result-new-revocations #[(import-result) "\242\301=\204 \302\303\304D\"\210A\305H\207" [import-result epg-import-result signal wrong-type-argument epg-import-result-p 8] 4 (#$ . 34165)]) #@46 Return the total number of secret keys read. (defalias 'epg-import-result-secret-read #[(import-result) "\242\301=\204 \302\303\304D\"\210A\305H\207" [import-result epg-import-result signal wrong-type-argument epg-import-result-p 9] 4 (#$ . 34422)]) #@44 Return the number of imported secret keys. (defalias 'epg-import-result-secret-imported #[(import-result) "\242\301=\204 \302\303\304D\"\210A\305H\207" [import-result epg-import-result signal wrong-type-argument epg-import-result-p 10] 4 (#$ . 34682)]) #@45 Return the number of unchanged secret keys. (defalias 'epg-import-result-secret-unchanged #[(import-result) "\242\301=\204 \302\303\304D\"\210A\305H\207" [import-result epg-import-result signal wrong-type-argument epg-import-result-p 11] 4 (#$ . 34945)]) #@41 Return the number of keys not imported. (defalias 'epg-import-result-not-imported #[(import-result) "\242\301=\204 \302\303\304D\"\210A\305H\207" [import-result epg-import-result signal wrong-type-argument epg-import-result-p 12] 4 (#$ . 35210)]) #@49 Return the list of `epg-import-status' objects. (defalias 'epg-import-result-imports #[(import-result) "\242\301=\204 \302\303\304D\"\210A\305H\207" [import-result epg-import-result signal wrong-type-argument epg-import-result-p 13] 4 (#$ . 35467)]) #@52 Return the result of CONTEXT associated with NAME. (defalias 'epg-context-result-for #[(context name) "\302 !\236A\207" [name context epg-context-result] 3 (#$ . 35727)]) #@58 Set the result of CONTEXT associated with NAME to VALUE. (defalias 'epg-context-set-result-for #[(context name value) "\305!\n \236\211\203 \f\241\202 \306\n\fB B\"*\207" [context result name entry value epg-context-result epg-context-set-result] 5 (#$ . 35905)]) #@47 Convert SIGNATURE to a human readable string. (defalias 'epg-signature-to-string #[(signature) "\305\306! \"A\307!\310!\311=\203 \312\202Q \310!\313=\203$ \314\202Q \310!\315=\2030 \316\202Q \310!\317=\203< \320\202Q \310!\321=\203H \322\202Q \310!\323=\205Q \324\306!\n\203i \325\n;\203b \n\202e \326\n!P\202j \327\330!\203y \331\332\330!\"\202z \327\333!\203\211 \334\335\333!\"\202\212 \327 \203\236 \336 \f\236A\206\232 \331\337 \"P\202\237 \327\260*\207" [signature epg-user-id-alist user-id pubkey-algorithm epg-pubkey-algorithm-alist assoc epg-signature-key-id epg-signature-pubkey-algorithm epg-signature-status good "Good signature from " bad "Bad signature from " expired "Expired signature from " expired-key "Signature made by expired key " revoked-key "Signature made by revoked key " no-pubkey "No public key for " " " epg-decode-dn "" epg-signature-validity format " (trust %s)" epg-signature-creation-time format-time-string " created at %Y-%m-%dT%T%z" " using " "(unknown algorithm %d)"] 9 (#$ . 36182)]) #@51 Convert VERIFY-RESULT to a human readable string. (defalias 'epg-verify-result-to-string #[(verify-result) "\301\302\303#\207" [verify-result mapconcat epg-signature-to-string "\n"] 4 (#$ . 37227)]) #@51 Convert NEW-SIGNATURE to a human readable string. (defalias 'epg-new-signature-to-string #[(new-signature) "\303!\304=\203\f \305\202 \303!\306=\203 \307\202 \310\311! \236A\312\313!\n\236A\314\315\316\317!\"\320!\260\207" [new-signature epg-pubkey-algorithm-alist epg-digest-algorithm-alist epg-new-signature-type detached "Detached signature " clear "Cleartext signature " "Signature " epg-new-signature-pubkey-algorithm "/" epg-new-signature-digest-algorithm " " format "%02X " epg-new-signature-class epg-new-signature-fingerprint] 9 (#$ . 37433)]) #@51 Convert IMPORT-RESULT to a human readable string. (defalias 'epg-import-result-to-string #[(import-result) "\301\302\303!\"\304!\305V\205 \301\306\304!\"\307!\305V\205\" \301\310\307!\"\311!\305V\205@ \301\312\311!\"\313!\305V\205> \301\314\313!\"\315Q\316!\305V\205N \301\317\316!\"\320!\305V\205\\ \301\321\320!\"\322!\305V\205j \301\323\322!\"\324!\305V\205x \301\325\324!\"\326!\305V\205\206 \301\327\326!\"\330!\305V\205\224 \301\331\330!\"\332!\305V\205\242 \301\333\332!\"\334!\305V\205\260 \301\335\334!\"\260\f\207" [import-result format "Total number processed: %d\n" epg-import-result-considered epg-import-result-not-imported 0 " skipped new keys: %d\n" epg-import-result-no-user-id " w/o user IDs: %d\n" epg-import-result-imported " imported: %d" epg-import-result-imported-rsa " (RSA: %d)" "\n" epg-import-result-unchanged " unchanged: %d\n" epg-import-result-new-user-ids " new user IDs: %d\n" epg-import-result-new-sub-keys " new subkeys: %d\n" epg-import-result-new-signatures " new signatures: %d\n" epg-import-result-new-revocations " new key revocations: %d\n" epg-import-result-secret-read " secret keys read: %d\n" epg-import-result-secret-imported " secret keys imported: %d\n" epg-import-result-secret-unchanged " secret keys unchanged: %d\n"] 15 (#$ . 38002)]) #@58 Start `epg-gpg-program' in a subprocess with given ARGS. (defalias 'epg--start #[(context args) "\306!\203! \307\306!!\310=\203! \311\312\313!\314=\203 \202 \n\"\210\315\316\317\320\321F\313!\314=?\205> \322\323\324\325!\2069 \326\"\205> \327\313!\314=?\205N \330!\205N \331 \205U \332 D\313!\314=?\205_ \333\334!\205f \335\336!\205m \337\340!\205x \341\340!D\f& \342\211 ?\343 @\344 A\345\346! B\343 CD\203\277 \212E\204\240 \345\347!EEq\210db\210\350\351\313!\314=\203\265 \202\266 \n\352\353\f\354##c\210)rBq\210\355\356!\203\316 \356\343!\210\357\360!\210\3430\357\361!\210e1\357\362!\210\3432\357\363!\210\3433\357\364!\210\3434\357\365!\2105)\366\216\367\370!\210\371\372\373B\313!\314=\203 \202\n\f%C)\374C\375\"\210\376C\".\207" [context epg-gpgsm-program epg-gpg-program epg-gpg-home-directory args coding-system-for-write epg-context-process process-status run error "%s is already running in this context" epg-context-protocol CMS append "--no-tty" "--status-fd" "1" "--yes" string-match ":" getenv "GPG_AGENT_INFO" "" ("--use-agent") epg-context-progress-callback ("--enable-progress-filter") "--homedir" ("--command-fd" "0") epg-context-armor ("--armor") epg-context-textmode ("--textmode") epg-context-output-file "--output" binary nil default-file-modes generate-new-buffer " *epg*" " *epg-debug*" format "%s %s\n" mapconcat identity " " fboundp set-buffer-multibyte make-local-variable epg-last-status epg-read-point epg-process-filter-running epg-pending-status-list epg-key-id epg-context ((set-default-file-modes orig-mode)) set-default-file-modes 448 apply start-process "epg" set-process-filter epg--process-filter epg-context-set-process coding-system-for-read process-connection-type orig-mode buffer process epg-debug epg-debug-buffer] 12 (#$ . 39394)]) (defalias 'epg--process-filter #[(process input) "\203 \212 \204 \306\307! q\210db\210\nc\210)\310\311 !!\205\211 \212\311 !q\210db\210\nc\210\f?\205\210 \312\216\313 b\210\314 \210\315\316!\205\207 \315\317!\203 \320\321! \320\322! \323\324P! \235\203c \325\203w \326!\203w \"\210B +\325y\210`\202: ))\207" [epg-debug epg-debug-buffer input process epg-process-filter-running epg-read-point generate-new-buffer " *epg-debug*" buffer-live-p process-buffer ((byte-code "\301\211\207" [epg-process-filter-running nil] 2)) t beginning-of-line looking-at ".*\n" "\\[GNUPG:] \\([A-Z_]+\\) ?\\(.*\\)" match-string 1 2 intern-soft "epg--status-" nil fboundp status string symbol epg-pending-status-list epg-context epg-last-status] 3]) #@66 Read the output file CONTEXT and return the content as a string. (defalias 'epg-read-output #[(context) "\303\304!rq\210\305\216\306\307!\203 \307\310!\210\311\312 !!\205' \313\314\312 !!\210\315 )+\207" [#1=#:temp-buffer context coding-system-for-read generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) fboundp set-buffer-multibyte nil file-exists-p epg-context-output-file binary insert-file-contents buffer-string] 3 (#$ . 41983)]) #@52 Wait until one of elements in STATUS-LIST arrives. (defalias 'epg-wait-for-status #[(context status-list) "r\303\304!!q\210 \305\304!!\306=\203\" \n\203\" \307\304!\310\"\210\202\n \n\205+ \311\312\313#)\207" [context status-list epg-pending-status-list process-buffer epg-context-process process-status run accept-process-output 1 epg-context-set-result-for error exit] 4 (#$ . 42487)]) #@53 Wait until the `epg-gpg-program' process completes. (defalias 'epg-wait-for-completion #[(context) "\301\302!!\303=\203 \304\302!\305\"\210\202 \306\307!\207" [context process-status epg-context-process run accept-process-output 1 sleep-for 0.1] 3 (#$ . 42886)]) #@20 Reset the CONTEXT. (defalias 'epg-reset #[(context) "\301!\203 \302\303\301!!!\203 \304\303\301!!!\210\305\306\"\207" [context epg-context-process buffer-live-p process-buffer kill-buffer epg-context-set-process nil] 4 (#$ . 43159)]) #@36 Delete the output file of CONTEXT. (defalias 'epg-delete-output-file #[(context) "\301!\205 \302\301!!\205 \303\301!!\207" [context epg-context-output-file file-exists-p delete-file] 3 (#$ . 43405)]) (byte-code "\300\301!\203 \302\303\301\"\210\202 \302\303\304\"\210\300\207" [fboundp decode-coding-string defalias epg--decode-coding-string identity] 3) (defalias 'epg--status-USERID_HINT #[(context string) "\305\306\"\205- \307\310\"\307\311\"\312 \" \313\314\315\217\210\f\203% \f\n\241\202, \nB B\211+\207" [string key-id user-id epg-user-id-alist entry string-match "\\`\\([^ ]+\\) \\(.*\\)" match-string 1 2 assoc nil (byte-code "\301\302!\303\"\301\207" [user-id epg--decode-coding-string epg--decode-percent-escape utf-8] 3) ((error))] 3]) (defalias 'epg--status-NEED_PASSPHRASE #[(context string) "\302\303\"\205 \304\305\"\211\207" [string epg-key-id string-match "\\`\\([^ ]+\\)" match-string 1] 3]) (defalias 'epg--status-NEED_PASSPHRASE_SYM #[(context string) "\301\211\207" [epg-key-id SYM] 2]) (defalias 'epg--status-NEED_PASSPHRASE_PIN #[(context string) "\301\211\207" [epg-key-id PIN] 2]) (byte-code "\300\301!\203 \302\303\301\"\210\202 \302\303\304\"\210\300\305!\203! \302\306\305\"\210\202& \302\306\307\"\210\300\207" [fboundp clear-string defalias epg--clear-string #[(string) "\301\302\"\207" [string fillarray 0] 3] encode-coding-string epg--encode-coding-string identity] 3) (defalias 'epg--status-GET_HIDDEN #[(context string) "\205% \306\307 \"\205% \310\n!\204 \311\312!\210\313\211\211\211 \314\216\313\315\316\217-\207" [epg-key-id string context encoded-passphrase-with-new-line passphrase-with-new-line passphrase string-match "\\`passphrase\\." epg-context-passphrase-callback error "passphrase-callback not set" nil ((byte-code "\203 \303!\210 \203 \303 !\210\n\203 \303\n!\210\303\207" [passphrase passphrase-with-new-line encoded-passphrase-with-new-line epg--clear-string] 2)) (byte-code "\306!@ \306!A#\211\2059 \n\307P\310\n!\210\311\f\203/ \312 \313\f\314\"\"\310 !\210\311\2023 \311\315\316! \"\207" [context epg-key-id passphrase passphrase-with-new-line epg-passphrase-coding-system encoded-passphrase-with-new-line epg-context-passphrase-callback "\n" epg--clear-string nil epg--encode-coding-string coding-system-change-eol-conversion unix process-send-string epg-context-process] 6) ((quit (byte-code "\301\302\303\304\302\"B#\210\305\306!!\207" [context epg-context-set-result-for error (quit) epg-context-result-for delete-process epg-context-process] 7))) inhibit-quit] 4]) (defalias 'epg--prompt-GET_BOOL #[(context string) "\303 \"\304\n\203 \nA\202 \305P!)\207" [string epg-prompt-alist entry assoc y-or-n-p "? "] 3]) (defalias 'epg--prompt-GET_BOOL-untrusted_key\.override #[(context string) "\305@\306\232\2031 \307\310A\"\2031 \311\312A\"\311\313A\"\314 \"\211 \203( \fA\315\316 \n#+\2022 \317!\207" [epg-last-status key-id user-id epg-user-id-alist entry y-or-n-p "USERID_HINT" string-match "\\`\\([^ ]+\\) \\(.*\\)" match-string 1 2 assoc format "Untrusted key %s %s. Use anyway? " "Use untrusted key anyway? "] 6]) (defalias 'epg--status-GET_BOOL #[(context string) "\301\211\302\303\217)\207" [inhibit-quit nil (byte-code "\302\303P!\206 \304 \"\203 \305\306 !\307\"\207\305\306 !\310\"\207" [string context intern-soft "epg--prompt-GET_BOOL-" epg--prompt-GET_BOOL process-send-string epg-context-process "y\n" "n\n"] 3) ((quit (byte-code "\301\302\303\304\302\"B#\210\305\306!!\207" [context epg-context-set-result-for error (quit) epg-context-result-for delete-process epg-context-process] 7)))] 4]) (defalias 'epg--status-GET_LINE #[(context string) "\304 \"\305\305\306\307\217*\207" [string epg-prompt-alist inhibit-quit entry assoc nil (byte-code "\303\304!\305 \203 A\202 \n\306P!\307P\"\207" [context entry string process-send-string epg-context-process read-string ": " "\n"] 5) ((quit (byte-code "\301\302\303\304\302\"B#\210\305\306!!\207" [context epg-context-set-result-for error (quit) epg-context-result-for delete-process epg-context-process] 7)))] 3]) (defalias 'epg--status-*SIG #[(context status string) "\306\307\"\203= \310\311\"\310\312\"\313 \" \314 \315\316 \"\317 \315\"B#\210\320\321\322\217\210\f\2034 \f\n\241\202; \nB B\211+\207\314 \315\316!\317 \315\"B#\207" [string key-id user-id epg-user-id-alist entry context string-match "\\`\\([^ ]+\\) \\(.*\\)" match-string 1 2 assoc epg-context-set-result-for verify epg-make-signature epg-context-result-for nil (byte-code "\302!\303=\203 \304 !\202 \305\306 !\307\"\302\207" [context user-id epg-context-protocol CMS epg-dn-from-string epg--decode-coding-string epg--decode-percent-escape utf-8] 3) ((error)) status] 7]) (defalias 'epg--status-GOODSIG #[(context string) "\302\303 #\207" [context string epg--status-*SIG good] 4]) (defalias 'epg--status-EXPSIG #[(context string) "\302\303 #\207" [context string epg--status-*SIG expired] 4]) (defalias 'epg--status-EXPKEYSIG #[(context string) "\302\303 #\207" [context string epg--status-*SIG expired-key] 4]) (defalias 'epg--status-REVKEYSIG #[(context string) "\302\303 #\207" [context string epg--status-*SIG revoked-key] 4]) (defalias 'epg--status-BADSIG #[(context string) "\302\303 #\207" [context string epg--status-*SIG bad] 4]) (defalias 'epg--status-NO_PUBKEY #[(context string) "\303\304\"@\211\205 \305 !\306=\205 \307 !\n\232\205 \310 \311\")\207" [context signature string epg-context-result-for verify epg-signature-status error epg-signature-key-id epg-signature-set-status no-pubkey] 4]) (defalias 'epg--time-from-seconds #[(seconds) "\302\303P!\304 \305\245!\304\306 \305\"!)B\207" [seconds number-seconds string-to-number ".0" floor 65536 mod] 5]) (defalias 'epg--status-ERRSIG #[(context string) "\303\304\"\205G \305\306!\307\n\310 \311\n\310\"B#\210\312 \313\314\"\"\210\315 \316\313\317\"!\"\210\320 \316\313\321\"!\"\210\322 \316\313\323\"\324\"\"\210\325 \326\313\327\"!\")\207" [string signature context string-match "\\`\\([^ ]+\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9A-Fa-f][0-9A-Fa-f]\\) \\([^ ]+\\) \\([0-9]+\\)" epg-make-signature error epg-context-set-result-for verify epg-context-result-for epg-signature-set-key-id match-string 1 epg-signature-set-pubkey-algorithm string-to-number 2 epg-signature-set-digest-algorithm 3 epg-signature-set-class 4 16 epg-signature-set-creation-time epg--time-from-seconds 5] 7]) (defalias 'epg--status-VALIDSIG #[(context string) "\303\304\"@\211\205f \305 !\306=\205f \307\310\n\"\205f \311 \312\313\n\"\"\210\314 \315\312\316\n\"!\"\210\312\317\n\"\320\232\204> \321 \315\312\317\n\"!\"\210\322 \323\312\324\n\"!\"\210\325 \323\312\326\n\"!\"\210\327 \323\312\330\n\"!\"\210\331 \323\312\332\n\"\333\"\")\207" [context signature string epg-context-result-for verify epg-signature-status good string-match "\\`\\([^ ]+\\) [^ ]+ \\([^ ]+\\) \\([^ ]+\\) \\([0-9]+\\) [^ ]+ \\([0-9]+\\) \\([0-9]+\\) \\([0-9A-Fa-f][0-9A-Fa-f]\\) \\(.*\\)" epg-signature-set-fingerprint match-string 1 epg-signature-set-creation-time epg--time-from-seconds 2 3 "0" epg-signature-set-expiration-time epg-signature-set-version string-to-number 4 epg-signature-set-pubkey-algorithm 5 epg-signature-set-digest-algorithm 6 epg-signature-set-class 7 16] 7]) (defalias 'epg--status-TRUST_UNDEFINED #[(context string) "\302\303\"@\211\205 \304 !\305=\205 \306 \307\")\207" [context signature epg-context-result-for verify epg-signature-status good epg-signature-set-validity undefined] 4]) (defalias 'epg--status-TRUST_NEVER #[(context string) "\302\303\"@\211\205 \304 !\305=\205 \306 \307\")\207" [context signature epg-context-result-for verify epg-signature-status good epg-signature-set-validity never] 4]) (defalias 'epg--status-TRUST_MARGINAL #[(context string) "\302\303\"@\211\205 \304 !\305=\205 \306 \305\")\207" [context signature epg-context-result-for verify epg-signature-status marginal epg-signature-set-validity] 4]) (defalias 'epg--status-TRUST_FULLY #[(context string) "\302\303\"@\211\205 \304 !\305=\205 \306 \307\")\207" [context signature epg-context-result-for verify epg-signature-status good epg-signature-set-validity full] 4]) (defalias 'epg--status-TRUST_ULTIMATE #[(context string) "\302\303\"@\211\205 \304 !\305=\205 \306 \307\")\207" [context signature epg-context-result-for verify epg-signature-status good epg-signature-set-validity ultimate] 4]) (defalias 'epg--status-NOTATION_NAME #[(context string) "\303\304\"@\211\205 \305 \306\n\307\310\307$\311 !B\")\207" [context signature string epg-context-result-for verify epg-signature-set-notations epg-make-sig-notation nil t epg-sig-notations] 8]) (defalias 'epg--status-NOTATION_DATA #[(context string) "\304\305\"@\306\211\205 \307\n!@\211\205 \310 \"*\207" [context notation signature string epg-context-result-for verify nil epg-sig-notations epg-sig-notation-set-value] 4]) (defalias 'epg--status-POLICY_URL #[(context string) "\303\304\"@\211\205 \305 \306\307\n\310\307$\311 !B\")\207" [context signature string epg-context-result-for verify epg-signature-set-notations epg-make-sig-notation nil t epg-sig-notations] 8]) (defalias 'epg--status-PROGRESS #[(context string) "\302!\205, \303\304 \"\205, \302!@\305\306 \"\305\307 \"\310\305\311 \"!\310\305\312 \"!\302!A&\207" [context string epg-context-progress-callback string-match "\\`\\([^ ]+\\) \\([^ ]\\) \\([0-9]+\\) \\([0-9]+\\)" match-string 1 2 string-to-number 3 4] 9]) (defalias 'epg--status-ENC_TO #[(context string) "\302\303\"\205! \304 \305\306\307\"\310\306\311\"!\310\306\312\"!E\313 \305\"B#\207" [string context string-match "\\`\\([0-9A-Za-z]+\\) \\([0-9]+\\) \\([0-9]+\\)" epg-context-set-result-for encrypted-to match-string 1 string-to-number 2 3 epg-context-result-for] 9]) (defalias 'epg--status-DECRYPTION_FAILED #[(context string) "\301\302\303#\207" [context epg-context-set-result-for decryption-failed t] 4]) (defalias 'epg--status-DECRYPTION_OKAY #[(context string) "\301\302\303#\207" [context epg-context-set-result-for decryption-okay t] 4]) (defalias 'epg--status-NODATA #[(context string) "\302\303\304\305 !B\306\303\"B#\207" [context string epg-context-set-result-for error no-data string-to-number epg-context-result-for] 7]) (defalias 'epg--status-UNEXPECTED #[(context string) "\302\303\304\305 !B\306\303\"B#\207" [context string epg-context-set-result-for error unexpected string-to-number epg-context-result-for] 7]) (defalias 'epg--status-KEYEXPIRED #[(context string) "\302\303\304\305\306 !BD\307\303\"B#\207" [context string epg-context-set-result-for error key-expired expiration-time epg--time-from-seconds epg-context-result-for] 7]) (defalias 'epg--status-KEYREVOKED #[(context string) "\301\302\303\304\302\"B#\207" [context epg-context-set-result-for error (key-revoked) epg-context-result-for] 7]) (defalias 'epg--status-BADARMOR #[(context string) "\301\302\303\304\302\"B#\207" [context epg-context-set-result-for error (bad-armor) epg-context-result-for] 7]) (defalias 'epg--status-INV_RECP #[(context string) "\302\303\"\205 \304 \305\306\307\310\311\312\"!B\313\311\314\"BE\315 \305\"B#\207" [string context string-match "\\`\\([0-9]+\\) \\(.*\\)" epg-context-set-result-for error invalid-recipient reason string-to-number match-string 1 requested-recipient 2 epg-context-result-for] 9]) (defalias 'epg--status-NO_RECP #[(context string) "\301\302\303\304\302\"B#\207" [context epg-context-set-result-for error (no-recipients) epg-context-result-for] 7]) (defalias 'epg--status-DELETE_PROBLEM #[(context string) "\302\303\"\205 \304 \305\306\307\310\311\"!B\312 \305\"B#\207" [string context string-match "\\`\\([0-9]+\\)" epg-context-set-result-for error delete-problem string-to-number match-string 1 epg-context-result-for] 8]) (defalias 'epg--status-SIG_CREATED #[(context string) "\303\304\"\205: \305 \306\307\310\311\"\312H\n\236A\313\310\314\"!\313\310\315\"!\313\310\316\"\317\"\320\310\321\"!\312\225\322O&\323 \306\"B#\207" [string context epg-new-signature-type-alist string-match "\\`\\([DCS]\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9A-Fa-F][0-9A-Fa-F]\\) \\(.*\\) " epg-context-set-result-for sign epg-make-new-signature match-string 1 0 string-to-number 2 3 4 16 epg--time-from-seconds 5 nil epg-context-result-for] 12]) (defalias 'epg--status-KEY_CREATED #[(context string) "\302\303\"\205 \304 \305\306\307\310\311\"!B\312\310\313\"BD\314 \305\"B#\207" [string context string-match "\\`\\([BPS]\\) \\([^ ]+\\)" epg-context-set-result-for generate-key type string-to-char match-string 1 fingerprint 2 epg-context-result-for] 8]) (defalias 'epg--status-KEY_NOT_CREATED #[(context string) "\301\302\303\304\302\"B#\207" [context epg-context-set-result-for error (key-not-created) epg-context-result-for] 7]) (defalias 'epg--status-IMPORTED #[(context string) "\305\306\"\205- \307\310\"\307\311\"\312 \" \313\314\315\217\210\f\203% \f\n\241\202, \nB B\211+\207" [string key-id user-id epg-user-id-alist entry string-match "\\`\\([^ ]+\\) \\(.*\\)" match-string 1 2 assoc nil (byte-code "\301\302!\303\"\301\207" [user-id epg--decode-coding-string epg--decode-percent-escape utf-8] 3) ((error))] 3]) (defalias 'epg--status-IMPORT_OK #[(context string) "\303\304\"\205H \305\306\307\"!\310\n\311\312\313\224\205 \306\314\"\315\316 \307\"\317U?\316 \313\"\317U?\316 \320\"\317U?\316 \321\"\317U?\316 \322\"\317U?&\323\n\311\"B#)\207" [string reason context string-match "\\`\\([0-9]+\\)\\( \\(.+\\)\\)?" string-to-number match-string 1 epg-context-set-result-for import-status epg-make-import-status 2 3 nil logand 0 4 8 16 epg-context-result-for] 13]) (defalias 'epg--status-IMPORT_PROBLEM #[(context string) "\302\303\"\205! \304 \305\306\307\224\205 \310\311\"\312\310\313\"!\"\314 \305\"B#\207" [string context string-match "\\`\\([0-9]+\\)\\( \\(.+\\)\\)?" epg-context-set-result-for import-status epg-make-import-status 2 match-string 3 string-to-number 1 epg-context-result-for] 9]) (defalias 'epg--status-IMPORT_RES #[(context string) "\302\303\"\205f \304 \305\306\307\310\311\"!\307\310\312\"!\307\310\313\"!\307\310\314\"!\307\310\315\"!\307\310\316\"!\307\310\317\"!\307\310\320\"!\307\310\321\"!\307\310\322\"!\307\310\323\"!\307\310\324\"!\307\310\325\"!\326 \327\"&#\210\304 \327\330#\207" [string context string-match "\\`\\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\)" epg-context-set-result-for import epg-make-import-result string-to-number match-string 1 2 3 4 5 6 7 8 9 10 11 12 13 epg-context-result-for import-status nil] 20]) (defalias 'epg-passphrase-callback-function #[(context key-id handback) "\304=\203 \305\306\307 !\310=\"\207\305\311=\203 \312\2021 \313\n\"\211\203, \314\315 A#\2020 \314\316\")!\207" [key-id context epg-user-id-alist entry SYM read-passwd "Passphrase for symmetric encryption: " epg-context-operation encrypt PIN "Passphrase for PIN: " assoc format "Passphrase for %s %s: " "Passphrase for %s: "] 6]) (make-obsolete 'epg-passphrase-callback-function 'epa-passphrase-callback-function) (defalias 'epg--list-keys-1 #[(context name mode) "\306\205 \307D\310\311 !\312=?\205 \313#\n\314>\203 \315\202) \n\316>\203( \317\202) \320\321\322\211\211\211 \" # $ %&\203c &<\204I &C&&\203l \306%$&@D\"%&A\211&\202K \306%$C\"%\323\324! 'r'q\210\325\216\326\327\311 !\312=\203\207 (\202\211 )\322\330\322D\322%&\210eb\210\331\332\322\330#\203\314 \333\334\322\"\"B\"\335\336!\336\211 \337\340 #=\203\226 \336\225\"@\f\335\341 \"I\210\fT\202\257 \"\237.\n\207" [epg-gpg-home-directory context mode index field string append "--homedir" ("--with-colons" "--no-greeting" "--batch" "--with-fingerprint" "--with-fingerprint") epg-context-protocol CMS ("--fixed-list-mode") (t secret) "--list-secret-keys" (nil public) "--list-keys" "--list-sigs" binary nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) apply call-process t re-search-forward "^[a-z][a-z][a-z]:.*" make-vector 15 match-string 0 string-match "\\([^:]+\\)?:" 1 keys coding-system-for-read list-keys-option args name #1# epg-gpgsm-program epg-gpg-program] 8]) (defalias 'epg--make-sub-key-1 #[(line) "\302\303H\205 \304\303H! \236A\305\306\307\310\311H\"\"\312H\313\235\314\315H!\314\316H!\317H\320\321H!\322H\205: \320\322H!&\207" [line epg-key-validity-alist epg-make-sub-key 1 string-to-char delq nil mapcar #[(char) " \236A\207" [char epg-key-capablity-alist] 2] 11 0 ("sec" "ssb") string-to-number 3 2 4 epg--time-from-seconds 5 6] 11]) #@324 Return a list of epg-key objects matched with NAME. If MODE is nil or 'public, only public keyring should be searched. If MODE is t or 'secret, only secret keyring should be searched. Otherwise, only public keyring should be searched and the key signatures should be included. NAME is either a string or a list of strings. (defalias 'epg-list-keys #[(context &optional name mode) "\306 \n#\307\211\211\211\211\211 2 3 4\211 5\203_5@\310H\311\235\203[ 5@\310H\312\2353\3135@\314H\205A \3155@\314H!6\236A!4B4\3164@\3175@!\3204@!B\"\210\202V5@\310H\321\235\203y \3164@\3175@!\3204@!B\"\210\202V5@\310H\322\232\203\331 \3235@\324H!\310\325\326 \f#\203\243 \327\330\331\211 $\310\225T\202\215 \307\332\333\217\210\3344@\3355@\336H\205\300 \3155@\336H!6\236A3\203\314 \307\337\340\217\202\315 \"\3414@!B\"\210\202V5@\310H\342\232\203\364 \343\3204@!@5@\324H\"\210\202V5@\310H\344\232\203V\345\3414@!@\3465@\336H\205\3155@\336H!6\236A\3475@\350H!5@\351H\3525@\353H!\3525@\354H!5@\324H\3475@\355H\356\"5@\355H\357H\360=&\361\3414@!@!B\"\2105A\2115\204 4\237\2114\2112\203\241\3162@\3202@!\237\"\210\3342@\3412@!\237\"\211\203\230\345 @\361 @!\237\"\210 A\211\204\2072A\2112\204k4.\207" [context name mode string index pointer-1 epg--list-keys-1 nil 0 ("pub" "sec" "crt" "crs") ("crt" "crs") epg-make-key 8 string-to-char epg-key-set-sub-key-list epg--make-sub-key-1 epg-key-sub-key-list ("sub" "ssb") "uid" copy-sequence 9 string-match "\"" replace-match "\\\"" t (byte-code "\301\302\303\303Q!@\304\"\301\207" [string epg--decode-coding-string read-from-string "\"" utf-8] 5) ((error (byte-code "@\302H\302\207" [lines string 9] 2))) epg-key-set-user-id-list epg-make-user-id 1 (epg-dn-from-string string) ((error string)) epg-key-user-id-list "fpr" epg-sub-key-set-fingerprint "sig" epg-user-id-set-signature-list epg-make-key-signature string-to-number 3 4 epg--time-from-seconds 5 6 10 16 2 120 epg-user-id-signature-list pointer cert keys lines epg-key-validity-alist] 13 (#$ . 60180)]) (byte-code "\300\301!\203 \302\303\301\"\210\202 \302\303\304\"\210\300\207" [fboundp make-temp-file defalias epg--make-temp-file #[(prefix) "\305\211\306\n \"\307\216\305 \305\310\311\217\204 \312 \313\"\210\314 \315P!\316\317\305\305\320%\210\312\321\"\210\305\322\323\217\204, \f,\207" [tempfile tempdir prefix temporary-file-directory file nil expand-file-name ((byte-code "\203 \302!\203 \303!\210 \203 \304 !\203 \305 !\210\302\207" [tempfile tempdir file-exists-p delete-file file-directory-p delete-directory] 2)) (byte-code "\302\303!\304P!\305 !\207" [prefix tempdir make-temp-name file-name-directory "DIR" make-directory] 3) ((file-already-exists t)) set-file-modes 448 make-temp-name "/EMU" write-region "" silent 384 (byte-code "\303!\304\n \"\207" [prefix file tempfile make-temp-name add-name-to-file] 3) ((file-already-exists t))] 6 "Create a temporary file.\nThe returned file name (created by appending some random characters at the end\nof PREFIX, and expanding against `temporary-file-directory' if necessary),\nis guaranteed to point to a newly created empty file.\nYou can then use `write-region' to write new data into the file."]] 3) (defalias 'epg--args-from-sig-notations #[(notations) "\301\302\303\304\"\"\207" [notations apply nconc mapcar #[(notation) "\301!\203 \302!\204 \303\304!\210\301!\2033 \305\306!\203) \307\301!\310\311!R\2021 \301!\310\311!QD\207\312\306!\203B \307\311!P\202E \311!D\207" [notation epg-sig-notation-name epg-sig-notation-human-readable error "Unreadable" "--sig-notation" epg-sig-notation-critical "!" "=" epg-sig-notation-value "--sig-policy-url"] 6]] 5]) (defalias 'epg-cancel #[(context) "\302\303\304!!!\203 \212\303\304!!q\210\305 \306\307\310 \306\"B#\210)\311\304!!\312=\205- \313\304!!\207" [context epg-context buffer-live-p process-buffer epg-context-process epg-context-set-result-for error (quit) epg-context-result-for process-status run delete-process] 7]) #@367 Initiate a decrypt operation on CIPHER. CIPHER must be a file data object. If you use this function, you will need to wait for the completion of `epg-gpg-program' by using `epg-wait-for-completion' and call `epg-reset' to clear a temporaly output file. If you are unsure, use synchronous version of this function `epg-decrypt-file' or `epg-decrypt-string' instead. (defalias 'epg-start-decrypt #[(context cipher) "\302!\204\n \303\304!\210\305 \306\"\210\307 \310\"\210\311 \312\313\302!E\"\210\314 !\315=?\205+ \316 \317\"\207" [cipher context epg-data-file error "Not a file" epg-context-set-operation decrypt epg-context-set-result nil epg--start "--decrypt" "--" epg-context-protocol CMS epg-wait-for-status ("BEGIN_DECRYPTION")] 6 (#$ . 64221)]) (defalias 'epg--check-error-for-decrypt #[(context) "\302\303\"\203 \304\305\306C\"\210\302\307\"\203 \304\305\310\302\307\"D\"\210\302\311\"?\205> \302\301\"\312 \236\2037 \304\305\313C\"\210\304\305\314 D\")\207" [context error epg-context-result-for decryption-failed signal epg-error "Decryption failed" no-secret-key "No secret key" decryption-okay no-data "No data" "Can't decrypt"] 6]) #@113 Decrypt a file CIPHER and store the result to a file PLAIN. If PLAIN is nil, it returns the result as a string. (defalias 'epg-decrypt-file #[(context cipher plain) "\303\216\203 \304 \"\210\202 \304 \305\306!\"\210\307 \310\n!\"\210\311 !\210\312 !\210?\205, \313 !)\207" [plain context cipher ((byte-code "\204 \302 !\210\303 !\207" [plain context epg-delete-output-file epg-reset] 2)) epg-context-set-output-file epg--make-temp-file "epg-output" epg-start-decrypt epg-make-data-from-file epg-wait-for-completion epg--check-error-for-decrypt epg-read-output] 4 (#$ . 65383)]) #@52 Decrypt a string CIPHER and return the plain text. (defalias 'epg-decrypt-string #[(context cipher) "\304\305!\306\307\216\310\n\311 \311\312%\210\313 \304\314!\"\210\315 \316 !\"\210\317 !\210\320 !\210\321 !+\207" [coding-system-for-write input-file cipher context epg--make-temp-file "epg-input" binary ((byte-code "\302!\210\303 !\203 \304 !\210\305!\207" [context input-file epg-delete-output-file file-exists-p delete-file epg-reset] 2)) write-region nil quiet epg-context-set-output-file "epg-output" epg-start-decrypt epg-make-data-from-file epg-wait-for-completion epg--check-error-for-decrypt epg-read-output] 6 (#$ . 65974)]) #@538 Initiate a verify operation on SIGNATURE. SIGNATURE and SIGNED-TEXT are a data object if they are specified. For a detached signature, both SIGNATURE and SIGNED-TEXT should be set. For a normal or a cleartext signature, SIGNED-TEXT should be nil. If you use this function, you will need to wait for the completion of `epg-gpg-program' by using `epg-wait-for-completion' and call `epg-reset' to clear a temporaly output file. If you are unsure, use synchronous version of this function `epg-verify-file' or `epg-verify-string' instead. (defalias 'epg-start-verify #[(context signature &optional signed-text) "\303\304\"\210\305\306\"\210 \203O \307 !\203! \310\311\312\307\n!\307 !F\"\207\310\311\312\307\n!\313F\"\210\314\315!!\316=\203? \317\315!\320 !\"\210\314\315!!\316=\205N \321\315!!\207\307\n!\203o \310\322!\323=\203h \311\312\307\n!E\202m \312\307\n!D\"\207\310\322!\323=\203} \324\202~ \325\"\210\314\315!!\316=\203\223 \317\315!\320\n!\"\210\314\315!!\316=\205\242 \321\315!!\207" [context signed-text signature epg-context-set-operation verify epg-context-set-result nil epg-data-file epg--start "--verify" "--" "-" process-status epg-context-process run process-send-string epg-data-string process-send-eof epg-context-protocol CMS ("--verify" "-") ("-")] 7 (#$ . 66623)]) #@343 Verify a file SIGNATURE. SIGNED-TEXT and PLAIN are also a file if they are specified. For a detached signature, both SIGNATURE and SIGNED-TEXT should be string. For a normal or a cleartext signature, SIGNED-TEXT should be nil. In the latter case, if PLAIN is specified, the plaintext is stored into the file after successful verification. (defalias 'epg-verify-file #[(context signature &optional signed-text plain) "\304\216\203 \305 \"\210\202 \305 \306\307!\"\210\n\203& \310 \311 !\311\n!#\210\202- \310 \311 !\"\210\312 !\210?\2059 \313 !)\207" [plain context signed-text signature ((byte-code "\204 \302 !\210\303 !\207" [plain context epg-delete-output-file epg-reset] 2)) epg-context-set-output-file epg--make-temp-file "epg-output" epg-start-verify epg-make-data-from-file epg-wait-for-completion epg-read-output] 5 (#$ . 67935)]) #@303 Verify a string SIGNATURE. SIGNED-TEXT is a string if it is specified. For a detached signature, both SIGNATURE and SIGNED-TEXT should be string. For a normal or a cleartext signature, SIGNED-TEXT should be nil. In the latter case, this function returns the plaintext after successful verification. (defalias 'epg-verify-string #[(context signature &optional signed-text) "\305\306\307\216\310\n\311\312!\"\210 \203* \311\313!\314\f\306\306\315%\210\316\n\317!\320 !#\210\2021 \316\n\320\f!\"\210\321\n!\210\322\n!+\207" [input-file coding-system-for-write context signed-text signature binary nil ((byte-code "\302!\210 \203 \303 !\203 \304 !\210\305!\207" [context input-file epg-delete-output-file file-exists-p delete-file epg-reset] 2)) epg-context-set-output-file epg--make-temp-file "epg-output" "epg-signature" write-region quiet epg-start-verify epg-make-data-from-file epg-make-data-from-string epg-wait-for-completion epg-read-output] 6 (#$ . 68792)]) #@524 Initiate a sign operation on PLAIN. PLAIN is a data object. If optional 3rd argument MODE is t or 'detached, it makes a detached signature. If it is nil or 'normal, it makes a normal signature. Otherwise, it makes a cleartext signature. If you use this function, you will need to wait for the completion of `epg-gpg-program' by using `epg-wait-for-completion' and call `epg-reset' to clear a temporaly output file. If you are unsure, use synchronous version of this function `epg-sign-file' or `epg-sign-string' instead. (defalias 'epg-start-sign #[(context plain &optional mode) "\303\304\"\210\305\306\"\210 \307>\204 \310\306\"\210\311\306\"\210\312\313 \314>\203' \315\2022 \316>\2031 \317\2022 \320C\321\322\323\324\325!\"\"\326\327!!\330\n!\205L \331\330\n!D$\"\210\332!\333=\204\\ \334\335\"\210\336\n!\205\204 \337\340!!\341=\203u \342\340!\336\n!\"\210\337\340!!\341=\205\204 \343\340!!\207" [context mode plain epg-context-set-operation sign epg-context-set-result nil (t detached nil normal) epg-context-set-armor epg-context-set-textmode epg--start append (t detached) "--detach-sign" (nil normal) "--sign" "--clearsign" apply nconc mapcar #[(signer) "\301\302\303!@!D\207" [signer "-u" epg-sub-key-id epg-key-sub-key-list] 4] epg-context-signers epg--args-from-sig-notations epg-context-sig-notations epg-data-file "--" epg-context-protocol CMS epg-wait-for-status ("BEGIN_SIGNING") epg-data-string process-status epg-context-process run process-send-string process-send-eof] 10 (#$ . 69774)]) #@294 Sign a file PLAIN and store the result to a file SIGNATURE. If SIGNATURE is nil, it returns the result as a string. If optional 3rd argument MODE is t or 'detached, it makes a detached signature. If it is nil or 'normal, it makes a normal signature. Otherwise, it makes a cleartext signature. (defalias 'epg-sign-file #[(context plain signature &optional mode) "\304\216\203 \305 \"\210\202 \305 \306\307!\"\210\310 \311\n! #\210\312 !\210\313 \314\"\204> \313 \315\"\203: \315\316\313 \315\"\"\210\202> \315\317!\210?\205F \320 !)\207" [signature context plain mode ((byte-code "\204 \302 !\210\303 !\207" [signature context epg-delete-output-file epg-reset] 2)) epg-context-set-output-file epg--make-temp-file "epg-output" epg-start-sign epg-make-data-from-file epg-wait-for-completion epg-context-result-for sign error "Sign failed: %S" "Sign failed" epg-read-output] 5 (#$ . 71306)]) #@231 Sign a string PLAIN and return the output as string. If optional 3rd argument MODE is t or 'detached, it makes a detached signature. If it is nil or 'normal, it makes a normal signature. Otherwise, it makes a cleartext signature. (defalias 'epg-sign-string #[(context plain &optional mode) "\305!\306=\206\f \307\310\311\217?\205 \312\313!\314\315\216\316\312\317!\"\210\n\203+ \320 \307\n\307\321%\210\322\n\2037 \323\n!\202: \324 !\f#\210\325!\210\326\327\"\204^ \326\330\"\203Z \330\331\326\330\"\"\210\202^ \330\332!\210\333!+\207" [context coding-system-for-write input-file plain mode epg-context-protocol CMS nil (byte-code "\300\301 !\210\302\207" [epg-check-configuration epg-configuration t] 2) ((error)) epg--make-temp-file "epg-input" binary ((byte-code "\302!\210 \203\f \303 !\210\304!\207" [context input-file epg-delete-output-file delete-file epg-reset] 2)) epg-context-set-output-file "epg-output" write-region quiet epg-start-sign epg-make-data-from-file epg-make-data-from-string epg-wait-for-completion epg-context-result-for sign error "Sign failed: %S" "Sign failed" epg-read-output] 6 (#$ . 72208)]) #@412 Initiate an encrypt operation on PLAIN. PLAIN is a data object. If RECIPIENTS is nil, it performs symmetric encryption. If you use this function, you will need to wait for the completion of `epg-gpg-program' by using `epg-wait-for-completion' and call `epg-reset' to clear a temporaly output file. If you are unsure, use synchronous version of this function `epg-encrypt-file' or `epg-encrypt-string' instead. (defalias 'epg-start-encrypt #[(context plain recipients &optional sign always-trust) "\305\306\"\210\307\310\"\210\311\312 \205 \313\n\203 \314\202 \315 \205 \316 \205- \317\320\321\322\323!\"\" \2056 \324\325!!\317\320\321\326\n\"\"\327\f!\205H \330\327\f!D&\"\210\331!\332=\204e \203` \333\334\"\210\202e \333\335\"\210\336\f!\205\215 \337\340!!\341=\203~ \342\340!\336\f!\"\210\337\340!!\341=\205\215 \343\340!!\207" [context always-trust recipients sign plain epg-context-set-operation encrypt epg-context-set-result nil epg--start append ("--always-trust") ("--encrypt") ("--symmetric") ("--sign") apply nconc mapcar #[(signer) "\301\302\303!@!D\207" [signer "-u" epg-sub-key-id epg-key-sub-key-list] 4] epg-context-signers epg--args-from-sig-notations epg-context-sig-notations #[(recipient) "\301\302\303!@!D\207" [recipient "-r" epg-sub-key-id epg-key-sub-key-list] 4] epg-data-file "--" epg-context-protocol CMS epg-wait-for-status ("BEGIN_SIGNING") ("BEGIN_ENCRYPTION") epg-data-string process-status epg-context-process run process-send-string process-send-eof] 13 (#$ . 73352)]) #@170 Encrypt a file PLAIN and store the result to a file CIPHER. If CIPHER is nil, it returns the result as a string. If RECIPIENTS is nil, it performs symmetric encryption. (defalias 'epg-encrypt-file #[(context plain recipients cipher &optional sign always-trust) "\306\216\203 \307 \"\210\202 \307 \310\311!\"\210\312 \313\n! \f %\210\314 !\210\f\203D \315 \304\"\204D \315 \316\"\203@ \316\317\315 \316\"\"\210\202D \316\320!\210\315 \316\"\203S \316\321\315 \316\"\"\210?\205[ \322 !)\207" [cipher context plain recipients sign always-trust ((byte-code "\204 \302 !\210\303 !\207" [cipher context epg-delete-output-file epg-reset] 2)) epg-context-set-output-file epg--make-temp-file "epg-output" epg-start-encrypt epg-make-data-from-file epg-wait-for-completion epg-context-result-for error "Sign failed: %S" "Sign failed" "Encrypt failed: %S" epg-read-output] 6 (#$ . 74882)]) #@81 Encrypt a string PLAIN. If RECIPIENTS is nil, it performs symmetric encryption. (defalias 'epg-encrypt-string #[(context plain recipients &optional sign always-trust) "?\206 \306 !\307=\206 \310\311\312\217?\205 \313\314!\315\316\216\317 \313\320!\"\210 \2030 \321\f\310 \310\322%\210\323 \203< \324 !\202? \325\f! %\210\326 !\210\203j \327 \300\"\204j \327 \330\"\203f \330\331\327 \330\"\"\210\202j \330\332!\210\327 \330\"\203y \330\333\327 \330\"\"\210\334 !+\207" [sign context coding-system-for-write input-file plain recipients epg-context-protocol CMS nil (byte-code "\300\301 !\210\302\207" [epg-check-configuration epg-configuration t] 2) ((error)) epg--make-temp-file "epg-input" binary ((byte-code "\302!\210 \203\f \303 !\210\304!\207" [context input-file epg-delete-output-file delete-file epg-reset] 2)) epg-context-set-output-file "epg-output" write-region quiet epg-start-encrypt epg-make-data-from-file epg-make-data-from-string epg-wait-for-completion epg-context-result-for error "Sign failed: %S" "Sign failed" "Encrypt failed: %S" epg-read-output always-trust] 6 (#$ . 75773)]) #@341 Initiate an export keys operation. If you use this function, you will need to wait for the completion of `epg-gpg-program' by using `epg-wait-for-completion' and call `epg-reset' to clear a temporaly output file. If you are unsure, use synchronous version of this function `epg-export-keys-to-file' or `epg-export-keys-to-string' instead. (defalias 'epg-start-export-keys #[(context keys) "\302\303\"\210\304\305\"\210\306\307\310\311 \"B\"\207" [context keys epg-context-set-operation export-keys epg-context-set-result nil epg--start "--export" mapcar #[(key) "\301\302!@!\207" [key epg-sub-key-id epg-key-sub-key-list] 3]] 6 (#$ . 76893)]) #@22 Extract public KEYS. (defalias 'epg-export-keys-to-file #[(context keys file) "\303\216\203 \304 \"\210\202 \304 \305\306!\"\210\307 \n\"\210\310 !\210\311 \312\"\203- \312\313\311 \312\"\"\210?\2055 \314 !)\207" [file context keys ((byte-code "\204 \302 !\210\303 !\207" [file context epg-delete-output-file epg-reset] 2)) epg-context-set-output-file epg--make-temp-file "epg-output" epg-start-export-keys epg-wait-for-completion epg-context-result-for error "Export keys failed: %S" epg-read-output] 5 (#$ . 77547)]) #@50 Extract public KEYS and return them as a string. (defalias 'epg-export-keys-to-string #[(context keys) "\302 \303#\207" [context keys epg-export-keys-to-file nil] 4 (#$ . 78079)]) #@368 Initiate an import keys operation. KEYS is a data object. If you use this function, you will need to wait for the completion of `epg-gpg-program' by using `epg-wait-for-completion' and call `epg-reset' to clear a temporaly output file. If you are unsure, use synchronous version of this function `epg-import-keys-from-file' or `epg-import-keys-from-string' instead. (defalias 'epg-start-import-keys #[(context keys) "\302\303\"\210\304\305\"\210\306\307 !\203 \310\311\307 !E\202 \310C\"\210\312 !\205G \313\314!!\315=\2038 \316\314!\312 !\"\210\313\314!!\315=\205G \317\314!!\207" [context keys epg-context-set-operation import-keys epg-context-set-result nil epg--start epg-data-file "--import" "--" epg-data-string process-status epg-context-process run process-send-string process-send-eof] 6 (#$ . 78267)]) (defalias 'epg--import-keys-1 #[(context keys) "\302\216\303 \"\210\304!\210\305\306\"\205 \306\307\305\306\"\")\207" [context keys ((epg-reset context)) epg-start-import-keys epg-wait-for-completion epg-context-result-for error "Import keys failed: %S"] 5]) #@28 Add keys from a file KEYS. (defalias 'epg-import-keys-from-file #[(context keys) "\302\303 !\"\207" [context keys epg--import-keys-1 epg-make-data-from-file] 4 (#$ . 79359)]) #@30 Add keys from a string KEYS. (defalias 'epg-import-keys-from-string #[(context keys) "\302\303 !\"\207" [context keys epg--import-keys-1 epg-make-data-from-string] 4 (#$ . 79541)]) #@336 Initiate a receive key operation. KEY-ID-LIST is a list of key IDs. If you use this function, you will need to wait for the completion of `epg-gpg-program' by using `epg-wait-for-completion' and call `epg-reset' to clear a temporaly output file. If you are unsure, use synchronous version of this function `epg-receive-keys' instead. (defalias 'epg-start-receive-keys #[(context key-id-list) "\302\303\"\210\304\305\"\210\306\307 B\"\207" [context key-id-list epg-context-set-operation receive-keys epg-context-set-result nil epg--start "--recv-keys"] 4 (#$ . 79730)]) #@49 Add keys from server. KEYS is a list of key IDs (defalias 'epg-receive-keys #[(context keys) "\302\216\303 \"\210\304!\210\305\306\"\205 \306\307\305\306\"\")\207" [context keys ((epg-reset context)) epg-start-receive-keys epg-wait-for-completion epg-context-result-for error "Receive keys failed: %S"] 5 (#$ . 80309)]) (defalias 'epg-import-keys-from-server 'epg-receive-keys) #@301 Initiate a delete keys operation. If you use this function, you will need to wait for the completion of `epg-gpg-program' by using `epg-wait-for-completion' and call `epg-reset' to clear a temporaly output file. If you are unsure, use synchronous version of this function `epg-delete-keys' instead. (defalias 'epg-start-delete-keys #[(context keys &optional allow-secret) "\303\304\"\210\305\306\"\210\307 \203 \310\202 \311\312\313\n\"B\"\207" [context allow-secret keys epg-context-set-operation delete-keys epg-context-set-result nil epg--start "--delete-secret-key" "--delete-key" mapcar #[(key) "\301\302!@!\207" [key epg-sub-key-id epg-key-sub-key-list] 3]] 6 (#$ . 80699)]) #@32 Delete KEYS from the key ring. (defalias 'epg-delete-keys #[(context keys &optional allow-secret) "\305\216\306 \n#\210\307!\210\310\311\312\"\236\211\205+ A\f\236\211\203( \312\313 A\"\202+ \312\314!*\207" [context keys allow-secret entry epg-delete-problem-reason-alist ((epg-reset context)) epg-start-delete-keys epg-wait-for-completion delete-problem epg-context-result-for error "Delete keys failed: %s" "Delete keys failed"] 5 (#$ . 81393)]) #@297 Initiate a sign keys operation. If you use this function, you will need to wait for the completion of `epg-gpg-program' by using `epg-wait-for-completion' and call `epg-reset' to clear a temporaly output file. If you are unsure, use synchronous version of this function `epg-sign-keys' instead. (defalias 'epg-start-sign-keys #[(context keys &optional local) "\303\304\"\210\305\306\"\210\307 \203 \310\202 \311\312\313\n\"B\"\207" [context local keys epg-context-set-operation sign-keys epg-context-set-result nil epg--start "--lsign-key" "--sign-key" mapcar #[(key) "\301\302!@!\207" [key epg-sub-key-id epg-key-sub-key-list] 3]] 6 (#$ . 81854)]) (make-obsolete 'epg-start-sign-keys "do not use.") #@30 Sign KEYS from the key ring. (defalias 'epg-sign-keys #[(context keys &optional local) "\303\216\304 \n#\210\305!\210\306\307\"\205 \307\310\306\307\"\")\207" [context keys local ((epg-reset context)) epg-start-sign-keys epg-wait-for-completion epg-context-result-for error "Sign keys failed: %S"] 5 (#$ . 82567)]) (make-obsolete 'epg-sign-keys "do not use.") #@384 Initiate a key generation. PARAMETERS specifies parameters for the key. If you use this function, you will need to wait for the completion of `epg-gpg-program' by using `epg-wait-for-completion' and call `epg-reset' to clear a temporaly output file. If you are unsure, use synchronous version of this function `epg-generate-key-from-file' or `epg-generate-key-from-string' instead. (defalias 'epg-start-generate-key #[(context parameters) "\302\303\"\210\304\305\"\210\306 !\203 \307\310\311\312\306 !F\"\207\307\313\"\210\314\315!!\316=\2033 \317\315!\320 !\"\210\314\315!!\316=\205B \321\315!!\207" [context parameters epg-context-set-operation generate-key epg-context-set-result nil epg-data-file epg--start "--batch" "--genkey" "--" ("--batch" "--genkey") process-status epg-context-process run process-send-string epg-data-string process-send-eof] 7 (#$ . 82939)]) #@82 Generate a new key pair. PARAMETERS is a file which tells how to create the key. (defalias 'epg-generate-key-from-file #[(context parameters) "\302\216\303\304 !\"\210\305!\210\306\307\"\205 \307\310\306\307\"\")\207" [context parameters ((epg-reset context)) epg-start-generate-key epg-make-data-from-file epg-wait-for-completion epg-context-result-for error "Generate key failed: %S"] 5 (#$ . 83826)]) #@84 Generate a new key pair. PARAMETERS is a string which tells how to create the key. (defalias 'epg-generate-key-from-string #[(context parameters) "\302\216\303\304 !\"\210\305!\210\306\307\"\205 \307\310\306\307\"\")\207" [context parameters ((epg-reset context)) epg-start-generate-key epg-make-data-from-string epg-wait-for-completion epg-context-result-for error "Generate key failed: %S"] 5 (#$ . 84241)]) (defalias 'epg--decode-percent-escape #[(string) "\302\303\304 #\2034 \305\224\203 \306\307\310\211 $\302\225S\202 \306\301\311\312\313 \"\314\"!\310\211 $\302\225\305Z\202 )\207" [index string 0 string-match "%\\(\\(%\\)\\|\\([0-9A-Fa-f][0-9A-Fa-f]\\)\\)" 2 replace-match "%" t string-to-number match-string 3 16] 6]) (defalias 'epg--decode-hexstring #[(string) "\302\211\303\304 #=\203# \305\301\306\307\302 \"\310\"!\311\211 $\302\225S\211\202 )\207" [index string 0 string-match "[0-9A-Fa-f][0-9A-Fa-f]" replace-match string-to-number match-string 16 t] 7]) (defalias 'epg--decode-quotedstring #[(string) "\302\303\304 #\2039 \305\224\203 \306\307\310\311 $\302\225S\202 \312\224\203 \306\301\313\314\302 \"\315\"!\310\211 $\302\225\305Z\202 )\207" [index string 0 string-match "\\\\\\(\\([,=+<>#;\\\"]\\)\\|\\([0-9A-Fa-f][0-9A-Fa-f]\\)\\)" 2 replace-match "\\2" t nil 3 string-to-number match-string 16] 6]) #@114 Parse STRING as LADPv3 Distinguished Names (RFC2253). The return value is an alist mapping from types to values. (defalias 'epg-dn-from-string #[(string) "\306G\307\211\211\211 W\203\371 \310\311#=\203% \306\225\310\312#=\203= \313\314\"\306\225\202R \310\315#=\203R \313\314\"\306\225 \204Z \316\317!\210\310\320#=\203t \306\225\321\313\306\"!\202\245 \310\322#=\203\216 \306\225\323\313\314\"!\202\245 \310\324#=\203\245 \306\225\321\313\306\"! \203\310 \f@@;\203\274 \f \nB\f@D\240\210\202\337 \f \nB\f@B\240\210\202\337 \f@@:\203\325 \f\211@\237\240\210 \nB\fB\307\211\310\325#=\203 \306\225\314\224H\326=\202 \f\237.\207" [string group value type alist length 0 nil string-match "[ \n ]*" "\\([0-9]+\\(\\.[0-9]+\\)*\\)[ \n ]*=[ \n ]*" match-string 1 "\\([0-9A-Za-z]+\\)[ \n ]*=[ \n ]*" error "Invalid type" "\\([^,=+<>#;\\\"]\\|\\\\.\\)+" epg--decode-quotedstring "#\\([0-9A-Fa-f]+\\)" epg--decode-hexstring "\"\\([^\\\"]\\|\\\\.\\)*\"" "[ \n ]*\\([,;+]\\)" 43 index] 7 (#$ . 85603)]) #@125 Convert ALIST returned by `epg-dn-from-string' to a human readable form. Type names are resolved using `epg-dn-type-alist'. (defalias 'epg-decode-dn #[(alist) "\301\302\303#\207" [alist mapconcat #[(rdn) "@;\203# \303@ \"\211\203 \304\305\nAA#\202! \304\305@A#)\207\306\307!\310Q\207" [rdn epg-dn-type-alist entry assoc format "%s=%s" "(" epg-decode-dn ")"] 5] ", "] 4 (#$ . 86683)]) (provide 'epg)
Close
