Commit 1f2b5269 authored by ch's avatar ch
Browse files

typo fixes

darcs-hash:20080517193859-c72ca-ff19b755b5e254e01bb2ff4c449da90e8abd4086
parent 01752703
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment