From: hmurata <hmurata>
Date: Sun, 12 Dec 2004 08:40:00 +0000 (+0000)
Subject: (rfc2368-unhexify-string): Treat `A' - `F' and not
X-Git-Tag: wl-2_12-root~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9d196602e6ffc9fbe92c67d74867a23d2bfee8e9;p=elisp%2Fwanderlust.git

(rfc2368-unhexify-string): Treat `A' - `F' and not
use `{2}' for compatibility with emacs20.7.
---

diff --git a/utils/ChangeLog b/utils/ChangeLog
index 011c890..3068934 100644
--- a/utils/ChangeLog
+++ b/utils/ChangeLog
@@ -1,3 +1,8 @@
+2004-12-12  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* rfc2368.el (rfc2368-unhexify-string): Treat `A' - `F' and not
+	use `{2}' for compatibility with emacs20.7.
+
 2004-08-02  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* ptexinfmt.el (slanted): Rename @s to @slanted.
diff --git a/utils/rfc2368.el b/utils/rfc2368.el
index 0ff2fd9..7edf428 100644
--- a/utils/rfc2368.el
+++ b/utils/rfc2368.el
@@ -81,7 +81,7 @@
   (with-temp-buffer
     (insert string)
     (goto-char (point-min))
-    (while (re-search-forward "%\\([0-9]\\{2\\}\\)" nil t)
+    (while (re-search-forward "%\\([0-9A-F][0-9A-F]\\)" nil t)
       (replace-match (string (string-to-number (match-string 1)
 					       16))
 		       nil nil))