From 2cdf2dfc7fc737128e09ac46edaa074cbe27e690 Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 20 Aug 1999 00:40:49 +0000 Subject: [PATCH] * mel-q-ccl.el (mel-ccl-decode-quoted-printable-generic): Fix quotation. --- mel-q-ccl.el | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/mel-q-ccl.el b/mel-q-ccl.el index da7414e..b9c70b7 100644 --- a/mel-q-ccl.el +++ b/mel-q-ccl.el @@ -778,16 +778,16 @@ abcdefghijklmnopqrstuvwxyz\ )) ;; [\t ]* r0:[^\r] ;; middle white spaces found. - ))) - (` (if (r0 == ?\n) - ;; trailing white spaces found. - ;; -> ignore these white spacs. - ((write (, (if output-crlf "\r\n" "\n"))) - (read r0) - (repeat)) - ;; [\t ]* r0:[^\n] - ;; middle white spaces found. - ))) + )) + (` (if (r0 == ?\n) + ;; trailing white spaces found. + ;; -> ignore these white spacs. + ((write (, (if output-crlf "\r\n" "\n"))) + (read r0) + (repeat)) + ;; [\t ]* r0:[^\n] + ;; middle white spaces found. + )))) (,@ (apply 'append (mapcar -- 1.7.10.4