From 9a7c7a72ccf132312e55ab54006d0e8645a62d3a Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 20 Jun 1998 11:35:06 +0000 Subject: [PATCH] (q-encoding-decode-string): Use `quoted-printable-hex-char-to-num'. --- mel-q.el | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) 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) -- 1.7.10.4