[Emacs-diffs] /srv/bzr/emacs/trunk r109896: qp.el (quoted-printable-decode-region): Fix previous change; handle lowercase a..f.

[Kenichi Handa]

------------------------------------------------------------
revno: 109896 [merge]
committer: Kenichi Handa <address@hidden>
branch nick: trunk
timestamp: Thu 2012-09-06 10:49:56 +0900
message:
  qp.el (quoted-printable-decode-region): Fix previous change; handle lowercase 
a..f.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/qp.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2012-09-05 22:45:43 +0000
+++ b/lisp/gnus/ChangeLog       2012-09-06 01:49:15 +0000
@@ -1,3 +1,8 @@
+2012-09-06  Kenichi Handa  <address@hidden>
+
+       * qp.el (quoted-printable-decode-region): Fix previous change; handle
+       lowercase a..f.
+
 2012-09-05  Magnus Henoch  <address@hidden>
 
        * nnmaildir.el (nnmaildir--article-set-flags): Fix compilation error.

=== modified file 'lisp/gnus/qp.el'
--- a/lisp/gnus/qp.el   2012-08-30 12:11:57 +0000
+++ b/lisp/gnus/qp.el   2012-09-06 01:45:33 +0000
@@ -55,8 +55,12 @@
       ;; 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