From: akr <akr>
Date: Mon, 22 Feb 1999 10:57:26 +0000 (+0000)
Subject: * mel-q-ccl.el (mel-ccl-encode-quoted-printable-generic): Fix previous
X-Git-Tag: doodle-1_12_4~2
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7158000f50f15717a8e5ea4fac607d7c50274ec5;p=elisp%2Fflim.git

* mel-q-ccl.el (mel-ccl-encode-quoted-printable-generic): Fix previous
change.
---

diff --git a/ChangeLog b/ChangeLog
index 2d5ddff..151e074 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1999-02-22  Tanaka Akira      <akr@jaist.ac.jp>
+
+	* mel-q-ccl.el (mel-ccl-encode-quoted-printable-generic): Fix previous
+	change.
+
 1999-02-21  Tanaka Akira      <akr@jaist.ac.jp>
 
 	* mel-q-ccl.el (mel-ccl-encode-quoted-printable-generic): Refined.
diff --git a/mel-q-ccl.el b/mel-q-ccl.el
index 6802181..d08184d 100644
--- a/mel-q-ccl.el
+++ b/mel-q-ccl.el
@@ -284,7 +284,7 @@ abcdefghijklmnopqrstuvwxyz\
        (,after-wsp = 0)
        ,(mel-ccl-set-eof-block '(end))
        (read r0)
-       (loop				; column <= 75
+       (loop	; invariant: column <= 75
 	(loop
 	 (loop
 	  (branch
@@ -459,7 +459,7 @@ abcdefghijklmnopqrstuvwxyz\
 		  `((write r1)
 		    (write "=0D")
 		    (end))
-		  `((,column += 3)
+		  `((,column += 4)
 		    (,after-wsp = 0)
 		    (write r1)
 		    (write-repeat "=0D"))
@@ -539,7 +539,7 @@ abcdefghijklmnopqrstuvwxyz\
 		   (if (,column < 73)
 		       ((,after-wsp = 0)
 			(,column += 3)
-			(write-repeat ,"=0D"))
+			(write-repeat "=0D"))
 		     (if (,column < 74)
 			 (if (r0 == ?\r)
 			     ((,after-wsp = 0)
@@ -567,7 +567,7 @@ abcdefghijklmnopqrstuvwxyz\
 		   (write ,(concat soft (if output-crlf "\r" "")))
 		   ,(mel-ccl-set-eof-block `(end))
 		   (write-read-repeat r0))
-		;; noWSP ; r0{LF}:type-CRLF
+		;; noWSP ; r0{LF}:type-brk
 		((,after-wsp = 0)
 		 (,column = 0)
 		 ,@(if output-crlf '((write ?\r)) '())