From 2559237becdbda0cd4acb9ab278ad8207dcd5011 Mon Sep 17 00:00:00 2001 From: akr Date: Thu, 18 Feb 1999 05:05:44 +0000 Subject: [PATCH] * mel-b-ccl.el (mel-ccl-encode-base64-generic): Shift timing for linebreak. --- ChangeLog | 5 +++++ mel-b-ccl.el | 7 +++++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 0f478df..e89fda4 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +1999-02-18 Tanaka Akira + + * mel-b-ccl.el (mel-ccl-encode-base64-generic): Shift timing for + linebreak. + 1999-02-08 Tanaka Akira * 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")) -- 1.7.10.4