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 /
jed /
lib /
[ HOME SHELL ]
Name
Size
Permission
Action
colors
[ DIR ]
drwxr-xr-x
abbrev.sl
838
B
-rw-r--r--
abbrev.slc
636
B
-rw-r--r--
abbrmisc.sl
2.15
KB
-rw-r--r--
abbrmisc.slc
1.98
KB
-rw-r--r--
aboutjed.hlp
252
B
-rw-r--r--
acompile.sl
2.04
KB
-rw-r--r--
acompile.slc
2.02
KB
-rw-r--r--
aprocess.sl
267
B
-rw-r--r--
aprocess.slc
238
B
-rw-r--r--
ashell.sl
7.69
KB
-rw-r--r--
ashell.slc
6.96
KB
-rw-r--r--
backups.sl
1.41
KB
-rw-r--r--
backups.slc
637
B
-rw-r--r--
bibtex.sl
17.05
KB
-rw-r--r--
bibtex.slc
12.74
KB
-rw-r--r--
binary.sl
589
B
-rw-r--r--
binary.slc
522
B
-rw-r--r--
bookmark.sl
1.6
KB
-rw-r--r--
bookmark.slc
1.2
KB
-rw-r--r--
brief.sl
5.98
KB
-rw-r--r--
buf.sl
3.41
KB
-rw-r--r--
buf.slc
1.96
KB
-rw-r--r--
bufed.sl
6.69
KB
-rw-r--r--
bufed.slc
4.68
KB
-rw-r--r--
bytecomp.sl
3.38
KB
-rw-r--r--
cal.sl
6.4
KB
-rw-r--r--
cal.slc
4.44
KB
-rw-r--r--
chglog.sl
3.13
KB
-rw-r--r--
chglog.slc
2.62
KB
-rw-r--r--
cmisc.sl
4.91
KB
-rw-r--r--
cmisc.slc
4
KB
-rw-r--r--
cmode.dfa
7.58
KB
-rw-r--r--
cmode.sl
40.06
KB
-rw-r--r--
cmode.slc
27.9
KB
-rw-r--r--
comments.sl
7.99
KB
-rw-r--r--
comments.slc
5.93
KB
-rw-r--r--
compat.sl
1.39
KB
-rw-r--r--
compile.sl
11.44
KB
-rw-r--r--
compile.slc
5.83
KB
-rw-r--r--
compress.sl
3.12
KB
-rw-r--r--
compress.slc
2.73
KB
-rw-r--r--
cpright.hlp
464
B
-rw-r--r--
ctags.sl
9.53
KB
-rw-r--r--
ctags.slc
7.34
KB
-rw-r--r--
cua.hlp
385
B
-rw-r--r--
cua.sl
7.56
KB
-rw-r--r--
cua.slc
3.91
KB
-rw-r--r--
cuamisc.sl
5.7
KB
-rw-r--r--
cuamisc.slc
1.63
KB
-rw-r--r--
dabbrev.sl
13.77
KB
-rw-r--r--
dabbrev.slc
8.05
KB
-rw-r--r--
dcl.sl
4.68
KB
-rw-r--r--
dcl.slc
4.5
KB
-rw-r--r--
defaults.sl
1.07
KB
-rw-r--r--
digraph.sl
3.8
KB
-rw-r--r--
digraph.slc
1.04
KB
-rw-r--r--
dired.sl
17.78
KB
-rw-r--r--
dired.slc
12.69
KB
-rw-r--r--
docbook.sl
38.33
KB
-rw-r--r--
docbook.slc
38.41
KB
-rw-r--r--
dos437.sl
998
B
-rw-r--r--
dos850.sl
1.3
KB
-rw-r--r--
dos852.sl
1.14
KB
-rw-r--r--
edt.hlp
1.6
KB
-rw-r--r--
edt.sl
14.55
KB
-rw-r--r--
edt.slc
7.93
KB
-rw-r--r--
emacs.hlp
227
B
-rw-r--r--
emacs.sl
6.86
KB
-rw-r--r--
emacs.slc
6.31
KB
-rw-r--r--
emacsmsc.sl
3.52
KB
-rw-r--r--
emacsmsc.slc
3.52
KB
-rw-r--r--
emul.sl
87
B
-rw-r--r--
f90.sl
22.75
KB
-rw-r--r--
f90.slc
18.39
KB
-rw-r--r--
ff90.sl
56
B
-rw-r--r--
ff90.slc
82
B
-rw-r--r--
filter.sl
646
B
-rw-r--r--
filter.slc
562
B
-rw-r--r--
folding.sl
13.47
KB
-rw-r--r--
folding.slc
11.13
KB
-rw-r--r--
fortran.sl
10.65
KB
-rw-r--r--
fortran.slc
7.79
KB
-rw-r--r--
generic.hlp
135
B
-rw-r--r--
gpg.sl
4.89
KB
-rw-r--r--
gpg.slc
4.51
KB
-rw-r--r--
help.sl
15.37
KB
-rw-r--r--
help.slc
12
KB
-rw-r--r--
history.sl
5.73
KB
-rw-r--r--
history.slc
2.2
KB
-rw-r--r--
hooks.sl
1.95
KB
-rw-r--r--
hooks.slc
1.74
KB
-rw-r--r--
html.dfa
6.13
KB
-rw-r--r--
html.sl
13.63
KB
-rw-r--r--
html.slc
10.06
KB
-rw-r--r--
ide.hlp
1.25
KB
-rw-r--r--
ide.sl
22.57
KB
-rw-r--r--
ide.slc
20.07
KB
-rw-r--r--
idl.sl
5.58
KB
-rw-r--r--
idl.slc
5.34
KB
-rw-r--r--
info.sl
19.92
KB
-rw-r--r--
info.slc
17.16
KB
-rw-r--r--
isearch.sl
7.7
KB
-rw-r--r--
isearch.slc
5.01
KB
-rw-r--r--
iso-lat2.sl
963
B
-rw-r--r--
iso-lat2.slc
1010
B
-rw-r--r--
iso-lat3.sl
1.3
KB
-rw-r--r--
iso-lat3.slc
994
B
-rw-r--r--
iso-latin.sl
625
B
-rw-r--r--
iso-latin.slc
420
B
-rw-r--r--
iso2xxx.sl
1.77
KB
-rw-r--r--
iso2xxx.slc
1.39
KB
-rw-r--r--
ispell.sl
2.99
KB
-rw-r--r--
ispell.slc
2.26
KB
-rw-r--r--
javamode.dfa
7.59
KB
-rw-r--r--
javamode.sl
3.24
KB
-rw-r--r--
javamode.slc
3.29
KB
-rw-r--r--
jed.hlp
356
B
-rw-r--r--
jed.rc
9.43
KB
-rw-r--r--
jed.sl
3.57
KB
-rw-r--r--
jed.slc
4.01
KB
-rw-r--r--
jedhelp.sl
1.43
KB
-rw-r--r--
jedhelp.slc
1.49
KB
-rw-r--r--
jedusage.sl
967
B
-rw-r--r--
jedusage.slc
1.08
KB
-rw-r--r--
keycode.sl
4.46
KB
-rw-r--r--
keydefs.sl
9.21
KB
-rw-r--r--
keydefs.slc
6.63
KB
-rw-r--r--
krconv.sl
1.86
KB
-rw-r--r--
krconv.slc
1.45
KB
-rw-r--r--
latex.sl
27.01
KB
-rw-r--r--
latex.slc
20.94
KB
-rw-r--r--
latex209.sl
2.24
KB
-rw-r--r--
latex209.slc
1.57
KB
-rw-r--r--
linux.sl
821
B
-rw-r--r--
lisp.sl
1.21
KB
-rw-r--r--
lisp.slc
1.1
KB
-rw-r--r--
ltx-comp.dat
2.01
KB
-rw-r--r--
ltx-math.sl
4.12
KB
-rw-r--r--
ltx-math.slc
3.95
KB
-rw-r--r--
lua.sl
13.05
KB
-rw-r--r--
macro.sl
2.08
KB
-rw-r--r--
macro.slc
1.95
KB
-rw-r--r--
mail.sl
4.82
KB
-rw-r--r--
mail.slc
4.17
KB
-rw-r--r--
mailalias.sl
6.21
KB
-rw-r--r--
mailalias.slc
3.61
KB
-rw-r--r--
mailedit.sl
10.79
KB
-rw-r--r--
mailutils.sl
3.52
KB
-rw-r--r--
makemode.sl
6.83
KB
-rw-r--r--
man.sl
1.8
KB
-rw-r--r--
man.slc
948
B
-rw-r--r--
maple.sl
2.14
KB
-rw-r--r--
maple.slc
1.91
KB
-rw-r--r--
matlab.sl
5.07
KB
-rw-r--r--
matlab.slc
4.07
KB
-rw-r--r--
menu.sl
4.7
KB
-rw-r--r--
menu.slc
3.91
KB
-rw-r--r--
menus.sl
2.31
KB
-rw-r--r--
menus.slc
1.74
KB
-rw-r--r--
mime.sl
1.98
KB
-rw-r--r--
mime.slc
1.75
KB
-rw-r--r--
mimemisc.sl
684
B
-rw-r--r--
mimemisc.slc
733
B
-rw-r--r--
mini.sl
4.54
KB
-rw-r--r--
mini.slc
3.73
KB
-rw-r--r--
minued.sl
8.99
KB
-rw-r--r--
minued.slc
4.37
KB
-rw-r--r--
misc.sl
4.01
KB
-rw-r--r--
misc.slc
2.51
KB
-rw-r--r--
modehook.sl
3.71
KB
-rw-r--r--
modehook.slc
1.64
KB
-rw-r--r--
modeinfo.sl
1.6
KB
-rw-r--r--
modeinfo.slc
1.48
KB
-rw-r--r--
most.sl
3.64
KB
-rw-r--r--
most.slc
3.13
KB
-rw-r--r--
mouse.sl
5.15
KB
-rw-r--r--
mousex.sl
8.33
KB
-rw-r--r--
mousex.slc
4.36
KB
-rw-r--r--
mswmouse.sl
6.85
KB
-rw-r--r--
mutekeys.sl
3.19
KB
-rw-r--r--
mutekeys.slc
1.49
KB
-rw-r--r--
nroff.sl
1.09
KB
-rw-r--r--
nroff.slc
709
B
-rw-r--r--
occur.sl
1.48
KB
-rw-r--r--
occur.slc
1.03
KB
-rw-r--r--
os.sl
4.22
KB
-rw-r--r--
paste.sl
509
B
-rw-r--r--
paste.slc
485
B
-rw-r--r--
perl.sl
33.63
KB
-rw-r--r--
perl.slc
13.77
KB
-rw-r--r--
perlxtra.sl
13.1
KB
-rw-r--r--
perlxtra.slc
5.18
KB
-rw-r--r--
php.sl
83.23
KB
-rw-r--r--
php.slc
54.16
KB
-rw-r--r--
pipe.sl
567
B
-rw-r--r--
pipe.slc
579
B
-rw-r--r--
popups.sl
9.03
KB
-rw-r--r--
popups.slc
8.88
KB
-rw-r--r--
preparse.sl
1.69
KB
-rw-r--r--
pscript.dfa
21.64
KB
-rw-r--r--
pscript.sl
4.79
KB
-rw-r--r--
pscript.slc
4.3
KB
-rw-r--r--
pushmode.sl
1.84
KB
-rw-r--r--
pushmode.slc
1.55
KB
-rw-r--r--
pymode.sl
17.24
KB
-rw-r--r--
pymode.slc
12.9
KB
-rw-r--r--
python.dfa
6.54
KB
-rw-r--r--
rcs.sl
4.27
KB
-rw-r--r--
rcs.slc
2.86
KB
-rw-r--r--
recent.sl
4.53
KB
-rw-r--r--
recent.slc
2.73
KB
-rw-r--r--
recentx.sl
10.13
KB
-rw-r--r--
recentx.slc
6.38
KB
-rw-r--r--
regexp.sl
1.63
KB
-rw-r--r--
regexp.slc
1.54
KB
-rw-r--r--
register.sl
4.11
KB
-rw-r--r--
register.slc
3.1
KB
-rw-r--r--
replace.sl
1.39
KB
-rw-r--r--
replace.slc
1.09
KB
-rw-r--r--
rmail.sl
38.64
KB
-rw-r--r--
rmail.slc
35.99
KB
-rw-r--r--
rot13.sl
497
B
-rw-r--r--
rot13.slc
379
B
-rw-r--r--
runpgm.sl
690
B
-rw-r--r--
sccs.sl
4.33
KB
-rw-r--r--
sccs.slc
2.54
KB
-rw-r--r--
search.sl
2.5
KB
-rw-r--r--
search.slc
2.29
KB
-rw-r--r--
seldisp.sl
806
B
-rw-r--r--
seldisp.slc
617
B
-rw-r--r--
sendmail.sl
7.02
KB
-rw-r--r--
sendmail.slc
5.73
KB
-rw-r--r--
session.sl
5.91
KB
-rw-r--r--
session.slc
3.46
KB
-rw-r--r--
shell.sl
6.26
KB
-rw-r--r--
shell.slc
3.32
KB
-rw-r--r--
shmode.dfa
1.57
KB
-rw-r--r--
shmode.sl
2.33
KB
-rw-r--r--
shmode.slc
1.91
KB
-rw-r--r--
simple.hlp
407
B
-rw-r--r--
site.sl
76.36
KB
-rw-r--r--
site.slc
36.67
KB
-rw-r--r--
slmode.dfa
3.22
KB
-rw-r--r--
slmode.sl
7.1
KB
-rw-r--r--
slmode.slc
5.79
KB
-rw-r--r--
sort.sl
1.21
KB
-rw-r--r--
sort.slc
1.13
KB
-rw-r--r--
sortmisc.sl
751
B
-rw-r--r--
sortmisc.slc
546
B
-rw-r--r--
spicemod.sl
1.06
KB
-rw-r--r--
spicemod.slc
1.03
KB
-rw-r--r--
srchmisc.sl
3.22
KB
-rw-r--r--
srchmisc.slc
2.56
KB
-rw-r--r--
syncproc.sl
3.58
KB
-rw-r--r--
syncproc.slc
2.36
KB
-rw-r--r--
syntax.sl
3.05
KB
-rw-r--r--
syntax.slc
1.47
KB
-rw-r--r--
tabs.sl
1.39
KB
-rw-r--r--
tabs.slc
1.31
KB
-rw-r--r--
tclmode.dfa
4.69
KB
-rw-r--r--
tclmode.sl
10.41
KB
-rw-r--r--
tclmode.slc
6.11
KB
-rw-r--r--
tex.sl
2.39
KB
-rw-r--r--
tex.slc
779
B
-rw-r--r--
texcom.dfa
1.5
KB
-rw-r--r--
texcom.sl
4.75
KB
-rw-r--r--
texcom.slc
4.12
KB
-rw-r--r--
textmode.sl
2.05
KB
-rw-r--r--
textmode.slc
974
B
-rw-r--r--
tiasm.sl
1.16
KB
-rw-r--r--
tiasm.slc
1.11
KB
-rw-r--r--
tmisc.sl
841
B
-rw-r--r--
tmisc.slc
786
B
-rw-r--r--
tmmode.sl
2.01
KB
-rw-r--r--
tmmode.slc
1.65
KB
-rw-r--r--
tmpfile.sl
2.83
KB
-rw-r--r--
tmpfile.slc
1.56
KB
-rw-r--r--
tpascal.dfa
7.65
KB
-rw-r--r--
tpascal.sl
5.77
KB
-rw-r--r--
tpascal.slc
5.51
KB
-rw-r--r--
untab.sl
1021
B
-rw-r--r--
untab.slc
569
B
-rw-r--r--
util.sl
544
B
-rw-r--r--
util.slc
293
B
-rw-r--r--
verilog.sl
1.49
KB
-rw-r--r--
verilog.slc
1.52
KB
-rw-r--r--
vhdlmode.sl
8.45
KB
-rw-r--r--
vhdlmode.slc
5.6
KB
-rw-r--r--
vmshelp.sl
2.25
KB
-rw-r--r--
win1250.sl
1.29
KB
-rw-r--r--
wmark.sl
4.36
KB
-rw-r--r--
wmark.slc
3.61
KB
-rw-r--r--
wmenu.sl
4.72
KB
-rw-r--r--
wmenu.slc
4.86
KB
-rw-r--r--
wordstar.hlp
909
B
-rw-r--r--
wordstar.sl
15.56
KB
-rw-r--r--
wordstar.slc
13.93
KB
-rw-r--r--
xformreg.sl
1.7
KB
-rw-r--r--
xformreg.slc
1.36
KB
-rw-r--r--
yankpop.sl
2.21
KB
-rw-r--r--
yankpop.slc
2.01
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : mailedit.sl
% This particular email-editing mode borrows ideas from several other % such modes from contributers such as % % Morten Bo Johansen -> email % Paul Boekholt % Johann Botha -> muttmail % Ulli Horlacher % Abraham vd Merwe % Thomas Roessler % % To use this mode for editing a mail message from mutt, slrn, etc, set % the editor variable to: % % "jed %s -tmp --mailedit-mode" % % Variables supported by the mode include: % % MailEdit_Fcc % MailEdit_Reply_To % MailEdit_Max_Signature_Lines % MailEdit_Quote_Chars, % % The colors may be controlled by % % MailEdit_Quote_Color % MailEdit_Signature_Color % MailEdit_To_Color % MailEdit_Subject_Color % MailEdit_From_Color % MailEdit_Header_Color % % via, e.g., set_color ("MailEdit_Header_Color", "red", "black"); % % The function mailedit_mode calls mailedit_mode_hook. % require ("mailutils"); custom_variable ("MailEdit_Fcc", NULL); custom_variable ("MailEdit_Reply_To", NULL); custom_variable ("MailEdit_Max_Signature_Lines", 4); custom_variable ("MailEdit_Quote_Chars", ">:|"); custom_color ("MailEdit_Quote_Color", get_color ("string")); custom_color ("MailEdit_Signature_Color", get_color ("preprocess")); custom_color ("MailEdit_From_Color", get_color ("keyword")); custom_color ("MailEdit_To_Color", get_color ("keyword")); custom_color ("MailEdit_Subject_Color", get_color ("keyword")); custom_color ("MailEdit_Header_Color", get_color ("keyword1")); autoload ("mailalias_expand", "mailalias"); private variable Header_Color = color_number ("MailEdit_Header_Color"); private variable Quote_Color = color_number ("MailEdit_Quote_Color"); private variable Signature_Color = color_number ("MailEdit_Signature_Color"); private variable From_Color = color_number ("MailEdit_From_Color"); private variable To_Color = color_number ("MailEdit_To_Color"); private variable Subject_Color = color_number ("MailEdit_Subject_Color"); private define find_header_keyword_start () { do { bol_skip_white (); if (bolp ()) return; } while (up(1)); bol (); } % If the header does not exist, it will be created. */ private define goto_header (header) { if (-1 == mailutils_narrow_to_header ()) return -1; variable exists = bol_fsearch (header); widen_region (); if (exists == 0) { () = mailutils_find_header_separator (); % Do it this way to avoid moving the line mark go_left (1); vinsert ("\n%s ", header); return 0; } go_right (strlen (header)); skip_white (); return 0; } private define add_xxx_header (header, value) { if (value == NULL) return; variable exists = mailutils_get_keyword_value (header); if ((exists != NULL) and (exists != "")) return; push_spot (); if (0 == goto_header (header)) insert (value); pop_spot (); } % If not found, the point is left at eob private define find_signature_start () { eob (); variable line = what_line (); ifnot (bol_bsearch ("-- \n")) return 0; if (line - what_line () > MailEdit_Max_Signature_Lines) { eob (); return 0; } return 1; } private define in_signature () { variable m = create_user_mark (); EXIT_BLOCK { goto_user_mark (m); } ifnot (find_signature_start ()) return 0; return m >= create_user_mark (); } private define in_header () { variable m = create_user_mark (); variable ih = 0; if (mailutils_find_header_separator ()) ih = (m <= create_user_mark ()); goto_user_mark (m); return ih; } private define in_mail_body () { if (in_header ()) return 0; return not in_signature (); } private define line_is_quoted () { push_spot(); bol_skip_white (); variable c = what_column (); skip_chars (MailEdit_Quote_Chars); c = what_column () - c; pop_spot (); return c; } % Moves to bol, skips the quote characters leaving the point and returns their number private define count_quotes () { bol_skip_white (); variable count = 0; forever { push_mark (); skip_chars (MailEdit_Quote_Chars); variable dcount = strlen (bufsubstr ()); ifnot (dcount) break; count += dcount; ifnot (looking_at (" ")) break; go_right_1 (); } return count; } private define skip_quotes () { bol_skip_white (); skip_chars (MailEdit_Quote_Chars); } private define extract_quotes () { push_spot (); () = count_quotes (); push_mark (); bol (); bufsubstr (); % on stack pop_spot (); } % What constitutes a paragraph? private define mark_paragraph () { ifnot (in_mail_body ()) { push_mark (); return; } push_spot (); if (mailutils_find_header_separator ()) go_down_1 (); else bob (); variable body_start = create_user_mark (); goto_spot (); % Goto paragraph start variable nquotes = count_quotes (); while (up_1 ()) { if ((create_user_mark () >= body_start) && (nquotes == count_quotes ())) { skip_white (); ifnot (eolp ()) continue; } go_down_1 (); break; } bol (); push_mark (); % Now goto end pop_spot (); eol (); while (down_1 ()) { if (nquotes == count_quotes ()) { skip_white (); ifnot (eolp ()) { eol (); continue; } } bol (); break; } if (in_signature ()) { () = find_signature_start (); } } private define format_paragraph_hook (); private define format_header () { push_spot (); find_header_keyword_start (); push_mark (); while (down_1 ()) { skip_white (); if (bolp ()) break; } narrow_to_region (); bob (); unset_buffer_hook ("format_paragraph_hook"); call ("format_paragraph"); set_buffer_hook ("format_paragraph_hook", &format_paragraph_hook); bob (); while (down_1 () and not (eobp ())) insert (" "); eob (); ifnot (bolp ()) newline (); widen_region (); pop_spot (); } private define format_paragraph_hook () { if (in_header ()) return format_header (); if (in_signature ()) return; % In the body push_spot (); variable nquotes = count_quotes (); variable quotes = extract_quotes (); mark_paragraph (); narrow_to_region (); bob (); if (nquotes) { while (nquotes == count_quotes ()) { push_mark (); bol (); del_region (); ifnot (down_1 ()) break; } } pop_spot (); unset_buffer_hook ("format_paragraph_hook"); call ("format_paragraph"); set_buffer_hook ("format_paragraph_hook", &format_paragraph_hook); push_spot (); eob (); if (not bolp ()) newline (); if (nquotes) { bob (); do { insert (quotes); } while (down_1 () and not (eobp ())); } pop_spot (); widen_region (); } private define is_paragraph_separator () { ifnot (in_mail_body ()) return 1; if (line_is_quoted ()) return 1; bol_skip_white (); return eolp (); } private define wrap_hook () { push_spot (); EXIT_BLOCK { pop_spot (); } if (in_header ()) { bol_trim (); insert (" "); trim (); } if (in_mail_body ()) { #iftrue indent_line (); #else go_up_1 (); bol_skip_white (); variable col = what_column (); go_down_1 (); bol_trim (); whitespace (col - 1); #endif return; } } private define add_fcc () { add_xxx_header ("Fcc:", MailEdit_Fcc); } private define add_replyto () { add_xxx_header ("Reply-To:", MailEdit_Reply_To); } private define mark_header_separator () { ifnot (mailutils_find_header_separator ()) return; %set_line_readonly (1); } private variable Header_Color_Map = Assoc_Type[Int_Type, Header_Color]; Header_Color_Map["TO"] = To_Color; Header_Color_Map["CC"] = To_Color; Header_Color_Map["BCC"] = To_Color; Header_Color_Map["SUBJECT"] = Subject_Color; Header_Color_Map["FROM"] = From_Color; private define color_header_line () { push_spot (); find_header_keyword_start (); push_mark (); () = ffind (":"); variable color = Header_Color_Map[strup (bufsubstr())]; pop_spot (); set_line_color (color); } private define color_buffer (min_line, max_line) { push_spot (); EXIT_BLOCK { pop_spot (); } % Optimization for the most common case if (min_line == max_line) { goto_line (min_line); if (in_header ()) { bol (); color_header_line (); return; } if (in_signature ()) { set_line_color (Signature_Color); return; } if (line_is_quoted ()) { set_line_color (Quote_Color); return; } set_line_color (0); return; } variable header_line, signature_line; if (mailutils_find_header_separator ()) header_line = what_line (); else header_line = 0; if (find_signature_start ()) signature_line = what_line (); else signature_line = max_line + 1; goto_line (min_line); if (max_line < header_line) header_line = max_line + 1; if (min_line <= header_line) { loop (header_line - min_line) { color_header_line (); %set_line_color (Header_Color); go_down_1 (); } % skip header go_down_1 (); min_line = header_line; min_line++; } if (max_line < signature_line) signature_line = max_line + 1; loop (signature_line - min_line) { if (line_is_quoted ()) set_line_color (Quote_Color); else set_line_color (0); go_down_1 (); } min_line = signature_line; loop (max_line - min_line + 1) { set_line_color (Signature_Color); go_down_1 (); } } private define newline_indent_hook () { if (line_is_quoted ()) { ifnot (bolp () or eolp ()) { variable quotes = extract_quotes (); insert ("\n\n\n"); insert (quotes); call ("format_paragraph"); go_up (2); return; } } newline (); indent_line (); } ifnot (keymap_p ("mailedit")) make_keymap ("mailedit"); public define mailedit_mode () { mark_header_separator (); add_fcc (); add_replyto (); variable start_mark = NULL; bob (); if (bol_fsearch ("To: ")) { go_right (3); skip_chars ("\t "); if (eolp ()) start_mark = create_user_mark (); } if (start_mark == NULL) { if (mailutils_find_header_separator ()) { go_down (2); start_mark = create_user_mark (); } } bob (); if (start_mark != NULL) goto_user_mark (start_mark); set_buffer_modified_flag (0); use_keymap ("mailedit"); set_mode ("mailedit", 1); unset_buffer_hook (""); %set_buffer_hook ("par_sep", &is_paragraph_separator); set_buffer_hook ("format_paragraph_hook", &format_paragraph_hook); set_buffer_hook ("wrap_hook", &wrap_hook); set_buffer_hook ("color_region_hook", &color_buffer); set_buffer_hook ("newline_indent_hook", &newline_indent_hook); %set_buffer_hook ("mark_paragraph_hook", &mark_paragraph); set_comment_info ("mailedit", ">", "", 0); run_mode_hooks ("mailedit_mode_hook"); }
Close
