Commit f41d6f9d authored by Kenichi Handa's avatar Kenichi Handa
Browse files

qp.el (quoted-printable-decode-region): Fix previous change; handle lowercase a..f.

parent 776f29e1
2012-09-06 Kenichi Handa <handa@gnu.org>
* qp.el (quoted-printable-decode-region): Fix previous change; handle
lowercase a..f.
2012-09-03 Lars Ingebrigtsen <larsi@gnus.org>
 
* dgnushack.el: XEmacs 21.5 compilation fix.
......
......@@ -55,8 +55,12 @@ them into characters should be done separately."
;; recognize them as the corresponding uppercase letters.''
(let ((case-fold-search t)
(decode-hex #'(lambda (n1 n2)
(+ (* (if (<= n1 ?9) (- n1 ?0) (+ (- n1 ?A) 10)) 16)
(if (<= n2 ?9) (- n2 ?0) (+ (- n2 ?A) 10))))))
(+ (* (if (<= n1 ?9) (- n1 ?0)
(if (<= n1 ?F) (+ (- n1 ?A) 10)
(+ (- n1 ?a) 10))) 16)
(if (<= n2 ?9) (- n2 ?0)
(if (<= n2 ?F) (+ (- n2 ?A) 10)
(+ (- n2 ?a) 10)))))))
(narrow-to-region from to)
;; Do this in case we're called from Gnus, say, in a buffer
;; which already contains non-ASCII characters which would
......
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