From: ueno <ueno>
Date: Fri, 20 Aug 1999 00:40:49 +0000 (+0000)
Subject: * mel-q-ccl.el (mel-ccl-decode-quoted-printable-generic): Fix
X-Git-Tag: clime-1_13_1~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2cdf2dfc7fc737128e09ac46edaa074cbe27e690;p=elisp%2Fflim.git

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

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