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

diff --git a/ChangeLog b/ChangeLog
index 4a42970..536e7c3 100644 (file)
--- 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 (file)
--- 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))