From: akr <akr>
Date: Thu, 18 Feb 1999 05:05:44 +0000 (+0000)
Subject: * mel-b-ccl.el (mel-ccl-encode-base64-generic): Shift timing for
X-Git-Tag: doodle-1_12_2~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2559237becdbda0cd4acb9ab278ad8207dcd5011;p=elisp%2Fflim.git

* mel-b-ccl.el (mel-ccl-encode-base64-generic): Shift timing for
linebreak.
---

diff --git a/ChangeLog b/ChangeLog
index 0f478df..e89fda4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1999-02-18  Tanaka Akira      <akr@jaist.ac.jp>
+
+	* mel-b-ccl.el (mel-ccl-encode-base64-generic): Shift timing for
+	linebreak.
+
 1999-02-08  Tanaka Akira      <akr@jaist.ac.jp>
 
 	* mime-def.el (mime-library-product): Bump up to FLAM-DOODLE
diff --git a/mel-b-ccl.el b/mel-b-ccl.el
index e9e7f16..610237b 100644
--- a/mel-b-ccl.el
+++ b/mel-b-ccl.el
@@ -284,9 +284,10 @@ abcdefghijklmnopqrstuvwxyz\
   (&optional quantums-per-line output-crlf terminate-with-newline)
   `(2
     ((r3 = 0)
+     (r2 = 0)
+     (read r1)
      (loop
-      (r2 = 0)
-      (read-branch
+      (branch
        r1
        ,@(mapcar
           (lambda (r1)
@@ -327,6 +328,8 @@ abcdefghijklmnopqrstuvwxyz\
                      (nth r1 mel-ccl-64-to-256-table))
                    mel-ccl-64-table)))
       (r3 += 1)
+      (r2 = 0)
+      (read r1)
       ,@(when quantums-per-line
 	  `((if (r3 == ,quantums-per-line)
 		((write ,(if output-crlf "\r\n" "\n"))