From: akr <akr>
Date: Mon, 8 Feb 1999 09:30:05 +0000 (+0000)
Subject: * mel-q-ccl.el (mel-ccl-encode-quoted-printable-generic): Fix previous
X-Git-Tag: doodle-1_12_1~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=442f10663ba71a303b774df00ceac6362094719a;p=elisp%2Fflim.git

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

diff --git a/ChangeLog b/ChangeLog
index 321c4c7..bbfe55c 100644
--- 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
--- 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)