From 7158000f50f15717a8e5ea4fac607d7c50274ec5 Mon Sep 17 00:00:00 2001 From: akr Date: Mon, 22 Feb 1999 10:57:26 +0000 Subject: [PATCH] * mel-q-ccl.el (mel-ccl-encode-quoted-printable-generic): Fix previous change. --- ChangeLog | 5 +++++ mel-q-ccl.el | 8 ++++---- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index 2d5ddff..151e074 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +1999-02-22 Tanaka Akira + + * mel-q-ccl.el (mel-ccl-encode-quoted-printable-generic): Fix previous + change. + 1999-02-21 Tanaka Akira * 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)) '()) -- 1.7.10.4