/usr/share/jed/lib/mime.sl is in jed-common 1:0.99.19-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 | % Parse buffer full of MIME noise
% Note: This is very primitive and should be fixed
define mime_parse_this_qp ()
{
variable str;
str = strcat ("0x", char (what_char ()));
del ();
str = strcat (str, char (what_char ()));
del ();
if (Integer_Type == _slang_guess_type (str))
{
insert_char (integer(str));
return;
}
insert (str);
}
define mime_rfc1522_parse_buffer ()
{
variable qpre;
variable len;
variable charset, str;
% Look for things like =?iso-8859-1?Q?=E1end?=
qpre = "=\\?\\([-_a-zA-Z0-9]+\\)\\?Q\\?\\([^ \t]+\\)\\?=";
push_spot ();
bob ();
while (len = re_fsearch (qpre), len)
{
len--;
charset = regexp_nth_match (1);
str = regexp_nth_match (2);
push_mark ();
go_right (len);
del_region ();
push_mark ();
insert (str);
narrow_to_region ();
bob ();
replace ("_", " ");
while (fsearch ("="))
{
del ();
mime_parse_this_qp ();
}
eob ();
widen_region ();
}
pop_spot ();
}
define mime_qp_parse_buffer ()
{
bob ();
while (fsearch ("="))
{
del ();
if (eolp ())
{
del ();
continue;
}
mime_parse_this_qp ();
}
}
|