(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 (file)
--- 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 (file)
--- 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))