mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Kenichi Handa 2012-09-06 10:45:33 +09:00
parent 776f29e171
commit f41d6f9db6
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View File

@ -1,3 +1,8 @@
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.

8
lisp/gnus/qp.el
View File

@ -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