From 6c256ad032b9b069fb2d050b107f07a802485e2d Mon Sep 17 00:00:00 2001 From: akr Date: Thu, 17 Sep 1998 10:16:28 +0000 Subject: [PATCH] * mel-ccl.el (mel-ccl-decode-b): Cut bits over 8bit on last byte. --- ChangeLog | 5 +++++ mel-ccl.el | 10 ++++++---- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index 94e7c3e..dee2277 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,10 @@ 1998-09-17 Tanaka Akira + * mel-ccl.el (mel-ccl-decode-b): Cut bits over 8bit on last + byte. + +1998-09-17 Tanaka Akira + * 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) -- 1.7.10.4