* mel-q-ccl.el (mel-ccl-decode-quoted-printable-generic): Fix

[elisp/flim.git] / mel-q-ccl.el

diff --git a/mel-q-ccl.el b/mel-q-ccl.el
index da7414e..b9c70b7 100644 (file)
--- 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