Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
[ HOME SHELL ]
Name
Size
Permission
Action
calc
[ DIR ]
drwxr-xr-x
calendar
[ DIR ]
drwxr-xr-x
cedet
[ DIR ]
drwxr-xr-x
emacs-lisp
[ DIR ]
drwxr-xr-x
emulation
[ DIR ]
drwxr-xr-x
erc
[ DIR ]
drwxr-xr-x
eshell
[ DIR ]
drwxr-xr-x
gnus
[ DIR ]
drwxr-xr-x
image
[ DIR ]
drwxr-xr-x
international
[ DIR ]
drwxr-xr-x
language
[ DIR ]
drwxr-xr-x
leim
[ DIR ]
drwxr-xr-x
mail
[ DIR ]
drwxr-xr-x
mh-e
[ DIR ]
drwxr-xr-x
net
[ DIR ]
drwxr-xr-x
nxml
[ DIR ]
drwxr-xr-x
obsolete
[ DIR ]
drwxr-xr-x
org
[ DIR ]
drwxr-xr-x
play
[ DIR ]
drwxr-xr-x
progmodes
[ DIR ]
drwxr-xr-x
term
[ DIR ]
drwxr-xr-x
textmodes
[ DIR ]
drwxr-xr-x
url
[ DIR ]
drwxr-xr-x
vc
[ DIR ]
drwxr-xr-x
COPYING
34.32
KB
-rw-r--r--
README
537
B
-rw-r--r--
abbrev.elc
34.55
KB
-rw-r--r--
align.elc
39.88
KB
-rw-r--r--
allout-widgets.elc
62.37
KB
-rw-r--r--
allout.elc
203.33
KB
-rw-r--r--
ansi-color.elc
17.12
KB
-rw-r--r--
apropos.elc
37.42
KB
-rw-r--r--
arc-mode.elc
58.06
KB
-rw-r--r--
array.elc
27.07
KB
-rw-r--r--
auth-source-pass.elc
11.68
KB
-rw-r--r--
auth-source.elc
64.32
KB
-rw-r--r--
autoarg.elc
6.63
KB
-rw-r--r--
autoinsert.elc
13.41
KB
-rw-r--r--
autorevert.elc
30.71
KB
-rw-r--r--
avoid.elc
11.62
KB
-rw-r--r--
battery.elc
24.42
KB
-rw-r--r--
bindings.elc
42.76
KB
-rw-r--r--
bookmark.elc
77.09
KB
-rw-r--r--
bs.elc
49.32
KB
-rw-r--r--
buff-menu.elc
27.02
KB
-rw-r--r--
button.elc
14.97
KB
-rw-r--r--
calculator.elc
53.9
KB
-rw-r--r--
case-table.elc
4.99
KB
-rw-r--r--
cdl.elc
1.07
KB
-rw-r--r--
char-fold.elc
311.81
KB
-rw-r--r--
chistory.elc
8.16
KB
-rw-r--r--
cmuscheme.elc
18.07
KB
-rw-r--r--
color.elc
12.83
KB
-rw-r--r--
comint.elc
114.46
KB
-rw-r--r--
completion.elc
41.12
KB
-rw-r--r--
composite.elc
27.94
KB
-rw-r--r--
cus-dep.elc
6.42
KB
-rw-r--r--
cus-edit.elc
139.04
KB
-rw-r--r--
cus-face.elc
10.54
KB
-rw-r--r--
cus-load.el
85.19
KB
-rw-r--r--
cus-start.elc
21.92
KB
-rw-r--r--
cus-theme.elc
25.05
KB
-rw-r--r--
custom.elc
47.41
KB
-rw-r--r--
dabbrev.elc
22.28
KB
-rw-r--r--
delim-col.elc
8.95
KB
-rw-r--r--
delsel.elc
9.2
KB
-rw-r--r--
descr-text.elc
26.87
KB
-rw-r--r--
desktop.elc
47.64
KB
-rw-r--r--
dframe.elc
19.92
KB
-rw-r--r--
dired-aux.elc
85.75
KB
-rw-r--r--
dired-loaddefs.el
22.29
KB
-rw-r--r--
dired-x.elc
44.53
KB
-rw-r--r--
dired.elc
127.27
KB
-rw-r--r--
dirtrack.elc
7.75
KB
-rw-r--r--
disp-table.elc
8.76
KB
-rw-r--r--
display-fill-column-indicator....
8.32
KB
-rw-r--r--
display-line-numbers.elc
8.67
KB
-rw-r--r--
dnd.elc
7.13
KB
-rw-r--r--
doc-view.elc
65.25
KB
-rw-r--r--
dom.elc
7.36
KB
-rw-r--r--
dos-fns.elc
6.14
KB
-rw-r--r--
dos-vars.elc
1.1
KB
-rw-r--r--
dos-w32.elc
11.67
KB
-rw-r--r--
double.elc
4.34
KB
-rw-r--r--
dynamic-setting.elc
2.2
KB
-rw-r--r--
ebuff-menu.elc
10.46
KB
-rw-r--r--
echistory.elc
4.75
KB
-rw-r--r--
ecomplete.elc
7.1
KB
-rw-r--r--
edmacro.elc
19.94
KB
-rw-r--r--
ehelp.elc
11.32
KB
-rw-r--r--
elec-pair.elc
21.41
KB
-rw-r--r--
electric.elc
23.69
KB
-rw-r--r--
elide-head.elc
2.65
KB
-rw-r--r--
emacs-lock.elc
9.29
KB
-rw-r--r--
env.elc
6.12
KB
-rw-r--r--
epa-dired.elc
1.62
KB
-rw-r--r--
epa-file.elc
8.65
KB
-rw-r--r--
epa-hook.elc
4.63
KB
-rw-r--r--
epa-mail.elc
9.43
KB
-rw-r--r--
epa.elc
45.25
KB
-rw-r--r--
epg-config.elc
8.97
KB
-rw-r--r--
epg.elc
166.06
KB
-rw-r--r--
expand.elc
9.07
KB
-rw-r--r--
ezimage.elc
9.65
KB
-rw-r--r--
face-remap.elc
16.58
KB
-rw-r--r--
facemenu.elc
27.89
KB
-rw-r--r--
faces.elc
90.21
KB
-rw-r--r--
ffap.elc
50.3
KB
-rw-r--r--
filecache.elc
16.69
KB
-rw-r--r--
fileloop.elc
6.62
KB
-rw-r--r--
filenotify.elc
28.49
KB
-rw-r--r--
files-x.elc
21.9
KB
-rw-r--r--
files.elc
236.95
KB
-rw-r--r--
filesets.elc
72.57
KB
-rw-r--r--
find-cmd.elc
4.9
KB
-rw-r--r--
find-dired.elc
10.41
KB
-rw-r--r--
find-file.elc
18.33
KB
-rw-r--r--
find-lisp.elc
7.66
KB
-rw-r--r--
finder-inf.el
41.27
KB
-rw-r--r--
finder.elc
14.73
KB
-rw-r--r--
flow-ctrl.elc
2.26
KB
-rw-r--r--
foldout.elc
7.25
KB
-rw-r--r--
follow.elc
40.63
KB
-rw-r--r--
font-core.elc
12.41
KB
-rw-r--r--
font-lock.elc
61.63
KB
-rw-r--r--
format-spec.elc
3.93
KB
-rw-r--r--
format.elc
27.56
KB
-rw-r--r--
forms.elc
35.1
KB
-rw-r--r--
frame.elc
85.94
KB
-rw-r--r--
frameset.elc
48.02
KB
-rw-r--r--
fringe.elc
10.23
KB
-rw-r--r--
generic-x.elc
40.27
KB
-rw-r--r--
help-at-pt.elc
11.15
KB
-rw-r--r--
help-fns.elc
45.35
KB
-rw-r--r--
help-macro.elc
4.25
KB
-rw-r--r--
help-mode.elc
23.89
KB
-rw-r--r--
help.elc
52.22
KB
-rw-r--r--
hex-util.elc
1.3
KB
-rw-r--r--
hexl.elc
35.39
KB
-rw-r--r--
hfy-cmap.elc
25.45
KB
-rw-r--r--
hi-lock.elc
29.38
KB
-rw-r--r--
hilit-chg.elc
28.77
KB
-rw-r--r--
hippie-exp.elc
21.52
KB
-rw-r--r--
hl-line.elc
11.23
KB
-rw-r--r--
htmlfontify-loaddefs.el
808
B
-rw-r--r--
htmlfontify.elc
67.51
KB
-rw-r--r--
ibuf-ext.elc
77.15
KB
-rw-r--r--
ibuf-macs.elc
12.47
KB
-rw-r--r--
ibuffer-loaddefs.el
12.68
KB
-rw-r--r--
ibuffer.elc
98.62
KB
-rw-r--r--
icomplete.elc
22.83
KB
-rw-r--r--
ido.elc
127.92
KB
-rw-r--r--
ielm.elc
19.2
KB
-rw-r--r--
iimage.elc
4.92
KB
-rw-r--r--
image-dired.elc
92.97
KB
-rw-r--r--
image-file.elc
6.53
KB
-rw-r--r--
image-mode.elc
42.56
KB
-rw-r--r--
image.elc
34.45
KB
-rw-r--r--
imenu.elc
24.94
KB
-rw-r--r--
indent.elc
23.63
KB
-rw-r--r--
info-look.elc
28.18
KB
-rw-r--r--
info-xref.elc
16.59
KB
-rw-r--r--
info.elc
144.48
KB
-rw-r--r--
informat.elc
9.73
KB
-rw-r--r--
isearch.elc
147.85
KB
-rw-r--r--
isearchb.elc
4.73
KB
-rw-r--r--
jit-lock.elc
23.49
KB
-rw-r--r--
jka-cmpr-hook.elc
13.07
KB
-rw-r--r--
jka-compr.elc
12.09
KB
-rw-r--r--
json.elc
22.76
KB
-rw-r--r--
jsonrpc.elc
31.65
KB
-rw-r--r--
kermit.elc
2.92
KB
-rw-r--r--
kmacro.elc
35.15
KB
-rw-r--r--
ldefs-boot.el
1.41
MB
-rw-r--r--
linum.elc
10.77
KB
-rw-r--r--
loaddefs.el
1.41
MB
-rw-r--r--
loadhist.elc
9.77
KB
-rw-r--r--
loadup.el
20.08
KB
-rw-r--r--
locate.elc
19.57
KB
-rw-r--r--
lpr.elc
9.44
KB
-rw-r--r--
ls-lisp.elc
22.7
KB
-rw-r--r--
macros.elc
7.23
KB
-rw-r--r--
makesum.elc
2.47
KB
-rw-r--r--
man.elc
53.85
KB
-rw-r--r--
master.elc
4.58
KB
-rw-r--r--
mb-depth.elc
3.56
KB
-rw-r--r--
md4.elc
8.12
KB
-rw-r--r--
menu-bar.elc
86.61
KB
-rw-r--r--
midnight.elc
10.22
KB
-rw-r--r--
minibuf-eldef.elc
6.43
KB
-rw-r--r--
minibuffer.elc
104.08
KB
-rw-r--r--
misc.elc
5.4
KB
-rw-r--r--
misearch.elc
12.37
KB
-rw-r--r--
mouse-copy.elc
3.61
KB
-rw-r--r--
mouse-drag.elc
6.43
KB
-rw-r--r--
mouse.elc
71.3
KB
-rw-r--r--
mpc.elc
79.29
KB
-rw-r--r--
msb.elc
26.76
KB
-rw-r--r--
mwheel.elc
12.83
KB
-rw-r--r--
newcomment.elc
39.43
KB
-rw-r--r--
notifications.elc
13.78
KB
-rw-r--r--
novice.elc
4.43
KB
-rw-r--r--
obarray.elc
1.71
KB
-rw-r--r--
outline.elc
37.04
KB
-rw-r--r--
paren.elc
8.69
KB
-rw-r--r--
password-cache.elc
3.57
KB
-rw-r--r--
pcmpl-cvs.elc
6.17
KB
-rw-r--r--
pcmpl-gnu.elc
12.96
KB
-rw-r--r--
pcmpl-linux.elc
3.09
KB
-rw-r--r--
pcmpl-rpm.elc
11.17
KB
-rw-r--r--
pcmpl-unix.elc
7.52
KB
-rw-r--r--
pcmpl-x.elc
8.95
KB
-rw-r--r--
pcomplete.elc
36.16
KB
-rw-r--r--
pixel-scroll.elc
10.82
KB
-rw-r--r--
plstore.elc
14.75
KB
-rw-r--r--
printing.elc
157.7
KB
-rw-r--r--
proced.elc
62.85
KB
-rw-r--r--
profiler.elc
42.81
KB
-rw-r--r--
ps-bdf.elc
12.69
KB
-rw-r--r--
ps-def.elc
2.23
KB
-rw-r--r--
ps-mule.elc
34.89
KB
-rw-r--r--
ps-print-loaddefs.el
2.6
KB
-rw-r--r--
ps-print.elc
141.17
KB
-rw-r--r--
ps-samp.elc
5.26
KB
-rw-r--r--
recentf.elc
48.73
KB
-rw-r--r--
rect.elc
26.88
KB
-rw-r--r--
register.elc
27.63
KB
-rw-r--r--
registry.elc
10.41
KB
-rw-r--r--
repeat.elc
5.14
KB
-rw-r--r--
replace.elc
84.62
KB
-rw-r--r--
reposition.elc
2.66
KB
-rw-r--r--
reveal.elc
7.16
KB
-rw-r--r--
rfn-eshadow.elc
7.23
KB
-rw-r--r--
rot13.elc
2.56
KB
-rw-r--r--
rtree.elc
4.09
KB
-rw-r--r--
ruler-mode.elc
21.87
KB
-rw-r--r--
savehist.elc
10.83
KB
-rw-r--r--
saveplace.elc
11.87
KB
-rw-r--r--
sb-image.elc
2.75
KB
-rw-r--r--
scroll-all.elc
4.41
KB
-rw-r--r--
scroll-bar.elc
16.68
KB
-rw-r--r--
scroll-lock.elc
5.41
KB
-rw-r--r--
select.elc
18.75
KB
-rw-r--r--
server.elc
47.56
KB
-rw-r--r--
ses.elc
131.12
KB
-rw-r--r--
shadowfile.elc
31.16
KB
-rw-r--r--
shell.elc
41.53
KB
-rw-r--r--
simple.elc
301.78
KB
-rw-r--r--
skeleton.elc
15.76
KB
-rw-r--r--
so-long.elc
47.15
KB
-rw-r--r--
sort.elc
15.49
KB
-rw-r--r--
soundex.elc
1.14
KB
-rw-r--r--
speedbar.elc
115.02
KB
-rw-r--r--
startup.elc
68.51
KB
-rw-r--r--
strokes.elc
44.03
KB
-rw-r--r--
subdirs.el
450
B
-rw-r--r--
subr.elc
186.63
KB
-rw-r--r--
svg.elc
12.71
KB
-rw-r--r--
t-mouse.elc
3.8
KB
-rw-r--r--
tab-bar.elc
52.48
KB
-rw-r--r--
tab-line.elc
29.85
KB
-rw-r--r--
tabify.elc
2.17
KB
-rw-r--r--
talk.elc
2.99
KB
-rw-r--r--
tar-mode.elc
57.2
KB
-rw-r--r--
tempo.elc
19.18
KB
-rw-r--r--
term.elc
107.99
KB
-rw-r--r--
thingatpt.elc
16.88
KB
-rw-r--r--
thread.elc
8.08
KB
-rw-r--r--
thumbs.elc
25.74
KB
-rw-r--r--
time-stamp.elc
18.69
KB
-rw-r--r--
time.elc
20.87
KB
-rw-r--r--
timezone.elc
10.94
KB
-rw-r--r--
tmm.elc
13.39
KB
-rw-r--r--
tool-bar.elc
9.76
KB
-rw-r--r--
tooltip.elc
13.19
KB
-rw-r--r--
tree-widget.elc
19.84
KB
-rw-r--r--
tutorial.elc
22.28
KB
-rw-r--r--
type-break.elc
37.35
KB
-rw-r--r--
uniquify.elc
17.68
KB
-rw-r--r--
userlock.elc
6.33
KB
-rw-r--r--
vcursor.elc
23.92
KB
-rw-r--r--
version.elc
6.01
KB
-rw-r--r--
view.elc
34.69
KB
-rw-r--r--
vt-control.elc
1.99
KB
-rw-r--r--
vt100-led.elc
1.33
KB
-rw-r--r--
w32-fns.elc
11.01
KB
-rw-r--r--
w32-vars.elc
5.16
KB
-rw-r--r--
wdired.elc
23.52
KB
-rw-r--r--
whitespace.elc
69.06
KB
-rw-r--r--
wid-browse.elc
8.48
KB
-rw-r--r--
wid-edit.elc
99.52
KB
-rw-r--r--
widget.elc
1.4
KB
-rw-r--r--
windmove.elc
19.82
KB
-rw-r--r--
window.elc
294.5
KB
-rw-r--r--
winner.elc
12.04
KB
-rw-r--r--
woman.elc
109.43
KB
-rw-r--r--
x-dnd.elc
19.56
KB
-rw-r--r--
xdg.elc
10.14
KB
-rw-r--r--
xml.elc
25.31
KB
-rw-r--r--
xt-mouse.elc
14.1
KB
-rw-r--r--
xwidget.elc
18.9
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : epa.elc
;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\312\313\314\315\301& \210\316\317\320\321\322DD\323\311\324\325\326\315\306& \210\316\327\320\321\330DD\331\325\332\315\306&\210\316\333\320\321\334DD\335\325\336\315\306&\210\305\337\307\340\311\312\315\306&\210\316\341\320\321\342DD\343\325\344\315\306\311\345& \210\346\347\350\351\315\337%\210\346\352\353\354\315\337%\210\346\355\356\357\315\337%\210\346\360\361\362\315\337%\210\346\363\364\365\315\337%\210\346\366\367\370\315\337%\210\346\371\372\373\315\306%\210\346\374\375\376\315\306%\210\316\377\320\321\201@ DD\201A \325\201B \315\306&\207" [require epg font-lock widget derived custom-declare-group epa nil "The EasyPG Assistant" :version "23.1" :link (custom-manual "(epa) Top") :group custom-declare-variable epa-replace-original-text funcall function #[0 "\300\207" [ask] 1] "Whether the original text shall be replaced by the decrypted.\n\nIf t, replace the original text without any confirmation.\nIf nil, don't replace the original text and show the result in a new buffer.\nIf neither t nor nil, ask user for confirmation." "26.1" :type (choice (const :tag "Never" nil) (const :tag "Ask the user" ask) (const :tag "Always" t)) epa-popup-info-window #[0 "\300\207" [t] 1] "If non-nil, display status information from epa commands in another window." boolean epa-info-window-height #[0 "\300\207" [5] 1] "Number of lines used to display status information." integer epa-faces "Faces for epa-mode." epa-mail-aliases #[0 "\300\207" [nil] 1] "Alist of aliases of email addresses that stand for encryption keys.\nEach element is a list of email addresses (ALIAS EXPANSIONS...).\nWhen one of the recipients of a message being encrypted is ALIAS,\ninstead of encrypting it for ALIAS, encrypt it for EXPANSIONS...\n\nIf EXPANSIONS is empty, ignore ALIAS as regards encryption.\nThis is a handy way to avoid warnings about addresses that you don't\nhave any key for.\n\nThe command `epa-mail-encrypt' uses this." (repeat (cons (string :tag "Alias") (repeat (string :tag "Expansion")))) "24.4" 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] "An alist mapping validity values to faces." (repeat (cons symbol face))] 10) #@43 Default expressions to addon in epa-mode. (defvar epa-font-lock-keywords '(("^\\*" (0 'epa-mark)) ("^ \\([^ :]+:\\)[ ]*\\(.*\\)$" (1 'epa-field-name) (2 'epa-field-body))) (#$ . 4142)) (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 (#$ . 4443)) #@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 (#$ . 4626)) #@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 (#$ . 4793)) (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-error-buffer nil) (defvar epa-suppress-error-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\335#\210\301\337\340#\210\301\341\342B#\210\301\343\344#\210\301\345\346#\210\301\347\350#\210\301\351\352#\210\301\353\354#\210\301\355\356#\210\301\357\360#\210\301\361\362#\210\301\363\364#\210\301\365\366#\210\301\367\370#\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 [33554464] scroll-down-command [delete] "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 'quit-window) (define-widget 'epa-key 'push-button "Button for representing an 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) #@31 (fn WIDGET &optional EVENT) (defalias 'epa--key-widget-action #[513 "\300 r\301\302\303\304\305!\306\"\307$\216\310\311\312\"!*\207" [internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 epa--show-key widget-get :value] 9 (#$ . 7653)]) #@15 (fn WIDGET) (defalias 'epa--key-widget-value-create #[257 "\304\305\"\306!>\204 \307\310\311D\"\210\211\312H@\306!>\204& \307\310\311D\"\210\313H@\314\315\306! >\204< \307\310\316D\"\210\317H\203\\ \320\306! >\204S \307\310\316D\"\210\317H\n\"@\202] \321\"\306! >\204m \307\310\316D\"\210\322H\323\203\272 \306! >\204\205 \307\310\324D\"\210\312H;\203\242 \306! >\204\234 \307\310\324D\"\210\312H\202\273 \325\306! >\204\263 \307\310\324D\"\210\312H!\202\273 \326\261\207" [cl-struct-epg-key-tags cl-struct-epg-sub-key-tags epg-key-validity-alist cl-struct-epg-user-id-tags widget-get :value type-of signal wrong-type-argument epg-key 2 3 format "%c " epg-sub-key 1 rassq 32 6 " " epg-user-id epg-decode-dn ""] 12 (#$ . 7973)]) #@15 (fn WIDGET) (defalias 'epa--key-widget-button-face-get #[257 "\303\304\"\305!>\204 \306\307\310D\"\210\211\311H\262@\305! >\204( \306\307\312D\"\210\211\313H\262\211\2038 \211\n\236A\2029 \314\207" [cl-struct-epg-key-tags cl-struct-epg-sub-key-tags epa-validity-face-alist widget-get :value type-of signal wrong-type-argument epg-key 2 epg-sub-key 1 default] 6 (#$ . 8743)]) #@15 (fn WIDGET) (defalias 'epa--key-widget-help-echo #[257 "\302\303\304\305\"\306!>\204 \307\310\311D\"\210\211\312H\262@\306! >\204* \307\310\313D\"\210\211\314H\262\"\207" [cl-struct-epg-key-tags cl-struct-epg-sub-key-tags format "Show %s" widget-get :value type-of signal wrong-type-argument epg-key 2 epg-sub-key 6] 8 (#$ . 9135)]) (defvar epa-key-list-mode-hook nil) (byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [epa-key-list-mode-hook variable-documentation put "Hook run after entering EPA Keys mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp epa-key-list-mode-map definition-name epa-key-list-mode] 4) (defvar epa-key-list-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [epa-key-list-mode-abbrev-table epa-key-list-mode-map variable-documentation put purecopy "Keymap for `epa-key-list-mode'." boundp epa-key-list-mode-syntax-table definition-name epa-key-list-mode (lambda (#1=#:def-tmp-var) (defvar epa-key-list-mode-syntax-table #1#)) make-syntax-table "Syntax table for `epa-key-list-mode'." (lambda (#1#) (defvar epa-key-list-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `epa-key-list-mode'." derived-mode-parent special-mode] 5) #@238 Major mode for `epa-list-keys'. In addition to any hooks its parent mode `special-mode' might have run, this mode runs the hook `epa-key-list-mode-hook', as the final or penultimate step during initialization. \{epa-key-list-mode-map} (defalias 'epa-key-list-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324 \325\"\204R !=\204R \326 \325!C#\210\327 !\210\330\f!\210 !\331 \210\307\211\"#\306\332!\210\333\306\334!\210\306\335!\210\336 )\337\340!\207" [delay-mode-hooks major-mode mode-name epa-key-list-mode-map epa-key-list-mode-syntax-table epa-key-list-mode-abbrev-table make-local-variable t special-mode epa-key-list-mode "EPA Keys" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table buffer-disable-undo font-lock-defaults (epa-font-lock-keywords t) epa-exit-buffer-function revert-buffer-function epa--key-list-revert-buffer run-mode-hooks epa-key-list-mode-hook local-abbrev-table truncate-lines buffer-read-only] 6 (#$ . 10713) nil]) (defvar epa-key-mode-hook nil) (byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [epa-key-mode-hook variable-documentation put "Hook run after entering EPA Key mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp epa-key-mode-map definition-name epa-key-mode] 4) (defvar epa-key-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [epa-key-mode-abbrev-table epa-key-mode-map variable-documentation put purecopy "Keymap for `epa-key-mode'." boundp epa-key-mode-syntax-table definition-name epa-key-mode (lambda (#1=#:def-tmp-var) (defvar epa-key-mode-syntax-table #1#)) make-syntax-table "Syntax table for `epa-key-mode'." (lambda (#1#) (defvar epa-key-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `epa-key-mode'." derived-mode-parent special-mode] 5) #@230 Major mode for a key description. In addition to any hooks its parent mode `special-mode' might have run, this mode runs the hook `epa-key-mode-hook', as the final or penultimate step during initialization. \{epa-key-mode-map} (defalias 'epa-key-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324 \325\"\204R =\204R \326 \325 C#\210\327 !\210\330\f!\210 \331 \210\307\211 !\306\332!\210\333\306\334!\210)\335\336!\207" [delay-mode-hooks major-mode mode-name epa-key-mode-map epa-key-mode-syntax-table epa-key-mode-abbrev-table make-local-variable t special-mode epa-key-mode "EPA Key" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table buffer-disable-undo font-lock-defaults (epa-font-lock-keywords t) epa-exit-buffer-function run-mode-hooks epa-key-mode-hook local-abbrev-table truncate-lines buffer-read-only] 6 (#$ . 13118) nil]) (defvar epa-info-mode-hook nil) (byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [epa-info-mode-hook variable-documentation put "Hook run after entering EPA Info mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp epa-info-mode-map definition-name epa-info-mode] 4) (defvar epa-info-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [epa-info-mode-abbrev-table epa-info-mode-map variable-documentation put purecopy "Keymap for `epa-info-mode'." boundp epa-info-mode-syntax-table definition-name epa-info-mode (lambda (#1=#:def-tmp-var) (defvar epa-info-mode-syntax-table #1#)) make-syntax-table "Syntax table for `epa-info-mode'." (lambda (#1#) (defvar epa-info-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `epa-info-mode'." derived-mode-parent special-mode] 5) #@232 Major mode for `epa-info-buffer'. In addition to any hooks its parent mode `special-mode' might have run, this mode runs the hook `epa-info-mode-hook', as the final or penultimate step during initialization. \{epa-info-mode-map} (defalias 'epa-info-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324 \325\"\204R =\204R \326 \325 C#\210\327 !\210\330\f!\210 \331 \210\307\211 )\332\333!\207" [delay-mode-hooks major-mode mode-name epa-info-mode-map epa-info-mode-syntax-table epa-info-mode-abbrev-table make-local-variable t special-mode epa-info-mode "EPA Info" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table buffer-disable-undo run-mode-hooks epa-info-mode-hook local-abbrev-table truncate-lines buffer-read-only] 6 (#$ . 15428) nil]) #@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\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 (#$ . 16472) "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 (#$ . 16923) "P"]) #@77 Exit the current buffer. `epa-exit-buffer-function' is called if it is set. (defalias 'epa-exit-buffer #[0 " \207" [epa-exit-buffer-function] 1 (#$ . 17098) nil]) #@13 (fn KEYS) (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 (#$ . 17268)]) #@20 (fn NAME SECRET) (defalias 'epa--list-keys #[514 "\203\n \306!\204 \307\310!q\210\311 \210\312\313e\314 !\315\316\"\204+ \317\316\"\262\203= \317\316\"\2068 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 (#$ . 17669)]) #@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 (#$ . 18327) (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 (#$ . 18655) (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)]) #@40 (fn &optional IGNORE-AUTO NOCONFIRM) (defalias 'epa--key-list-revert-buffer #[512 "\301\302\"\207" [epa-list-keys-arguments apply epa--list-keys] 5 (#$ . 18989)]) (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]) #@20 (fn PROMPT KEYS) (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\331\332&\210\324\325\326\333\330\334\335&\210\336c\210\337!\210\340 \210\341\313 \"\210\342eb\210\343 \344p!\210+\345\216\346 \210\347 *\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 push-button :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 #[0 "\301!\207" [epa-keys-buffer kill-buffer] 2] recursive-edit epa--marked-keys] 9 (#$ . 19443)]) #@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 (#$ . 20659)]) #@12 (fn KEY) (defalias 'epa--show-key #[257 "\306!>\204 \307\310\311D\"\210\211\312H@\313\306! >\204# \307\310\314D\"\210\315H\n\"\316\317\211 \204K \306! >\204@ \307\310\314D\"\210\315H\317B\262\nBA\203W \320A!\204t \321\322\323\306! >\204l \307\310\314 D\"\210\315H\"!\241\210Aq\210\324 \210\325\305!\210\326 \210\306!>\204\224 \307\310\311D\"\210\327H\262\211\2038\211@\2031\330\306@!4>\204\265 \307\310\331@D\"\210@\332H\203\335 \333\334\306@!4>\204\321 \307\310\331@D\"\210@\332H5\"@!\202\336 \330\330\306@!4>\204\362 \307\310\331@D\"\210@\312H;\203\306@!4>\204 \307\310\331@D\"\210@\312H\202-\335\306@!4>\204(\307\310\331@D\"\210@\312H!\336\261\210\211A\262\202\231 \306!>\204H\307\310\311D\"\210\312H\262\211\203\253\330\306@! >\204c\307\310\314@D\"\210@\332H\203\212\333\334\306@! >\204~\307\310\314@D\"\210@\332H5\"@!\202\213\330\330\306@! >\204\236\307\310\314@D\"\210@\315H\330\322\337\306@! >\204\270\307\310\314\n@D\"\210@\340H\"\330\306@! >\204\322\307\310\314\n@D\"\210@\341H6\236A\342\3431\377\344\345\306\f@! >\204\365\307\310\314@D\"\210 @\346H\"0\202\210\347\306 @! >\204\307\310\314 @D\"\210\n@\350H\203i\322\351\317\306@! >\2042\307\310\314@D\"\210 @\350H\"\203?\352\202@\353\3541c\344\345\306@! >\204Y\307\310\314@D\"\210@\350H\"0\202e\210\347\"\202j\355\356\357\360\306@! >\204\200\307\310\314@D\"\210@\312H\330#\361\306@! >\204\233\307\310\314@D\"\210@\362H\336\261\210\211A\262\202Meb\210\363p!*\207" [cl-struct-epg-key-tags cl-struct-epg-sub-key-tags epa-key-buffer-alist inhibit-read-only buffer-read-only epa-key type-of signal wrong-type-argument epg-key 2 assoc epg-sub-key 6 t nil buffer-live-p generate-new-buffer format "*Key*%s" epa-key-mode make-local-variable erase-buffer 3 " " epg-user-id 1 char-to-string rassq epg-decode-dn "\n" "%dbits" 5 4 "\n Created: " (error) format-time-string "%Y-%m-%d" 7 "????-??-??" 8 time-less-p "\n Expires: %s" "\n Expired: %s" (error) "" "\n Capabilities: " mapconcat symbol-name "\n Fingerprint: " 9 pop-to-buffer cl-struct-epg-user-id-tags epg-key-validity-alist epg-pubkey-algorithm-alist] 23 (#$ . 21086)]) #@13 (fn INFO) (defalias 'epa-display-info #[257 "\203j \305 r\306\307\310\311\312!\313\"\314$\216 \203 \315 !\204! \316\317!\320 !\203- \321\320 !!\210r q\210\322\323\324 \210c\210*\325 \210eb\210)\326 \fV\203W \327\330\323\326 \fZ\" \"\202h \331 !\210\326 \fV\205h \332\326 \fZ!*\207\333\334\"\207" [epa-popup-info-window epa-info-buffer buffer-read-only inhibit-read-only epa-info-window-height internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 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"] 8 (#$ . 23325)]) #@16 (fn CONTEXT) (defalias 'epa-display-error #[257 "\305!>\204 \306\307\310D\"\210\211\311H\312\232\206 ?\205\303 \313\314!\315 r\316\317\320\321\322!\323\"\324$\216\n\2038 \325\n!\204< \326\314!\327\n!\203H \330\327\n!!\210rq\210\331\332 \333 \210\334\305!>\204d \306\307\310D\"\210\335H\211\336\267\202\205 \337\202\206 \340\202\206 \341\202\206 \342\202\206 \343\202\206 \344\202\206 \345\262\305!>\204\230 \306\307\310D\"\210\324H\"\346\305!>\204\255 \306\307\310D\"\210\311H\261\210*\347 \210eb\210)\350!*\262\262\207" [cl-struct-epg-context-tags epa-suppress-error-buffer epa-error-buffer buffer-read-only inhibit-read-only type-of signal wrong-type-argument epg-context 21 "" get-buffer-create "*Error*" internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 buffer-live-p generate-new-buffer get-buffer-window delete-window t nil erase-buffer format 19 #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (decrypt 109 verify 113 sign 117 encrypt 121 import-keys 125 export-keys 129)) "Error while decrypting with \"%s\":" "Error while verifying with \"%s\":" "Error while signing with \"%s\":" "Error while encrypting with \"%s\":" "Error while importing keys with \"%s\":" "Error while exporting keys with \"%s\":" "Error while executing \"%s\":\n\n" "\n\n" epa-info-mode display-buffer] 9 (#$ . 24073)]) #@22 (fn VERIFY-RESULT) (defalias 'epa-display-verify-result #[257 "\300\301!!\207" [epa-display-info epg-verify-result-to-string] 4 (#$ . 25527)]) (make-obsolete 'epa-display-verify-result 'epa-display-info "23.1") #@32 (fn CONTEXT KEY-ID HANDBACK) (defalias 'epa-passphrase-callback-function #[771 "\302=\203. \303\304\305;\203 \304\306\"\202 \307\"\310!>\204' \311\312\313D\"\210\314H\315=\"\207\303\316=\2039 \317\202P \320 \"\211\203J \304\321A#\202N \304\322\"\262!\207" [cl-struct-epg-context-tags epg-user-id-alist SYM read-passwd format "Passphrase for symmetric encryption%s: " " for %s" "" type-of signal wrong-type-argument epg-context 19 encrypt PIN "Passphrase for PIN: " assoc "Passphrase for %s %s: " "Passphrase for %s: "] 9 (#$ . 25747)]) #@49 (fn CONTEXT WHAT CHAR CURRENT TOTAL HANDBACK) (defalias 'epa-progress-callback-function #[1542 "\211\206 \300\301\"\302V\203+ U\203 \303\304\"\202/ \303\305\306\307_\"#\202/ \303\310\"\207" [format "Processing %s: " 0 message "%s...done" "%s...%d%%" floor 100.0 "%s..."] 13 (#$ . 26307)]) #@78 Interactively read an output file name based on INPUT file name. (fn INPUT) (defalias 'epa-read-file-name #[257 "\300\301!!\262\301\302\303\304!\305Q\306!#!\207" [file-name-sans-extension expand-file-name read-file-name "To file (default " file-name-nondirectory ") " file-name-directory] 6 (#$ . 26618)]) #@158 Decrypt DECRYPT-FILE into PLAIN-FILE. If you do not specify PLAIN-FILE, this functions prompts for the value to use. (fn DECRYPT-FILE &optional PLAIN-FILE) (defalias 'epa-decrypt-file #[513 "\211\204 \301!\262\302!\262\303!\304\305\"\210\306\307\310\311\312!\"B\"\210\313\311\312!\"\210\31417 \315#0\202C \316!\210\317@A\"\262\210\313\320\312!\312!#\210\321\322\"\205] \323\324\321\322\"!!\207" [epa-protocol epa-read-file-name expand-file-name epg-make-context epg-context-set-passphrase-callback epa-passphrase-callback-function epg-context-set-progress-callback epa-progress-callback-function format "Decrypting %s..." file-name-nondirectory message (error) epg-decrypt-file epa-display-error signal "Decrypting %s...wrote %s" epg-context-result-for verify epa-display-info epg-verify-result-to-string] 10 (#$ . 26937) (byte-code "\300\301!\302!D\207" [read-file-name "File to decrypt: " epa-read-file-name] 4)]) #@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\31414 \315#0\202@ \316!\210\317@A\"\262\210\313\320\312!\"\210\321\322\"\203Z \323\324\321\322\"!!\202] \313\325!\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 (error) epg-verify-file epa-display-error signal "Verifying %s...done" epg-context-result-for verify epa-display-info epg-verify-result-to-string "Verification not successful"] 10 (#$ . 27885) "fFile: "]) (defalias 'epa--read-signature-type #[0 "\306\211\204[ \307\310!\210\311 \262\211\312\267\202U \313\262\202 \314\262\202 r\315\316!q\210p\317 \210\306\211\320\211\320 \321 \210\322\323!\210+\211 rq\210\324c\210)\325!\210)\266\202 \326\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 #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (99 20 100 26 63 32)) clear detached 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]) #@61 Sign FILE by SIGNERS keys selected. (fn FILE SIGNERS MODE) (defalias 'epa-sign-file #[771 "\304=\203# \204 \305>\204 \306\202. \307>\203 \310\202. \311\202. \312>\203- \313\202. \314P\315!\316!\n>\204A \317\320\321D\"\210\211\211\322 I\266\316!\n>\204W \317\320\321D\"\210\211\211\323 I\266\316!\n>\204m \317\320\321D\"\210\211\211\324I\266\325\326\"\210\327\330\331\332\333\n!\"B\"\210\334\332\333!\"\210\3351\237 \336$0\202\253 \337!\210\317@A\"\262\210\334\340\333!\333!#\207" [epa-protocol epa-armor cl-struct-epg-context-tags epa-textmode OpenPGP (nil t normal detached) ".asc" (t detached) ".sig" ".gpg" (t detached) ".p7s" ".p7m" epg-make-context type-of signal wrong-type-argument epg-context 4 5 13 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 (error) epg-sign-file epa-display-error "Signing %s...wrote %s"] 12 (#$ . 29440) (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 "\304=\203 \203 \305\202 \306\202 \307P\310!\311!\n>\204' \312\313\314D\"\210\211\211\315 I\266\311!\n>\204= \312\313\314D\"\210\211\211\316 I\266\317\320\"\210\321\322\323\324\325 !\"B\"\210\326\324\325!\"\210\3271l \330$0\202x \331!\210\312@A\"\262\210\326\332\325!\325!#\207" [epa-protocol epa-armor cl-struct-epg-context-tags epa-textmode OpenPGP ".asc" ".gpg" ".p7m" epg-make-context type-of signal wrong-type-argument epg-context 4 5 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 (error) epg-encrypt-file epa-display-error "Encrypting %s...wrote %s"] 11 (#$ . 30780) (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)]) #@885 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\3161( \317{\"\211\2620\2024 \320!\210\321@A\"\262\210\315\322!\210\323 \206H \324\325\"\206H \326\"\262\203] r q\210\327\211c\210*\202\262 \327=\204m \203} \330\331!\203} \327|\210b\210\211c\210)\202\262 \fr\332\333!q\210p\334 \210\307\211&\327\211'\327 (\335 \210\336\337!\210+\211 )\211q\210c\210\340 \210\341!\210)\266\342\343\"\205\301 \344\345\342\343\"!!\266\202)\207" [epa-protocol coding-system-for-read inhibit-read-only epa-replace-original-text default-directory buffer-read-only epg-make-context nil epg-context-set-passphrase-callback epa-passphrase-callback-function epg-context-set-progress-callback epa-progress-callback-function "Decrypting..." message (error) epg-decrypt-string epa-display-error signal "Decrypting...done" 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-file-name buffer-undo-list inhibit-modification-hooks standard-output] 11 (#$ . 31865) "r"]) #@21 (fn MIME-CHARSET) (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 (#$ . 34064)]) #@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 (#$ . 34281) "r"]) (byte-code "\300\301\302\303#\300\207" [function-put epa-decrypt-armor-in-region interactive-only t] 4) #@593 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! >\204 \311\312\313D\"\210\211\314\315\316BI\266\317\316!\210\3201> \321\322{\n\2065 \323\324\"\"\"\211\2620\202J \325!\210\311@A\"\262\210\317\326!\210\327 \206^ \323\324\"\206^ \330\"\262\331\332\"\204l \333\334!\210\f\335=\204| \f\203\217 \336\337!\203\217 \335\307 *|\210b\210\211c\210*\202\307 +r\340\341!q\210p\342 \210+\307\211,\335\211-\335 . *\343 \210\344\345!\210+\211 /\211q\210c\210\346 \210\347!\210)\266\331\332\"\205\326 \350\351\331\332\"!!\207" [epa-protocol cl-struct-epg-context-tags coding-system-for-write coding-system-for-read epa-replace-original-text buffer-read-only epg-make-context nil type-of signal wrong-type-argument epg-context 11 epa-progress-callback-function "Verifying..." message (error) epg-verify-string encode-coding-string get-text-property epa-coding-system-used epa-display-error "Verifying...done" decode-coding-string undecided epg-context-result-for verify error "Unable to verify region" 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 epa-display-info epg-verify-result-to-string inhibit-read-only default-directory buffer-file-name buffer-undo-list inhibit-modification-hooks standard-output] 12 (#$ . 35133) "r"]) (byte-code "\300\301\302\303#\300\207" [function-put epa-verify-region interactive-only t] 4) #@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 (#$ . 37218) "r"]) (byte-code "\300\301\302\303#\300\207" [function-put epa-verify-cleartext-in-region interactive-only t] 4) #@609 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\304!\305\306! >\204 \307\310\311D\"\210\211\312\313I\266\306! >\204* \307\310\311D\"\210\211\314\313I\266\306! >\204@ \307\310\311D\"\210\211\315I\266\316\317\"\210\320\321\322B\"\210\323\322!\210\3241o \325\326{\n\"#\211\2620\202{ \327!\210\307@A\"\262\210\323\330!\210|\210b\210\331`\332 \206\220 \n\"c\210`\333\n\334\305\335\313\336\313\337\313\257\n#\266\202)\207" [epa-protocol cl-struct-epg-context-tags epa-last-coding-system-specified coding-system-for-read epg-make-context nil type-of signal wrong-type-argument epg-context 4 t 5 13 epg-context-set-passphrase-callback epa-passphrase-callback-function epg-context-set-progress-callback epa-progress-callback-function "Signing..." message (error) epg-sign-string encode-coding-string epa-display-error "Signing...done" add-text-properties decode-coding-string epa-coding-system-used front-sticky rear-nonsticky start-open end-open] 19 (#$ . 38003) (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 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\302\303#\304\305\306\307!\203 \307\202 \310\"\207" [function-put epa-sign-region interactive-only t defalias epa--derived-mode-p fboundp 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)"]] 5) #@630 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\303!\304\305! >\204 \306\307\310D\"\210\211\311\312I\266\305! >\204* \306\307\310D\"\210\211\313\312I\266\203K \305! >\204D \306\307\310D\"\210\211\314I\266\315\316\"\210\317\320\321B\"\210\322\321!\210\3231u \324\325 {\n\"$\211\2620\202\201 \326!\210\306@A\"\262\210\322\327!\210|\210b\210\330`c\210`\331\n\332\304\333\312\334\312\335\312\257\n#\266\202)\207" [epa-protocol cl-struct-epg-context-tags epa-last-coding-system-specified epg-make-context nil type-of signal wrong-type-argument epg-context 4 t 5 13 epg-context-set-passphrase-callback epa-passphrase-callback-function epg-context-set-progress-callback epa-progress-callback-function "Encrypting..." message (error) epg-encrypt-string encode-coding-string epa-display-error "Encrypting...done" add-text-properties epa-coding-system-used front-sticky rear-nonsticky start-open end-open] 20 (#$ . 40435) (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 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)]) (byte-code "\300\301\302\303#\300\207" [function-put epa-encrypt-region interactive-only t] 4) #@57 Delete selected KEYS. (fn KEYS &optional ALLOW-SECRET) (defalias 'epa-delete-keys #[513 "\302!\303\304!\210\3051 \306#0\202 \307!\210\310@A\"\262\210\303\311!\210\312\313 \"\207" [epa-protocol epa-list-keys-arguments epg-make-context message "Deleting..." (error) epg-delete-keys epa-display-error signal "Deleting...done" apply epa--list-keys] 7 (#$ . 42571) (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 "\303!\262\304!\305\306\307!\"\210\3101\" \311\"\210\305\312\307!\"0\202- \210\313!\210\305\314\307!\"\210\315\316\"\203> \317\320\315\316\"!!\210 \321=\205H \322\323\n\"\207" [epa-protocol major-mode epa-list-keys-arguments expand-file-name epg-make-context message "Importing %s..." file-name-nondirectory (error) epg-import-keys-from-file "Importing %s...done" epa-display-error "Importing %s...failed" epg-context-result-for import epa-display-info epg-import-result-to-string epa-key-list-mode apply epa--list-keys] 7 (#$ . 43083) "fFile: "]) #@46 Import keys from the region. (fn START END) (defalias 'epa-import-keys-region #[514 "\301!\302\303!\210\3041 \305{\"\210\302\306!0\202! \210\307!\210\302\310!\210\311\312\"\2051 \313\314\311\312\"!!\207" [epa-protocol epg-make-context message "Importing..." (error) epg-import-keys-from-string "Importing...done" epa-display-error "Importing...failed" epg-context-result-for import epa-display-info epg-import-result-to-string] 8 (#$ . 43715) "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 (#$ . 44180) "r"]) #@47 Export selected KEYS to FILE. (fn KEYS FILE) (defalias 'epa-export-keys #[514 "\303!\304! >\204 \305\306\307D\"\210\211\211\310\nI\266\311\312\313!\"\210\3141- \315#0\2029 \316!\210\305@A\"\262\210\311\317\313!\"\207" [epa-protocol cl-struct-epg-context-tags epa-armor epg-make-context type-of signal wrong-type-argument epg-context 4 message "Exporting to %s..." file-name-nondirectory (error) epg-export-keys-to-file epa-display-error "Exporting to %s...done"] 7 (#$ . 44682) (byte-code "\304 \305\204 \306\307!\210\310\311\211@!>\204 \312\313\314@D\"\210@\315H@! >\204H \312\313\316\311@!>\204@ \312\313\314@D\"\210@\315H@D\"\210\311@!>\204Y \312\313\314@D\"\210@\315H@\317H\n\203h \320\202i \321P \"\262\310\322\323\324!\325Q\326!#!D\207" [cl-struct-epg-key-tags cl-struct-epg-sub-key-tags epa-armor default-directory epa--marked-keys nil error "No keys selected" expand-file-name type-of signal wrong-type-argument epg-key 2 epg-sub-key 6 ".asc" ".gpg" read-file-name "To file (default " file-name-nondirectory ") " file-name-directory] 10)]) #@50 Insert selected KEYS after the point. (fn KEYS) (defalias 'epa-insert-keys #[257 "\302!\303! >\204 \304\305\306D\"\210\211\211\307\310I\266\3111& \312\"c0\2022 \313!\210\304@A\"\262\207" [epa-protocol cl-struct-epg-context-tags epg-make-context type-of signal wrong-type-argument epg-context 4 t (error) epg-export-keys-to-string epa-display-error] 6 (#$ . 45774) (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)
Close
