From cf660bd0d655c249070bf4170ac2afd8e2cd9b3e Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 20 Jun 1998 13:27:38 +0000 Subject: [PATCH] (quoted-printable-decode-string): New implementation. --- mel-q.el | 28 +++++++--------------------- 1 file changed, 7 insertions(+), 21 deletions(-) diff --git a/mel-q.el b/mel-q.el index bb46b6c..47a7a2b 100644 --- a/mel-q.el +++ b/mel-q.el @@ -164,27 +164,6 @@ It calls external quoted-printable encoder specified by ((<= ?0 chr) (- chr ?0)) )) -(defun quoted-printable-decode-string (string) - "Decode STRING which is encoded in quoted-printable, and return the result." - (let (q h l) - (mapconcat (function - (lambda (chr) - (cond ((eq chr ?=) - (setq q t) - "") - (q (setq h (quoted-printable-hex-char-to-num chr)) - (setq q nil) - "") - (h (setq l (quoted-printable-hex-char-to-num chr)) - (prog1 - (char-to-string (logior (ash h 4) l)) - (setq h nil) - ) - ) - (t (char-to-string chr)) - ))) - string ""))) - (defun quoted-printable-internal-decode-region (start end) (save-excursion (save-restriction @@ -243,6 +222,13 @@ the program (maybe mmencode included in metamail or XEmacs package)." (quoted-printable-internal-decode-region start end) )) +(defun quoted-printable-decode-string (string) + "Decode STRING which is encoded in quoted-printable, and return the result." + (with-temp-buffer + (insert string) + (quoted-printable-decode-region (point-min)(point-max)) + (buffer-string))) + (defvar quoted-printable-external-decoder-option-to-specify-file '("-o") "*list of options of quoted-printable decoder program to specify file.") -- 1.7.10.4