From 442f10663ba71a303b774df00ceac6362094719a Mon Sep 17 00:00:00 2001 From: akr Date: Mon, 8 Feb 1999 09:30:05 +0000 Subject: [PATCH] * mel-q-ccl.el (mel-ccl-encode-quoted-printable-generic): Fix previous change. --- ChangeLog | 5 +++++ mel-q-ccl.el | 15 ++++++++++++--- 2 files changed, 17 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 321c4c7..bbfe55c 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,10 @@ 1999-02-08 Tanaka Akira + * mel-q-ccl.el (mel-ccl-encode-quoted-printable-generic): Fix previous + change. + +1999-02-08 Tanaka Akira + * mel-q-ccl.el (mel-ccl-encode-quoted-printable-generic): Write white space after checking following sequence. diff --git a/mel-q-ccl.el b/mel-q-ccl.el index a89172e..8c29a6f 100644 --- a/mel-q-ccl.el +++ b/mel-q-ccl.el @@ -624,9 +624,18 @@ abcdefghijklmnopqrstuvwxyz\ (write "=0D") (end)) ;; ; r0:r3=WSP r1=CR - ((write ,(if output-crlf "=\r\n=" "=\n=")) - (write r0) - (write "=0D"))) + (if (r6 <= 72) + ((write r0) + (write "=0D") + (end)) + (if (r6 <= 74) + ((write r0) + (write ,(if output-crlf "=\r\n=0D" "=\n=0D")) + (end)) + ((write ,(if output-crlf "=\r\n" "=\n")) + (write r0) + (write "=0D") + (end))))) ;; 13: r0:r3=RAW CR LF ; ;; 13: r0:r3=RAW CRLF ; (end) -- 1.7.10.4