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." ...@@ -89,7 +89,7 @@ Throws an error if the character encoding is not known."
(if (or (>= i slen) (>= len wlen)) (if (or (>= i slen) (>= len wlen))
i i
(let ((c (elt octets i))) (let ((c (elt octets i)))
(if (direct-b-p c) (if (direct-q-p c)
(progn (progn
(princ (code-char c) stream) (princ (code-char c) stream)
(q-enc* (1+ i) (1+ len) octets)) (q-enc* (1+ i) (1+ len) octets))
...@@ -106,7 +106,7 @@ Throws an error if the character encoding is not known." ...@@ -106,7 +106,7 @@ Throws an error if the character encoding is not known."
(unless (zerop n) (princ *crlfsp* stream)) (unless (zerop n) (princ *crlfsp* stream))
(format stream "=?~A?~A?" charset encoding) (format stream "=?~A?~A?" charset encoding)
(let ((i* (q-enc* i 0 octets))) (let ((i* (q-enc* i 0 octets)))
f (princ "?=" stream) (princ "?=" stream)
(q-enc i* (1+ n) octets)))))) (q-enc i* (1+ n) octets))))))
(case encoding (case encoding
(:b (b-enc 0 0)) (: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