From: morioka <morioka>
Date: Sat, 20 Jun 1998 11:35:06 +0000 (+0000)
Subject: (q-encoding-decode-string): Use `quoted-printable-hex-char-to-num'.
X-Git-Tag: flim-1_5_0~25
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9a7c7a72ccf132312e55ab54006d0e8645a62d3a;p=elisp%2Fflim.git

(q-encoding-decode-string): Use `quoted-printable-hex-char-to-num'.
---

diff --git a/mel-q.el b/mel-q.el
index dc6faee..dfa1d06 100644
--- a/mel-q.el
+++ b/mel-q.el
@@ -298,16 +298,10 @@ MODE allows `text', `comment', `phrase' or nil.  Default value is
 			((eq chr ?=)
 			 (setq q t)
 			 "")
-			(q (setq h (cond ((<= ?a chr) (+ (- chr ?a) 10))
-					 ((<= ?A chr) (+ (- chr ?A) 10))
-					 ((<= ?0 chr) (- chr ?0))
-					 ))
+			(q (setq h (quoted-printable-hex-char-to-num chr))
 			   (setq q nil)
 			   "")
-			(h (setq l (cond ((<= ?a chr) (+ (- chr ?a) 10))
-					 ((<= ?A chr) (+ (- chr ?A) 10))
-					 ((<= ?0 chr) (- chr ?0))
-					 ))
+			(h (setq l (quoted-printable-hex-char-to-num chr))
 			   (prog1
 			       (char-to-string (logior (ash h 4) l))
 			     (setq h nil)