[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r109896: qp.el (quoted-printable-deco
From: |
Kenichi Handa |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r109896: qp.el (quoted-printable-decode-region): Fix previous change; handle lowercase a..f. |
Date: |
Thu, 06 Sep 2012 10:49:56 +0900 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r109896: qp.el (quoted-printable-decode-region): Fix previous change; handle lowercase a..f.,
Kenichi Handa <=