From: akr <akr>
Date: Thu, 17 Sep 1998 10:16:28 +0000 (+0000)
Subject: * mel-ccl.el (mel-ccl-decode-b): Cut bits over 8bit on last
X-Git-Tag: doodle-1_9_5~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6c256ad032b9b069fb2d050b107f07a802485e2d;p=elisp%2Fflim.git

* mel-ccl.el (mel-ccl-decode-b): Cut bits over 8bit on last
byte.
---

diff --git a/ChangeLog b/ChangeLog
index 94e7c3e..dee2277 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 1998-09-17  Tanaka Akira      <akr@jaist.ac.jp>
 
+	* mel-ccl.el (mel-ccl-decode-b): Cut bits over 8bit on last
+	byte.
+
+1998-09-17  Tanaka Akira      <akr@jaist.ac.jp>
+
 	* mel.el (mel-defgeneric): Remove `stems' argument.
 	(mel-stems): Exchange order between `external' and `internal'.
 	(mel-defgeneric): Obtain preference dynamicaly.
diff --git a/mel-ccl.el b/mel-ccl.el
index 28df002..e408c51 100644
--- a/mel-ccl.el
+++ b/mel-ccl.el
@@ -6,7 +6,7 @@
 ;; Created: 1998/9/17
 ;; Keywords: MIME, Base64, Quoted-Printable, Q-encoding
 
-;; This file is part of MEL (MIME Encoding Library).
+;; This file is part of FLIM (Faithful Library about Internet Message).
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
@@ -377,17 +377,19 @@ abcdefghijklmnopqrstuvwxyz\
 	    (write r7)
 	    (write-repeat r4))
 	   ;; error: BB=B 
-	   ((write r4)
+	   ((write (r4 & 255))
 	    (end))
 	   ;; BBB=
 	   ((r5 = r2 ,mel-ccl-decode-b-2-table)
 	    (r4 |= r5)
 	    (r4 >8= 0)
 	    (write r7)
-	    (write r4)
+	    (write (r4 & 255))
+	    (end)			; Excessive (end) is workaround for XEmacs 21.0.
+					; Without this, "AAA=" is converted to "^@^@^@".
 	    (end))
 	   ;; BB==
-	   ((write r4)
+	   ((write (r4 & 255))
 	    (end))))
        ((r4 >8= 0)
 	(write r7)