From: akr <akr>
Date: Mon, 24 Aug 1998 15:02:52 +0000 (+0000)
Subject: * ew-bq.el (ew-ccl-quoted-printable): Change mnemonic B to Q.
X-Git-Tag: doodle-1_9_2~20
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5590e246aeacc77c4709facdbffb54c27f666fcb;p=elisp%2Fflim.git

* ew-bq.el (ew-ccl-quoted-printable): Change mnemonic B to Q.
---

diff --git a/ChangeLog b/ChangeLog
index 4a42970..536e7c3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 1998-08-24  Tanaka Akira      <akr@jaist.ac.jp>
 
+	* ew-bq.el (ew-ccl-quoted-printable): Change mnemonic B to Q.
+
+1998-08-24  Tanaka Akira      <akr@jaist.ac.jp>
+
 	* ew-bq.el (ew-ccl-encode-quoted-printable): Complete behaviour at column 73 with bare CR.
 
 1998-08-24  Tanaka Akira      <akr@jaist.ac.jp>
diff --git a/ew-bq.el b/ew-bq.el
index 9a1bd36..2c1e3c2 100644
--- a/ew-bq.el
+++ b/ew-bq.el
@@ -740,6 +740,8 @@
 			    `(r2 = 0)	; nop
 			    ))
 			ew-ccl-256-table))
+                    ;; '=' [\t ]* [0-9A-F] r1:[^0-9A-F]
+                    ;; invalid input
 		    (write ?=)
 		    (write r0 ,(vconcat ew-ccl-16-to-256-table))
 		    (write r1)
@@ -783,7 +785,7 @@
 (make-coding-system 'ew-ccl-base64 4 ?B "MIME Base64-encoding"
 		    (cons ew-ccl-decode-b ew-ccl-encode-base64))
 
-(make-coding-system 'ew-ccl-quoted-printable 4 ?B
+(make-coding-system 'ew-ccl-quoted-printable 4 ?Q
 		    "MIME Quoted-Printable-encoding"
 		    (cons ew-ccl-decode-quoted-printable
 			  ew-ccl-encode-quoted-printable))