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

linebreak.

diff --git a/ChangeLog b/ChangeLog
index 0f478df..e89fda4 100644 (file)
--- 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 (file)
--- 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"))