Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Max Rottenkolber
cl-rfc2047
Commits
1f2b5269
Commit
1f2b5269
authored
May 17, 2008
by
ch
Browse files
typo fixes
darcs-hash:20080517193859-c72ca-ff19b755b5e254e01bb2ff4c449da90e8abd4086
parent
01752703
Changes
1
Hide whitespace changes
Inline
Side-by-side
cl-rfc2047.lisp
View file @
1f2b5269
...
...
@@ -89,7 +89,7 @@ Throws an error if the character encoding is not known."
(
if
(
or
(
>=
i
slen
)
(
>=
len
wlen
))
i
(
let
((
c
(
elt
octets
i
)))
(
if
(
direct-
b
-p
c
)
(
if
(
direct-
q
-p
c
)
(
progn
(
princ
(
code-char
c
)
stream
)
(
q-enc*
(
1+
i
)
(
1+
len
)
octets
))
...
...
@@ -106,7 +106,7 @@ Throws an error if the character encoding is not known."
(
unless
(
zerop
n
)
(
princ
*crlfsp*
stream
))
(
format
stream
"=?~A?~A?"
charset
encoding
)
(
let
((
i*
(
q-enc*
i
0
octets
)))
f
(
princ
"?="
stream
)
(
princ
"?="
stream
)
(
q-enc
i*
(
1+
n
)
octets
))))))
(
case
encoding
(
:b
(
b-enc
0
0
))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment