Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
Delete
Unzip
Name
Size
Permission
Date
Action
calc
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
calendar
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
cedet
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
emacs-lisp
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
emulation
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
erc
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
eshell
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
gnus
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
international
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
language
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
mail
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
mh-e
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
net
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
nxml
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
obsolete
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
org
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
play
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
progmodes
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
term
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
textmodes
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
url
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
vc
[ DIR ]
drwxr-xr-x
2023-06-09 05:02
COPYING
34.32
KB
-rw-r--r--
2013-03-08 03:32
README
538
B
-rw-r--r--
2012-04-13 21:33
abbrev.elc
30.89
KB
-rw-r--r--
2023-06-07 04:18
align.elc
38.85
KB
-rw-r--r--
2023-06-07 04:02
allout-widgets.elc
62.73
KB
-rw-r--r--
2023-06-07 04:02
allout.elc
205.09
KB
-rw-r--r--
2023-06-07 04:02
ansi-color.elc
17.13
KB
-rw-r--r--
2023-06-07 04:02
apropos.elc
34.55
KB
-rw-r--r--
2023-06-07 04:02
arc-mode.elc
58.2
KB
-rw-r--r--
2023-06-07 04:02
array.elc
26.08
KB
-rw-r--r--
2023-06-07 04:02
autoarg.elc
5.92
KB
-rw-r--r--
2023-06-07 04:02
autoinsert.elc
11.59
KB
-rw-r--r--
2023-06-07 04:02
autorevert.elc
17.96
KB
-rw-r--r--
2023-06-07 04:02
avoid.elc
11.37
KB
-rw-r--r--
2023-06-07 04:02
battery.elc
19.36
KB
-rw-r--r--
2023-06-07 04:02
bindings.elc
38.45
KB
-rw-r--r--
2023-06-07 04:18
bookmark.elc
65.98
KB
-rw-r--r--
2023-06-07 04:02
bs.elc
49.12
KB
-rw-r--r--
2023-06-07 04:02
buff-menu.elc
25.26
KB
-rw-r--r--
2023-06-07 04:19
button.elc
13.22
KB
-rw-r--r--
2023-06-07 04:18
calculator.elc
50.38
KB
-rw-r--r--
2023-06-07 04:02
case-table.elc
4.7
KB
-rw-r--r--
2023-06-07 04:18
cdl.elc
1.2
KB
-rw-r--r--
2023-06-07 04:02
chistory.elc
6.03
KB
-rw-r--r--
2023-06-07 04:02
cmuscheme.elc
18.25
KB
-rw-r--r--
2023-06-07 04:02
color.elc
11.98
KB
-rw-r--r--
2023-06-07 04:02
comint.elc
111.01
KB
-rw-r--r--
2023-06-07 04:02
completion.elc
42.08
KB
-rw-r--r--
2023-06-07 04:02
composite.elc
25.33
KB
-rw-r--r--
2023-06-07 04:18
cus-dep.elc
4.88
KB
-rw-r--r--
2023-06-07 04:02
cus-edit.elc
135.22
KB
-rw-r--r--
2023-06-07 04:02
cus-face.elc
11.21
KB
-rw-r--r--
2023-06-07 04:18
cus-load.el
72.07
KB
-rw-r--r--
2023-06-07 04:16
cus-start.elc
15.41
KB
-rw-r--r--
2023-06-07 04:18
cus-theme.elc
25.64
KB
-rw-r--r--
2023-06-07 04:02
custom.elc
43.88
KB
-rw-r--r--
2023-06-07 04:18
dabbrev.elc
22.38
KB
-rw-r--r--
2023-06-07 04:02
delim-col.elc
8.07
KB
-rw-r--r--
2023-06-07 04:02
delsel.elc
6.44
KB
-rw-r--r--
2023-06-07 04:02
descr-text.elc
23.76
KB
-rw-r--r--
2023-06-07 04:02
desktop.elc
34.73
KB
-rw-r--r--
2023-06-07 04:02
dframe.elc
21.42
KB
-rw-r--r--
2023-06-07 04:02
dired-aux.elc
73.91
KB
-rw-r--r--
2023-06-07 04:02
dired-x.elc
43.31
KB
-rw-r--r--
2023-06-07 04:02
dired.elc
129.27
KB
-rw-r--r--
2023-06-07 04:02
dirtrack.elc
7.39
KB
-rw-r--r--
2023-06-07 04:02
disp-table.elc
9.09
KB
-rw-r--r--
2023-06-07 04:19
dnd.elc
7.29
KB
-rw-r--r--
2023-06-07 04:19
doc-view.elc
47.2
KB
-rw-r--r--
2023-06-07 04:02
dos-fns.elc
6.31
KB
-rw-r--r--
2023-06-07 04:19
dos-vars.elc
1.2
KB
-rw-r--r--
2023-06-07 04:19
dos-w32.elc
11.18
KB
-rw-r--r--
2023-06-07 04:19
double.elc
3.99
KB
-rw-r--r--
2023-06-07 04:02
dynamic-setting.elc
2.23
KB
-rw-r--r--
2023-06-07 04:19
ebuff-menu.elc
10.74
KB
-rw-r--r--
2023-06-07 04:02
echistory.elc
4.94
KB
-rw-r--r--
2023-06-07 04:02
edmacro.elc
20.48
KB
-rw-r--r--
2023-06-07 04:02
ehelp.elc
11.7
KB
-rw-r--r--
2023-06-07 04:02
electric.elc
11.97
KB
-rw-r--r--
2023-06-07 04:02
elide-head.elc
2.8
KB
-rw-r--r--
2023-06-07 04:02
emacs-lock.elc
9.19
KB
-rw-r--r--
2023-06-07 04:02
env.elc
5.47
KB
-rw-r--r--
2023-06-07 04:18
epa-dired.elc
1.78
KB
-rw-r--r--
2023-06-07 04:02
epa-file.elc
8.19
KB
-rw-r--r--
2023-06-07 04:02
epa-hook.elc
4.46
KB
-rw-r--r--
2023-06-07 04:18
epa-mail.elc
7.7
KB
-rw-r--r--
2023-06-07 04:02
epa.elc
34.21
KB
-rw-r--r--
2023-06-07 04:02
epg-config.elc
3.89
KB
-rw-r--r--
2023-06-07 04:02
epg.elc
88.76
KB
-rw-r--r--
2023-06-07 04:02
expand.elc
9.24
KB
-rw-r--r--
2023-06-07 04:03
ezimage.elc
9.91
KB
-rw-r--r--
2023-06-07 04:03
face-remap.elc
15
KB
-rw-r--r--
2023-06-07 04:03
facemenu.elc
26.49
KB
-rw-r--r--
2023-06-07 04:19
faces.elc
80.49
KB
-rw-r--r--
2023-06-07 04:18
ffap.elc
47.01
KB
-rw-r--r--
2023-06-07 04:03
filecache.elc
15.38
KB
-rw-r--r--
2023-06-07 04:03
files-x.elc
12.22
KB
-rw-r--r--
2023-06-07 04:03
files.elc
193.24
KB
-rw-r--r--
2023-06-07 04:18
filesets.elc
71.89
KB
-rw-r--r--
2023-06-07 04:03
find-cmd.elc
4.95
KB
-rw-r--r--
2023-06-07 04:03
find-dired.elc
8.27
KB
-rw-r--r--
2023-06-07 04:03
find-file.elc
18.12
KB
-rw-r--r--
2023-06-07 04:03
find-lisp.elc
7.35
KB
-rw-r--r--
2023-06-07 04:03
finder-inf.el
37.71
KB
-rw-r--r--
2023-06-07 04:16
finder.elc
13.95
KB
-rw-r--r--
2023-06-07 04:03
flow-ctrl.elc
2.38
KB
-rw-r--r--
2023-06-07 04:03
foldout.elc
7.42
KB
-rw-r--r--
2023-06-07 04:03
follow.elc
29.11
KB
-rw-r--r--
2023-06-07 04:03
font-core.elc
12.04
KB
-rw-r--r--
2023-06-07 04:19
font-lock.elc
62.75
KB
-rw-r--r--
2023-06-07 04:19
format-spec.elc
1.92
KB
-rw-r--r--
2023-06-07 04:03
format.elc
27.65
KB
-rw-r--r--
2023-06-07 04:18
forms.elc
35.14
KB
-rw-r--r--
2023-06-07 04:03
frame.elc
49.73
KB
-rw-r--r--
2023-06-07 04:19
fringe.elc
8.81
KB
-rw-r--r--
2023-06-07 04:19
generic-x.elc
43.94
KB
-rw-r--r--
2023-06-07 04:03
gs.elc
3.87
KB
-rw-r--r--
2023-06-07 04:03
help-at-pt.elc
11.21
KB
-rw-r--r--
2023-06-07 04:03
help-fns.elc
32.37
KB
-rw-r--r--
2023-06-07 04:03
help-macro.elc
4.42
KB
-rw-r--r--
2023-06-07 04:03
help-mode.elc
23.45
KB
-rw-r--r--
2023-06-07 04:03
help.elc
39.42
KB
-rw-r--r--
2023-06-07 04:18
hex-util.elc
1.42
KB
-rw-r--r--
2023-06-07 04:03
hexl.elc
33.06
KB
-rw-r--r--
2023-06-07 04:03
hfy-cmap.elc
24.87
KB
-rw-r--r--
2023-06-07 04:03
hi-lock.elc
23.53
KB
-rw-r--r--
2023-06-07 04:03
hilit-chg.elc
27.9
KB
-rw-r--r--
2023-06-07 04:03
hippie-exp.elc
22.68
KB
-rw-r--r--
2023-06-07 04:03
hl-line.elc
8.23
KB
-rw-r--r--
2023-06-07 04:03
htmlfontify.el.htmlfontify-command-injection-vulnerability
101.78
KB
-rw-r--r--
2013-01-01 15:37
htmlfontify.elc
66.45
KB
-rw-r--r--
2023-06-07 04:03
ibuf-ext.elc
55.96
KB
-rw-r--r--
2023-06-07 04:03
ibuf-macs.elc
11.32
KB
-rw-r--r--
2023-06-07 04:03
ibuffer.elc
101.47
KB
-rw-r--r--
2023-06-07 04:03
icomplete.elc
10.18
KB
-rw-r--r--
2023-06-07 04:03
ido.elc
113.4
KB
-rw-r--r--
2023-06-07 04:03
ielm.elc
18.26
KB
-rw-r--r--
2023-06-07 04:03
iimage.elc
4.6
KB
-rw-r--r--
2023-06-07 04:03
image-dired.elc
84.38
KB
-rw-r--r--
2023-06-07 04:03
image-file.elc
6.05
KB
-rw-r--r--
2023-06-07 04:03
image-mode.elc
23.73
KB
-rw-r--r--
2023-06-07 04:03
image.elc
24.66
KB
-rw-r--r--
2023-06-07 04:19
imenu.elc
26.35
KB
-rw-r--r--
2023-06-07 04:03
indent.elc
18.37
KB
-rw-r--r--
2023-06-07 04:19
info-look.elc
27.92
KB
-rw-r--r--
2023-06-07 04:03
info-xref.elc
16.12
KB
-rw-r--r--
2023-06-07 04:03
info.elc
138.16
KB
-rw-r--r--
2023-06-07 04:03
informat.elc
9.99
KB
-rw-r--r--
2023-06-07 04:03
isearch.elc
98.16
KB
-rw-r--r--
2023-06-07 04:19
isearchb.elc
4.68
KB
-rw-r--r--
2023-06-07 04:03
iswitchb.elc
31.48
KB
-rw-r--r--
2023-06-07 04:03
jit-lock.elc
17.68
KB
-rw-r--r--
2023-06-07 04:19
jka-cmpr-hook.el
14.3
KB
-rw-r--r--
2013-01-01 15:37
jka-cmpr-hook.elc
12.4
KB
-rw-r--r--
2023-06-07 04:18
jka-compr.el
24.25
KB
-rw-r--r--
2013-01-01 15:37
jka-compr.elc
12.43
KB
-rw-r--r--
2023-06-07 04:03
json.elc
13.49
KB
-rw-r--r--
2023-06-07 04:03
kermit.elc
2.9
KB
-rw-r--r--
2023-06-07 04:03
kmacro.elc
30.69
KB
-rw-r--r--
2023-06-07 04:03
ldefs-boot.el
1.16
MB
-rw-r--r--
2013-03-04 22:54
linum.elc
9.48
KB
-rw-r--r--
2023-06-07 04:03
loaddefs.el
1.16
MB
-rw-r--r--
2023-06-07 04:19
loadhist.elc
8.98
KB
-rw-r--r--
2023-06-07 04:03
loadup.el
14.09
KB
-rw-r--r--
2013-01-01 15:37
locate.elc
17.66
KB
-rw-r--r--
2023-06-07 04:03
longlines.elc
14.81
KB
-rw-r--r--
2023-06-07 04:03
lpr.elc
9.23
KB
-rw-r--r--
2023-06-07 04:03
ls-lisp.elc
18.79
KB
-rw-r--r--
2023-06-07 04:19
macros.elc
7.26
KB
-rw-r--r--
2023-06-07 04:03
makesum.elc
2.51
KB
-rw-r--r--
2023-06-07 04:03
man.elc
44.16
KB
-rw-r--r--
2023-06-07 04:03
master.elc
4.42
KB
-rw-r--r--
2023-06-07 04:03
mb-depth.elc
3.09
KB
-rw-r--r--
2023-06-07 04:03
md4.elc
8.09
KB
-rw-r--r--
2023-06-07 04:03
menu-bar.elc
71.76
KB
-rw-r--r--
2023-06-07 04:19
midnight.elc
8.52
KB
-rw-r--r--
2023-06-07 04:03
minibuf-eldef.elc
6.11
KB
-rw-r--r--
2023-06-07 04:03
minibuffer.elc
83.45
KB
-rw-r--r--
2023-06-07 04:18
misc.elc
5.53
KB
-rw-r--r--
2023-06-07 04:03
misearch.elc
11.59
KB
-rw-r--r--
2023-06-07 04:03
mouse-copy.elc
3.86
KB
-rw-r--r--
2023-06-07 04:03
mouse-drag.elc
6.57
KB
-rw-r--r--
2023-06-07 04:03
mouse.elc
53.62
KB
-rw-r--r--
2023-06-07 04:19
mpc.elc
78.45
KB
-rw-r--r--
2023-06-07 04:03
msb.elc
26.64
KB
-rw-r--r--
2023-06-07 04:03
mwheel.elc
9.61
KB
-rw-r--r--
2023-06-07 04:19
newcomment.elc
35.2
KB
-rw-r--r--
2023-06-07 04:19
notifications.elc
12.25
KB
-rw-r--r--
2023-06-07 04:03
novice.elc
4.75
KB
-rw-r--r--
2023-06-07 04:03
outline.elc
34.97
KB
-rw-r--r--
2023-06-07 04:03
paren.elc
6.48
KB
-rw-r--r--
2023-06-07 04:03
password-cache.elc
3.59
KB
-rw-r--r--
2023-06-07 04:03
pcmpl-cvs.elc
6.33
KB
-rw-r--r--
2023-06-07 04:03
pcmpl-gnu.elc
11.17
KB
-rw-r--r--
2023-06-07 04:03
pcmpl-linux.elc
3.38
KB
-rw-r--r--
2023-06-07 04:03
pcmpl-rpm.elc
11
KB
-rw-r--r--
2023-06-07 04:03
pcmpl-unix.elc
7.7
KB
-rw-r--r--
2023-06-07 04:03
pcomplete.elc
36.63
KB
-rw-r--r--
2023-06-07 04:03
printing.elc
157.61
KB
-rw-r--r--
2023-06-07 04:03
proced.elc
63.27
KB
-rw-r--r--
2023-06-07 04:03
profiler.elc
37.19
KB
-rw-r--r--
2023-06-07 04:03
ps-bdf.elc
13.15
KB
-rw-r--r--
2023-06-07 04:03
ps-def.elc
3.01
KB
-rw-r--r--
2023-06-07 04:03
ps-mule.elc
34.8
KB
-rw-r--r--
2023-06-07 04:03
ps-print.elc
140.25
KB
-rw-r--r--
2023-06-07 04:03
ps-samp.elc
5.43
KB
-rw-r--r--
2023-06-07 04:03
recentf.elc
48.71
KB
-rw-r--r--
2023-06-07 04:03
rect.elc
11.74
KB
-rw-r--r--
2023-06-07 04:03
register.elc
20.55
KB
-rw-r--r--
2023-06-07 04:19
repeat.elc
5.24
KB
-rw-r--r--
2023-06-07 04:03
replace.elc
66.96
KB
-rw-r--r--
2023-06-07 04:19
reposition.elc
2.82
KB
-rw-r--r--
2023-06-07 04:03
reveal.elc
7.01
KB
-rw-r--r--
2023-06-07 04:03
rfn-eshadow.elc
6.86
KB
-rw-r--r--
2023-06-07 04:19
rot13.elc
2.54
KB
-rw-r--r--
2023-06-07 04:03
ruler-mode.elc
20.12
KB
-rw-r--r--
2023-06-07 04:03
savehist.elc
11.11
KB
-rw-r--r--
2023-06-07 04:03
saveplace.elc
7.92
KB
-rw-r--r--
2023-06-07 04:03
sb-image.elc
2.89
KB
-rw-r--r--
2023-06-07 04:03
scroll-all.elc
4.04
KB
-rw-r--r--
2023-06-07 04:03
scroll-bar.elc
10.34
KB
-rw-r--r--
2023-06-07 04:19
scroll-lock.elc
4.68
KB
-rw-r--r--
2023-06-07 04:03
select.elc
11.17
KB
-rw-r--r--
2023-06-07 04:19
server.elc
48.81
KB
-rw-r--r--
2023-06-07 04:03
ses.elc
101.59
KB
-rw-r--r--
2023-06-07 04:03
shadowfile.elc
22.26
KB
-rw-r--r--
2023-06-07 04:03
shell.elc
39.68
KB
-rw-r--r--
2023-06-07 04:03
simple.elc
229.5
KB
-rw-r--r--
2023-06-07 04:18
skeleton.elc
16.16
KB
-rw-r--r--
2023-06-07 04:03
sort.elc
13.16
KB
-rw-r--r--
2023-06-07 04:03
soundex.elc
1.29
KB
-rw-r--r--
2023-06-07 04:03
speedbar.elc
116.63
KB
-rw-r--r--
2023-06-07 04:03
startup.elc
63.41
KB
-rw-r--r--
2023-06-07 04:18
strokes.elc
43.91
KB
-rw-r--r--
2023-06-07 04:03
subdirs.el
409
B
-rw-r--r--
2023-06-07 04:19
subr.elc
139.35
KB
-rw-r--r--
2023-06-07 04:18
t-mouse.elc
3.31
KB
-rw-r--r--
2023-06-07 04:03
tabify.elc
1.96
KB
-rw-r--r--
2023-06-07 04:03
talk.elc
3.11
KB
-rw-r--r--
2023-06-07 04:03
tar-mode.elc
52.65
KB
-rw-r--r--
2023-06-07 04:03
tempo.elc
19.35
KB
-rw-r--r--
2023-06-07 04:03
term.elc
101.1
KB
-rw-r--r--
2023-06-07 04:03
terminal.elc
30.78
KB
-rw-r--r--
2023-06-07 04:03
thingatpt.elc
12.61
KB
-rw-r--r--
2023-06-07 04:03
thumbs.elc
26.94
KB
-rw-r--r--
2023-06-07 04:03
time-stamp.elc
18.8
KB
-rw-r--r--
2023-06-07 04:03
time.elc
20.34
KB
-rw-r--r--
2023-06-07 04:03
timezone.elc
11.13
KB
-rw-r--r--
2023-06-07 04:03
tmm.elc
12.73
KB
-rw-r--r--
2023-06-07 04:03
tool-bar.elc
9.35
KB
-rw-r--r--
2023-06-07 04:19
tooltip.elc
12.19
KB
-rw-r--r--
2023-06-07 04:19
tree-widget.elc
20.43
KB
-rw-r--r--
2023-06-07 04:03
tutorial.elc
22.55
KB
-rw-r--r--
2023-06-07 04:03
type-break.elc
38.3
KB
-rw-r--r--
2023-06-07 04:03
uniquify.elc
18.52
KB
-rw-r--r--
2023-06-07 04:03
userlock.elc
5.21
KB
-rw-r--r--
2023-06-07 04:03
vcursor.elc
23.53
KB
-rw-r--r--
2023-06-07 04:03
version.elc
5.52
KB
-rw-r--r--
2023-06-07 04:18
view.elc
34.38
KB
-rw-r--r--
2023-06-07 04:03
vt-control.elc
2.13
KB
-rw-r--r--
2023-06-07 04:03
vt100-led.elc
1.47
KB
-rw-r--r--
2023-06-07 04:03
w32-common-fns.elc
3.72
KB
-rw-r--r--
2023-06-07 04:03
w32-fns.elc
10.26
KB
-rw-r--r--
2023-06-07 04:19
w32-vars.elc
5.17
KB
-rw-r--r--
2023-06-07 04:19
wdired.elc
22.84
KB
-rw-r--r--
2023-06-07 04:03
whitespace.elc
65.65
KB
-rw-r--r--
2023-06-07 04:03
wid-browse.elc
8.14
KB
-rw-r--r--
2023-06-07 04:03
wid-edit.elc
104.79
KB
-rw-r--r--
2023-06-07 04:03
widget.elc
1.33
KB
-rw-r--r--
2023-06-07 04:18
windmove.elc
9.42
KB
-rw-r--r--
2023-06-07 04:03
window.elc
196.08
KB
-rw-r--r--
2023-06-07 04:19
winner.elc
11.41
KB
-rw-r--r--
2023-06-07 04:03
woman.elc
108.03
KB
-rw-r--r--
2023-06-07 04:03
x-dnd.elc
19.55
KB
-rw-r--r--
2023-06-07 04:19
xml.elc
25.16
KB
-rw-r--r--
2023-06-07 04:03
xt-mouse.elc
9.7
KB
-rw-r--r--
2023-06-07 04:03
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:02:58 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/epa.el ;;; in Emacs version 24.3.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\312\313\301&\210\314\315\316\317\320DD\321\322\323\313\306&\210\314\324\316\317\325DD\326\322\327\313\306&\210\305\330\307\331\311\312\313\306&\210\332\333\334\335\313\330%\210\332\336\337\340\313\330%\210\332\341\342\343\313\330%\210\332\344\345\346\313\330%\210\332\347\350\351\313\330%\210\332\352\353\354\313\330%\210\332\355\356\357\313\306%\210\332\360\361\362\313\306%\210\314\363\316\317\364DD\365\322\366\313\306&\207" [require epg font-lock widget derived custom-declare-group epa nil "The EasyPG Assistant" :version "23.1" :group custom-declare-variable epa-popup-info-window funcall function #[0 "\300\207" [t] 1 "\n\n(fn)"] "If non-nil, status information from epa commands is displayed on\nthe separate window." :type boolean epa-info-window-height #[0 "\300\207" [5] 1 "\n\n(fn)"] "Number of lines used to display status information." integer epa-faces "Faces for epa-mode." custom-declare-face epa-validity-high ((default :weight bold) (((class color) (background dark)) :foreground "PaleTurquoise")) "Face for high validity EPA information." epa-validity-medium ((default :slant italic) (((class color) (background dark)) :foreground "PaleTurquoise")) "Face for medium validity EPA information." epa-validity-low ((t :slant italic)) "Face used for displaying the low validity." epa-validity-disabled ((t :slant italic :inverse-video t)) "Face used for displaying the disabled validity." epa-string ((((class color) (background dark)) :foreground "lightyellow") (((class color) (background light)) :foreground "blue4")) "Face used for displaying the string." epa-mark ((default :weight bold) (((class color) (background dark)) :foreground "orange") (((class color) (background light)) :foreground "red")) "Face used for displaying the high validity." epa-field-name ((default :weight bold) (((class color) (background dark)) :foreground "PaleTurquoise")) "Face for the name of the attribute field." epa-field-body ((default :slant italic) (((class color) (background dark)) :foreground "turquoise")) "Face for the body of the attribute field." epa-validity-face-alist #[0 "\300\207" [((unknown . epa-validity-disabled) (invalid . epa-validity-disabled) (disabled . epa-validity-disabled) (revoked . epa-validity-disabled) (expired . epa-validity-disabled) (none . epa-validity-low) (undefined . epa-validity-low) (never . epa-validity-low) (marginal . epa-validity-medium) (full . epa-validity-high) (ultimate . epa-validity-high))] 1 "\n\n(fn)"] "An alist mapping validity values to faces." (repeat (cons symbol face))] 8) #@43 Default expressions to addon in epa-mode. (defvar epa-font-lock-keywords '(("^\\*" (0 'epa-mark)) ("^ \\([^ :]+:\\)[ ]*\\(.*\\)$" (1 'epa-field-name) (2 'epa-field-body))) (#$ . 3172)) (defconst epa-pubkey-algorithm-letter-alist '((1 . 82) (2 . 114) (3 . 115) (16 . 103) (17 . 68) (20 . 71))) #@134 The default protocol. The value can be either OpenPGP or CMS. You should bind this variable with `let', but do not set it globally. (defvar epa-protocol 'OpenPGP (#$ . 3473)) #@126 If non-nil, epa commands create ASCII armored output. You should bind this variable with `let', but do not set it globally. (defvar epa-armor nil (#$ . 3656)) #@124 If non-nil, epa commands treat input files as text. You should bind this variable with `let', but do not set it globally. (defvar epa-textmode nil (#$ . 3823)) (defvar epa-keys-buffer nil) (defvar epa-key-buffer-alist nil) (defvar epa-key nil) (defvar epa-list-keys-arguments nil) (defvar epa-info-buffer nil) (defvar epa-last-coding-system-specified nil) (defvar epa-key-list-mode-map (byte-code "\300 \300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\322\323#\210\301\324\325#\210\301\326\327#\210\301\330\331#\210\301\332\333#\210\301\334\335#\210\301\336\337#\210\301\340\341B#\210\301\342\343#\210\301\344\345#\210\301\346\347#\210\301\350\351#\210\301\352\353#\210\301\354\355#\210\301\356\357#\210\301\360\361#\210\301\362\363#\210\301\364\365#\210\301\366\367#\210\207" [make-sparse-keymap define-key "m" epa-mark-key "u" epa-unmark-key "d" epa-decrypt-file "v" epa-verify-file "s" epa-sign-file "e" epa-encrypt-file "r" epa-delete-keys "i" epa-import-keys "o" epa-export-keys "g" revert-buffer "n" next-line "p" previous-line " " scroll-up-command [delete] scroll-down-command "q" epa-exit-buffer [menu-bar epa-key-list-mode] "Keys" [epa-key-list-unmark-key] (menu-item "Unmark Key" epa-unmark-key :help "Unmark a key") [epa-key-list-mark-key] (menu-item "Mark Key" epa-mark-key :help "Mark a key") [separator-epa-file] (menu-item "--") [epa-verify-file] (menu-item "Verify File..." epa-verify-file :help "Verify FILE") [epa-sign-file] (menu-item "Sign File..." epa-sign-file :help "Sign FILE by SIGNERS keys selected") [epa-decrypt-file] (menu-item "Decrypt File..." epa-decrypt-file :help "Decrypt FILE") [epa-encrypt-file] (menu-item "Encrypt File..." epa-encrypt-file :help "Encrypt FILE for RECIPIENTS") [separator-epa-key-list] (menu-item "--") [epa-key-list-delete-keys] (menu-item "Delete Keys" epa-delete-keys :help "Delete Marked Keys") [epa-key-list-import-keys] (menu-item "Import Keys" epa-import-keys :help "Import keys from a file") [epa-key-list-export-keys] (menu-item "Export Keys" epa-export-keys :help "Export marked keys to a file")] 7)) (defvar epa-key-mode-map (byte-code "\300 \301\302\303#\210\211\207" [make-sparse-keymap define-key "q" epa-exit-buffer] 5)) (defvar epa-info-mode-map (byte-code "\300 \301\302\303#\210\211\207" [make-sparse-keymap define-key "q" delete-window] 5)) (defvar epa-exit-buffer-function 'bury-buffer) (define-widget 'epa-key 'push-button "Button for representing a epg-key object." :format "%[%v%]" :button-face-get 'epa--key-widget-button-face-get :value-create 'epa--key-widget-value-create :action 'epa--key-widget-action :help-echo 'epa--key-widget-help-echo) (defalias 'epa--key-widget-action #[513 "\300 r\301\302\303\304\305\306!\307\"\310\311%DC\216\312\313\314\"!*\207" [internal--before-save-selected-window funcall make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 "\n\n(fn)" epa--show-key widget-get :value] 10 "\n\n(fn WIDGET &optional EVENT)"]) (defalias 'epa--key-widget-value-create #[257 "\301\302\"\303!@\304!@\305\306\307!\203 \310\307!\"@\202 \311\"\312!\313\203= \314!;\2035 \314!\202> \315\314!!\202> \316\261\207" [epg-key-validity-alist widget-get :value epg-key-sub-key-list epg-key-user-id-list format "%c " epg-sub-key-validity rassq 32 epg-sub-key-id " " epg-user-id-string epg-decode-dn ""] 10 "\n\n(fn WIDGET)"]) (defalias 'epa--key-widget-button-face-get #[257 "\301\302\303\304\"!@!\211\203 \211\236A\202 \305\207" [epa-validity-face-alist epg-sub-key-validity epg-key-sub-key-list widget-get :value default] 6 "\n\n(fn WIDGET)"]) (defalias 'epa--key-widget-help-echo #[257 "\300\301\302\303\304\305\"!@!\"\207" [format "Show %s" epg-sub-key-id epg-key-sub-key-list widget-get :value] 8 "\n\n(fn WIDGET)"]) (byte-code "\300\301!\203 \302\303\301\"\210\202 \302\303\304\"\210\300\305!\203! \302\306\305\"\210\202& \302\306\304\"\210\300\207" [fboundp encode-coding-string defalias epa--encode-coding-string identity decode-coding-string epa--decode-coding-string] 3) #@39 Major mode for `epa-list-keys'. (fn) (defalias 'epa-key-list-mode #[0 "\306 \210\307 \210\310\311\312\211\313\f!\210\314\305!\210\315\316 \210\314\317!\210\314\320!\210\321\322\323!\207" [major-mode mode-name truncate-lines buffer-read-only epa-key-list-mode-map font-lock-defaults kill-all-local-variables buffer-disable-undo epa-key-list-mode "Keys" t use-local-map make-local-variable (epa-font-lock-keywords t) font-lock-set-defaults epa-exit-buffer-function revert-buffer-function epa--key-list-revert-buffer run-mode-hooks epa-key-list-mode-hook] 3 (#$ . 7981)]) #@41 Major mode for a key description. (fn) (defalias 'epa-key-mode #[0 "\306 \210\307 \210\310\311\312\211\313\f!\210\314\305!\210\315\316 \210\314\317!\210\320\321!\207" [major-mode mode-name truncate-lines buffer-read-only epa-key-mode-map font-lock-defaults kill-all-local-variables buffer-disable-undo epa-key-mode "Key" t use-local-map make-local-variable (epa-font-lock-keywords t) font-lock-set-defaults epa-exit-buffer-function run-mode-hooks epa-key-mode-hook] 3 (#$ . 8564)]) #@41 Major mode for `epa-info-buffer'. (fn) (defalias 'epa-info-mode #[0 "\305 \210\306 \210\307\310\311\211\312\f!\210\313\314!\207" [major-mode mode-name truncate-lines buffer-read-only epa-info-mode-map kill-all-local-variables buffer-disable-undo epa-info-mode "Info" t use-local-map run-mode-hooks epa-info-mode-hook] 3 (#$ . 9058)]) #@88 Mark a key on the current line. If ARG is non-nil, unmark the key. (fn &optional ARG) (defalias 'epa-mark-key #[256 "\302\303\211\303\262\303\262\304 \210\305`\306\"\204 \307\310!\210\311`!\262\312\313!\210\203, \314\202- \315c\210\316`S`#\210\303y*\207" [buffer-read-only inhibit-read-only t nil beginning-of-line get-text-property epa-key error "No key on this line" text-properties-at delete-char 1 " " "*" set-text-properties] 8 (#$ . 9403) "P"]) #@88 Unmark a key on the current line. If ARG is non-nil, mark the key. (fn &optional ARG) (defalias 'epa-unmark-key #[256 "\300?!\207" [epa-mark-key] 3 (#$ . 9871) "P"]) #@83 Exit the current buffer. `epa-exit-buffer-function' is called if it is set. (fn) (defalias 'epa-exit-buffer #[0 " \207" [epa-exit-buffer-function] 1 (#$ . 10045) nil]) (defalias 'epa--insert-keys #[257 "\212\214``}\210\300\2034 `\262\301c\210\302`\303@\304\300\305\306\307\306\310\306\257\n#\210\311\303\312@#\210\313c\210A\262\202 \210\302ed\314\306\304\300\305\306\307\306\310\306\257\n#*\207" [nil " " add-text-properties epa-key front-sticky rear-nonsticky t start-open end-open widget-create :value "\n" epa-list-keys] 15 "\n\n(fn KEYS)"]) (defalias 'epa--list-keys #[514 "\203\n \306!\204 \307\310!q\210\311 \210\312\313e\314 !\313\262\313\262\315\316\"\2041 \317\316\"\262\203C \317\316\"\206> d|\210b\210\320\321#!\210\322 \210\323\324 \f\"\210*\266\325\305!\210Deb\210\326p!\207" [epa-keys-buffer epa-protocol buffer-read-only inhibit-read-only widget-keymap epa-list-keys-arguments buffer-live-p generate-new-buffer "*Keys*" epa-key-list-mode t nil epg-make-context get-text-property epa-list-keys next-single-property-change epa--insert-keys epg-list-keys widget-setup set-keymap-parent current-local-map make-local-variable pop-to-buffer] 11 "\n\n(fn NAME SECRET)"]) #@79 List all keys matched with NAME from the public keyring. (fn &optional NAME) (defalias 'epa-list-keys #[256 "\300\301\"\207" [epa--list-keys nil] 4 (#$ . 11268) (byte-code "\203 \302\303 \205\f @\"\211\304\232?\205 \211C\207\305C\207" [current-prefix-arg epa-list-keys-arguments read-string "Pattern: " "" nil] 3)]) #@80 List all keys matched with NAME from the private keyring. (fn &optional NAME) (defalias 'epa-list-secret-keys #[256 "\300\301\"\207" [epa--list-keys t] 4 (#$ . 11596) (byte-code "\203 \302\303 \205\f @\"\211\304\232?\205 \211C\207\305C\207" [current-prefix-arg epa-list-keys-arguments read-string "Pattern: " "" nil] 3)]) (defalias 'epa--key-list-revert-buffer #[512 "\301\302\"\207" [epa-list-keys-arguments apply epa--list-keys] 5 "\n\n(fn &optional IGNORE-AUTO NOCONFIRM)"]) (defalias 'epa--marked-keys #[0 "rq\210eb\210\301\211\302\303\301\304#\203$ \305\306\224\307\"\211\262\203 \211B\262\202 \237\266\202)\2069 \305\310 \307\"\211\2057 \211C\262\207" [epa-keys-buffer nil re-search-forward "^\\*" t get-text-property 0 epa-key point-at-bol] 6 "\n\n(fn)"]) (defalias 'epa--select-keys #[514 "\203\n \306!\204 \307\310!rq\210\311 \210\312\313 \314\315#\210\316\317\320 \210\321\322\323!\261\210\324\325\326\327\330\322\331!\332&\210\324\325\326\333\330\322\334!\335&\210\336c\210\337!\210\340 \210\341\313 \"\210\342eb\210\343 \344p!\210+\345\346DC\216\347 \210\350 *\207" [epa-keys-buffer buffer-read-only inhibit-read-only widget-keymap epa-exit-buffer-function display-buffer-mark-dedicated buffer-live-p generate-new-buffer "*Keys*" epa-key-list-mode define-key current-local-map "" exit-recursive-edit t nil erase-buffer "\n" substitute-command-keys "- `\\[epa-mark-key]' to mark a key on the line\n- `\\[epa-unmark-key]' to unmark a key on the line\n" widget-create link :notify #[128 "\300 \207" [abort-recursive-edit] 2 "\n\n(fn &rest IGNORE)"] :help-echo "Click here or \\[abort-recursive-edit] to cancel" "Cancel" #[128 "\300 \207" [exit-recursive-edit] 2 "\n\n(fn &rest IGNORE)"] "Click here or \\[exit-recursive-edit] to finish" "OK" "\n\n" epa--insert-keys widget-setup set-keymap-parent abort-recursive-edit soft pop-to-buffer funcall #[0 "\301!\207" [epa-keys-buffer kill-buffer] 2 "\n\n(fn)"] recursive-edit epa--marked-keys] 9 "\n\n(fn PROMPT KEYS)"]) #@315 Display a user's keyring and ask him to select keys. CONTEXT is an epg-context. PROMPT is a string to prompt with. NAMES is a list of strings to be matched with keys. If it is nil, all the keys are listed. If SECRET is non-nil, list secret keys instead of public keys. (fn CONTEXT PROMPT &optional NAMES SECRET) (defalias 'epa-select-keys #[1026 "\300#\301\"\207" [epg-list-keys epa--select-keys] 8 (#$ . 13609)]) (defalias 'epa--show-key #[257 "\306!@\307\310!\"\311\312\211C\204 \310!\312B\262BA\203+ \313A!\2047 \314\315\316\310!\"!\241\210Aq\210\317 \210\320\303!\210\321 \210\211\322!\240\210\211@\203\226 \211@@\203\215 \323\324@@!\203o \325\326\324@@!\f\"@!\202p \323\323\327@@!;\203\202 \327@@!\202\211 \330\327@@!!\331\261\210\211@A\240\210\202M \211\306!\240\210\211@\203D\323\332@@!\203\270 \325\326\332@@!\f\"@!\202\271 \323\323\310@@!\323\315\333\334@@!\"\323\335@@! \236A\336\337\340\341\342\343\344\345!\346\"\347\350%D\351\340\352\337EDC\217\353 @@!\203$\315\354\355 \353@@!\"\203\356\202\357\360\340\341\342\343\344\345!\361\"\347\350%D\351\340\362\360EDC\217\"\202%\363\364\365\366\367@@!\323#\370\371@@!\331\261\210\211@A\240\210\202\234 eb\210\372p!*\207" [epa-key-buffer-alist inhibit-read-only buffer-read-only epa-key epg-key-validity-alist epg-pubkey-algorithm-alist epg-key-sub-key-list assoc epg-sub-key-id t nil buffer-live-p generate-new-buffer format "*Key*%s" epa-key-mode make-local-variable erase-buffer epg-key-user-id-list " " epg-user-id-validity char-to-string rassq epg-user-id-string epg-decode-dn "\n" epg-sub-key-validity "%dbits" epg-sub-key-length epg-sub-key-algorithm "\n Created: " #1=#:err funcall make-byte-code 0 "\301\302\303\300@@!\"\207" vconcat vector [format-time-string "%Y-%m-%d" epg-sub-key-creation-time] 4 "\n\n(fn)" error #[257 "\300\207" ["????-??-??"] 2 "????-??-??\n\n(fn IGNORED)"] epg-sub-key-expiration-time time-less-p current-time "\n Expires: %s" "\n Expired: %s" #2=#:err [format-time-string "%Y-%m-%d" epg-sub-key-expiration-time] #[257 "\300\207" ["????-??-??"] 2 "????-??-??\n\n(fn IGNORED)"] "" "\n Capabilities: " mapconcat symbol-name epg-sub-key-capability "\n Fingerprint: " epg-sub-key-fingerprint pop-to-buffer] 25 "\n\n(fn KEY)"]) (defalias 'epa-display-info #[257 "\203o \305 r\306\307\310\311\312\313!\314\"\315\316%DC\216 \203\" \317 !\204& \320\321!\322 !\2032 \323\322 !!\210r q\210\324\325\326 \210c\210*\327 \210eb\210)\330 \fV\203\\ \331\332\325\330 \fZ\" \"\202m \333 !\210\330 \fV\205m \334\330 \fZ!*\207\335\336\"\207" [epa-popup-info-window epa-info-buffer buffer-read-only inhibit-read-only epa-info-window-height internal--before-save-selected-window funcall make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 "\n\n(fn)" buffer-live-p generate-new-buffer "*Info*" get-buffer-window delete-window t nil erase-buffer epa-info-mode window-height set-window-buffer split-window pop-to-buffer shrink-window message "%s"] 9 "\n\n(fn INFO)"]) (defalias 'epa-display-verify-result #[257 "\300\301!!\207" [epa-display-info epg-verify-result-to-string] 4 "\n\n(fn VERIFY-RESULT)"]) (make-obsolete 'epa-display-verify-result 'epa-display-info "23.1") (defalias 'epa-passphrase-callback-function #[771 "\301=\203 \302\303\304;\203 \303\305\"\202 \306\"\307!\310=\"\207\302\311=\203) \312\202@ \313\"\211\203: \303\314A#\202> \303\315\"\262!\207" [epg-user-id-alist SYM read-passwd format "Passphrase for symmetric encryption%s: " " for %s" "" epg-context-operation encrypt PIN "Passphrase for PIN: " assoc "Passphrase for %s %s: " "Passphrase for %s: "] 9 "\n\n(fn CONTEXT KEY-ID HANDBACK)"]) (defalias 'epa-progress-callback-function #[1542 "\211\206 \300\301\"\302V\203. U\203 \303\304\"\2022 \303\305\306\307!\245\310_!#\2022 \303\311\"\207" [format "Processing %s: " 0 message "%s...done" "%s...%d%%" floor float 100 "%s..."] 14 "\n\n(fn CONTEXT WHAT CHAR CURRENT TOTAL HANDBACK)"]) #@26 Decrypt FILE. (fn FILE) (defalias 'epa-decrypt-file #[257 "\301!\262\302!\301\303\304\305!\306Q\307!#!\310!\311\312\"\210\313\314\315\316\305 !\"B\"\210\317\316\305!\"\210\320#\210\317\321\305!\305!#\210\322\323\"\205S \324\325\322\323\"!!\207" [epa-protocol expand-file-name file-name-sans-extension read-file-name "To file (default " file-name-nondirectory ") " file-name-directory epg-make-context epg-context-set-passphrase-callback epa-passphrase-callback-function epg-context-set-progress-callback epa-progress-callback-function format "Decrypting %s..." message epg-decrypt-file "Decrypting %s...wrote %s" epg-context-result-for verify epa-display-info epg-verify-result-to-string] 11 (#$ . 17622) "fFile: "]) #@25 Verify FILE. (fn FILE) (defalias 'epa-verify-file #[257 "\301!\262\302!\303!\304\232\205 \305!\306\307\310\311\312!\"B\"\210\313\311\312!\"\210\314#\210\313\315\312!\"\210\316\317\"\205C \320\321\316\317\"!!\207" [epa-protocol expand-file-name epg-make-context file-name-extension "sig" file-name-sans-extension epg-context-set-progress-callback epa-progress-callback-function format "Verifying %s..." file-name-nondirectory message epg-verify-file "Verifying %s...done" epg-context-result-for verify epa-display-info epg-verify-result-to-string] 10 (#$ . 18366) "fFile: "]) (defalias 'epa--read-signature-type #[0 "\306\211\204g \307\310!\210\311 \262\211\312=\203 \313\262\202 \211\314=\203& \315\262\202 \211\316=\203a r\317\320!q\210p\321 \210\306\211\322\211\322 \323 \210\324\325!\210+\211 rq\210\326c\210)\327!\210)\266\202 \330\262\202 \207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only nil message "Signature type (n,c,d,?) " read-char 99 clear 100 detached 63 get-buffer-create "*Help*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook "n - Create a normal signature\nc - Create a cleartext signature\nd - Create a detached signature\n? - Show this help\n" internal-temp-output-buffer-show normal standard-output] 7 "\n\n(fn)"]) #@61 Sign FILE by SIGNERS keys selected. (fn FILE SIGNERS MODE) (defalias 'epa-sign-file #[771 "\303=\203# \204 \304>\204 \305\202. \306>\203 \307\202. \310\202. \311>\203- \312\202. \313P\314!\315 \"\210\316\n\"\210\317\"\210\320\321\"\210\322\323\324\325\326\n!\"B\"\210\327\325\326!\"\210\330$\210\327\331\326!\326!#\207" [epa-protocol epa-armor epa-textmode OpenPGP (nil t normal detached) ".asc" (t detached) ".sig" ".gpg" (t detached) ".p7s" ".p7m" epg-make-context epg-context-set-armor epg-context-set-textmode epg-context-set-signers epg-context-set-passphrase-callback epa-passphrase-callback-function epg-context-set-progress-callback epa-progress-callback-function format "Signing %s..." file-name-nondirectory message epg-sign-file "Signing %s...wrote %s"] 12 (#$ . 19745) (byte-code "\302\303\304!!\205 \305\306 !\307\310\311$\203 \312 \202 \313E\207" [current-prefix-arg epa-protocol expand-file-name read-file-name "File: " epa-select-keys epg-make-context "Select keys for signing.\nIf no one is selected, default secret key is used. " nil t epa--read-signature-type clear] 7)]) #@52 Encrypt FILE for RECIPIENTS. (fn FILE RECIPIENTS) (defalias 'epa-encrypt-file #[514 "\303=\203 \203 \304\202 \305\202 \306P\307!\310 \"\210\311\n\"\210\312\313\"\210\314\315\316\317\320 !\"B\"\210\321\317\320!\"\210\322$\210\321\323\320!\320!#\207" [epa-protocol epa-armor epa-textmode OpenPGP ".asc" ".gpg" ".p7m" epg-make-context epg-context-set-armor epg-context-set-textmode epg-context-set-passphrase-callback epa-passphrase-callback-function epg-context-set-progress-callback epa-progress-callback-function format "Encrypting %s..." file-name-nondirectory message epg-encrypt-file "Encrypting %s...wrote %s"] 11 (#$ . 20878) (byte-code "\301\302\303!!\304\305!\306\"D\207" [epa-protocol expand-file-name read-file-name "File: " epa-select-keys epg-make-context "Select recipients for encryption.\nIf no one is selected, symmetric encryption will be performed. "] 4)]) #@881 Decrypt the current region between START and END. If MAKE-BUFFER-FUNCTION is non-nil, call it to prepare an output buffer. It should return that buffer. If it copies the input, it should delete the text now being decrypted. It should leave point at the proper place to insert the plaintext. Be careful about using this command in Lisp programs! Since this function operates on regions, it does some tricks such as coding-system detection and unibyte/multibyte conversion. If you are sure how the data in the region should be treated, you should consider using the string based counterpart `epg-decrypt-string', or the file based counterpart `epg-decrypt-file' instead. For example: (let ((context (epg-make-context 'OpenPGP))) (decode-coding-string (epg-decrypt-string context (buffer-substring start end)) 'utf-8)) (fn START END &optional MAKE-BUFFER-FUNCTION) (defalias 'epa-decrypt-region #[770 "\212\306!\307\310\311\"\210\312\313\314B\"\210\315\314!\210\316{\"\262\315\317!\210\320 \2062 \321\322\"\2062 \323\"\262\203G r q\210\324\211c\210*\202\221 \325\326!\203] \324|\210b\210\211c\210)\202\221 r\327\330!q\210p\331 \210\307\211\324\211#\324 $\332 \210\333\334!\210+\211 %\211q\210c\210\335 \210\336!\210)\266\337\340\"\205\240 \341\342\337\340\"!!\266\202)\207" [epa-protocol coding-system-for-read inhibit-read-only default-directory buffer-read-only buffer-file-name epg-make-context nil epg-context-set-passphrase-callback epa-passphrase-callback-function epg-context-set-progress-callback epa-progress-callback-function "Decrypting..." message epg-decrypt-string "Decrypting...done" epa--decode-coding-string get-text-property epa-coding-system-used undecided t y-or-n-p "Replace the original text? " get-buffer-create "*Temp*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook epa-info-mode internal-temp-output-buffer-show epg-context-result-for verify epa-display-info epg-verify-result-to-string buffer-undo-list inhibit-modification-hooks standard-output] 11 (#$ . 21784) "r"]) (defalias 'epa--find-coding-system-for-mime-charset #[257 "\300 \211\203 \301@\302\"=\204 \211A\262\202 \211@\207" [coding-system-list coding-system-get mime-charset] 5 "\n\n(fn MIME-CHARSET)"]) #@195 Decrypt OpenPGP armors in the current region between START and END. Don't use this command in Lisp programs! See the reason described in the `epa-decrypt-region' documentation. (fn START END) (defalias 'epa-decrypt-armor-in-region #[514 "\212\214}\210b\210\301\211\302\303\301\304#\205J \305\224\262\302\306\301\304#\262\211\204& \307\310!\210b\210\206= \302\311\304#\205= \312\313\314\315!\227!!\211b\210\316\"\210)\202 \266\202*\207" [coding-system-for-read nil re-search-forward "-----BEGIN PGP MESSAGE-----$" t 0 "^-----END PGP MESSAGE-----$" error "Encryption armor beginning has no matching end" "^Charset: \\(.*\\)" epa--find-coding-system-for-mime-charset intern match-string 1 epa-decrypt-region] 8 (#$ . 24059) "r"]) #@589 Verify the current region between START and END. Don't use this command in Lisp programs! Since this function operates on regions, it does some tricks such as coding-system detection and unibyte/multibyte conversion. If you are sure how the data in the region should be treated, you should consider using the string based counterpart `epg-verify-string', or the file based counterpart `epg-verify-file' instead. For example: (let ((context (epg-make-context 'OpenPGP))) (decode-coding-string (epg-verify-string context (buffer-substring start end)) 'utf-8)) (fn START END) (defalias 'epa-verify-region #[514 "\306!\307\310\311\312B\"\210\313\312!\210\314\315{ \206 \316\317\"\"\"\262\313\320!\210\321\n\2067 \316\317\"\2067 \322\"\262\323\324!\203R \325\307 |\210b\210\211c\210*\202\207 r\326\327!q\210p\330 \210\307\211\"\325\211#\325 $ \331 \210\332\333!\210+\211 %\211q\210c\210\334 \210\335!\210)\266\336\337\"\205\226 \340\341\336\337\"!!\207" [epa-protocol coding-system-for-write coding-system-for-read buffer-read-only inhibit-read-only default-directory epg-make-context nil epg-context-set-progress-callback epa-progress-callback-function "Verifying..." message epg-verify-string epa--encode-coding-string get-text-property epa-coding-system-used "Verifying...done" epa--decode-coding-string undecided y-or-n-p "Replace the original text? " t get-buffer-create "*Temp*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook epa-info-mode internal-temp-output-buffer-show epg-context-result-for verify epa-display-info epg-verify-result-to-string buffer-file-name buffer-undo-list inhibit-modification-hooks standard-output] 12 (#$ . 24807) "r"]) #@212 Verify OpenPGP cleartext signed messages in the current region between START and END. Don't use this command in Lisp programs! See the reason described in the `epa-verify-region' documentation. (fn START END) (defalias 'epa-verify-cleartext-in-region #[514 "\212\214}\210b\210\300\211\301\302\300\303#\205: \304\224\262\301\305\300\303#\204# \306\307!\210\301\310\300\303#\262\211\2042 \306\311!\210\312\"\210\202 \266\202*\207" [nil re-search-forward "-----BEGIN PGP SIGNED MESSAGE-----$" t 0 "^-----BEGIN PGP SIGNATURE-----$" error "Invalid cleartext signed message" "^-----END PGP SIGNATURE-----$" "No cleartext tail" epa-verify-region] 8 (#$ . 26532) "r"]) (byte-code "\300\301!\203 \302\303\301\"\210\202 \302\303\304\"\210\300\207" [fboundp select-safe-coding-system defalias epa--select-safe-coding-system #[514 "\207" [buffer-file-coding-system] 3 "\n\n(fn FROM TO)"]] 3) #@605 Sign the current region between START and END by SIGNERS keys selected. Don't use this command in Lisp programs! Since this function operates on regions, it does some tricks such as coding-system detection and unibyte/multibyte conversion. If you are sure how the data should be treated, you should consider using the string based counterpart `epg-sign-string', or the file based counterpart `epg-sign-file' instead. For example: (let ((context (epg-make-context 'OpenPGP))) (epg-sign-string context (encode-coding-string (buffer-substring start end) 'utf-8))) (fn START END SIGNERS MODE) (defalias 'epa-sign-region #[1028 "\212\303!\304\305\306\"\210\307\306\"\210\310\"\210\311\312\"\210\313\314\315B\"\210\316\315!\210\317\320{ \"#\262\316\321!\210|\210b\210\322`\323\n\206F \"c\210`\324 \325\304\326\306\327\306\330\306\257\n#\266\202)\207" [epa-protocol epa-last-coding-system-specified coding-system-for-read epg-make-context nil epg-context-set-armor t epg-context-set-textmode epg-context-set-signers epg-context-set-passphrase-callback epa-passphrase-callback-function epg-context-set-progress-callback epa-progress-callback-function "Signing..." message epg-sign-string epa--encode-coding-string "Signing...done" add-text-properties epa--decode-coding-string epa-coding-system-used front-sticky rear-nonsticky start-open end-open] 19 (#$ . 27432) (byte-code " \206 \304\305 \306 \"\305 \306 \205 \307\310 !\311\312\313$\203% \314 \202& \315F\207" [current-prefix-arg coding-system-for-write epa-last-coding-system-specified epa-protocol epa--select-safe-coding-system region-beginning region-end epa-select-keys epg-make-context "Select keys for signing.\nIf no one is selected, default secret key is used. " nil t epa--read-signature-type clear] 8)]) (byte-code "\300\301!\203 \302\303\301\"\210\202 \302\303\304\"\210\300\207" [fboundp derived-mode-p defalias epa--derived-mode-p #[128 "\211>\204 \211\301N\211\262\204 \211\207" [major-mode derived-mode-parent] 4 "Non-nil if the current major mode is derived from one of MODES.\nUses the `derived-mode-parent' property of the symbol to trace backwards.\n\n(fn &rest MODES)"]] 3) #@626 Encrypt the current region between START and END for RECIPIENTS. Don't use this command in Lisp programs! Since this function operates on regions, it does some tricks such as coding-system detection and unibyte/multibyte conversion. If you are sure how the data should be treated, you should consider using the string based counterpart `epg-encrypt-string', or the file based counterpart `epg-encrypt-file' instead. For example: (let ((context (epg-make-context 'OpenPGP))) (epg-encrypt-string context (encode-coding-string (buffer-substring start end) 'utf-8) nil)) (fn START END RECIPIENTS SIGN SIGNERS) (defalias 'epa-encrypt-region #[1285 "\212\302!\303\304\305\"\210\306\305\"\210\203 \307\"\210\310\311\"\210\312\313\314B\"\210\315\314!\210\316\317 { \"$\262\315\320!\210|\210b\210\321`c\210`\322 \323\303\324\305\325\305\326\305\257\n#\266\202)\207" [epa-protocol epa-last-coding-system-specified epg-make-context nil epg-context-set-armor t epg-context-set-textmode epg-context-set-signers epg-context-set-passphrase-callback epa-passphrase-callback-function epg-context-set-progress-callback epa-progress-callback-function "Encrypting..." message epg-encrypt-string epa--encode-coding-string "Encrypting...done" add-text-properties epa-coding-system-used front-sticky rear-nonsticky start-open end-open] 20 (#$ . 29629) (byte-code "\304 !\305\n\206 \306\307 \310 \"\307 \310 \311\312\"\205 \313\314!\211\262\205+ \311\315\"\257\207" [current-prefix-arg epa-protocol coding-system-for-write epa-last-coding-system-specified epg-make-context nil epa--select-safe-coding-system region-beginning region-end epa-select-keys "Select recipients for encryption.\nIf no one is selected, symmetric encryption will be performed. " y-or-n-p "Sign? " "Select keys for signing. "] 10)]) #@57 Delete selected KEYS. (fn KEYS &optional ALLOW-SECRET) (defalias 'epa-delete-keys #[513 "\302!\303\304!\210\305#\210\303\306!\210\307\310 \"\207" [epa-protocol epa-list-keys-arguments epg-make-context message "Deleting..." epg-delete-keys "Deleting...done" apply epa--list-keys] 7 (#$ . 31474) (byte-code "\301 \211\204\n \302\303!\210\211A@\304=D\207" [epa-list-keys-arguments epa--marked-keys error "No keys selected" t] 4)]) #@35 Import keys from FILE. (fn FILE) (defalias 'epa-import-keys #[257 "\211C\211\303@!\240\210\304!\305\306\307@!\"\210\310\311\312\313\314\315\316\"\317\"\320\321%D\322\311\312\323\324\315\316\n!\325\"\326\327%\310EDC\217\210\330\331\"\203K \332\333\330\331\"!!\210 \334=\205U \335\336\n\"\262\207" [epa-protocol major-mode epa-list-keys-arguments expand-file-name epg-make-context message "Importing %s..." file-name-nondirectory #1=#:err funcall make-byte-code 0 "\302\301\300@\"\210\303\304\305\300@!\"\207" vconcat vector [epg-import-keys-from-file message "Importing %s...done" file-name-nondirectory] 4 "\n\n(fn)" error 257 "\301\302\303\300@!\"\207" [message "Importing %s...failed" file-name-nondirectory] 5 "\n\n(fn IGNORED)" epg-context-result-for import epa-display-info epg-import-result-to-string epa-key-list-mode apply epa--list-keys] 13 (#$ . 31914) "fFile: "]) #@46 Import keys from the region. (fn START END) (defalias 'epa-import-keys-region #[514 "\301!\302\303!\210\304\305\306\307\310\311\312 #\313\"\314\315%D\316\305\317\304EDC\217\210\320\321\"\2053 \322\323\320\321\"!!\207" [epa-protocol epg-make-context message "Importing..." #1=#:err funcall make-byte-code 0 "\303\302\300\301{\"\210\304\305!\207" vconcat vector [epg-import-keys-from-string message "Importing...done"] 4 "\n\n(fn)" error #[257 "\300\301!\207" [message "Importing...failed"] 3 "\n\n(fn IGNORED)"] epg-context-result-for import epa-display-info epg-import-result-to-string] 13 (#$ . 32807) "r"]) #@102 Import keys in the OpenPGP armor format in the current region between START and END. (fn START END) (defalias 'epa-import-armor-in-region #[514 "\212\214}\210b\210\300\211\301\302\300\303#\2053 \304\224\262\301\305\306\307!\310Q\300\303#\262\211\204+ \311\312!\210\313\"\210\202 \266\202*\207" [nil re-search-forward "-----BEGIN \\(PGP \\(PUBLIC\\|PRIVATE\\) KEY BLOCK\\)-----$" t 0 "^-----END " match-string 1 "-----$" error "No armor tail" epa-import-keys-region] 8 (#$ . 33432) "r"]) #@47 Export selected KEYS to FILE. (fn KEYS FILE) (defalias 'epa-export-keys #[514 "\302!\303 \"\210\304\305\306!\"\210\307#\210\304\310\306!\"\207" [epa-protocol epa-armor epg-make-context epg-context-set-armor message "Exporting to %s..." file-name-nondirectory epg-export-keys-to-file "Exporting to %s...done"] 7 (#$ . 33934) (byte-code "\302 \303\204 \304\305!\210\306\307\310@!@!\203 \311\202 \312P \"\262\306\313\314\315!\316Q\317!#!D\207" [epa-armor default-directory epa--marked-keys nil error "No keys selected" expand-file-name epg-sub-key-id epg-key-sub-key-list ".asc" ".gpg" read-file-name "To file (default " file-name-nondirectory ") " file-name-directory] 8)]) #@50 Insert selected KEYS after the point. (fn KEYS) (defalias 'epa-insert-keys #[257 "\301!\302\303\"\210\304\"c\207" [epa-protocol epg-make-context epg-context-set-armor t epg-export-keys-to-string] 5 (#$ . 34631) (byte-code "\301\302!\303\"C\207" [epa-protocol epa-select-keys epg-make-context "Select keys to export.\nIf no one is selected, default public key is exported. "] 3)]) (provide 'epa)