* mel-q-ccl.el (mel-ccl-encode-quoted-printable-generic): Fix previous

change.

diff --git a/ChangeLog b/ChangeLog
index 321c4c7..bbfe55c 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 1999-02-08  Tanaka Akira      <akr@jaist.ac.jp>
 
+       * mel-q-ccl.el (mel-ccl-encode-quoted-printable-generic): Fix previous
+       change.
+
+1999-02-08  Tanaka Akira      <akr@jaist.ac.jp>
+
        * 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 (file)
--- 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)