Steven L Baur <steve@xemacs.org>'s patch was applied:

(tm-eword::char-type, tm-eword::encode-rwl, tm-eword::encode-rwl):
Clean up Ebola infection. (cf.[tm-en:1346],[xemacs-beta:9333])

diff --git a/eword-encode.el b/eword-encode.el
index 5f0605d..803f50f 100644 (file)
--- a/eword-encode.el
+++ b/eword-encode.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Revision: 0.16 $
+;; Version: $Revision: 0.17 $
 ;; Keywords: encoded-word, MIME, multilingual, header, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -36,7 +36,7 @@
 ;;;
 
 (defconst eword-encode-RCS-ID
-  "$Id: eword-encode.el,v 0.16 1997-03-27 21:42:08 morioka Exp $")
+  "$Id: eword-encode.el,v 0.17 1997-06-18 14:26:30 morioka Exp $")
 (defconst eword-encode-version (get-version-string eword-encode-RCS-ID))
 
 
@@ -109,7 +109,7 @@ when Subject field is encoded by `eword-encode-header'.")
 ;;;
 
 (defun tm-eword::char-type (chr)
-  (if (or (= chr 32)(= chr ?\t))
+  (if (or (= chr ? )(= chr ?\t))
       nil
     (char-charset chr)
     ))
@@ -356,7 +356,7 @@ when Subject field is encoded by `eword-encode-header'.")
                (setq ret (tm-eword::encode-string-1 2 rwl))
                (setq str (car ret))
                ))
-       (cond ((eq special 32)
+       (cond ((eq special ? )
               (if (string= str "(")
                   (setq ps t)
                 (setq dest (concat dest " "))
@@ -372,7 +372,7 @@ when Subject field is encoded by `eword-encode-header'.")
                 )
               )))
       (cond ((string= str " ")
-            (setq special 32)
+            (setq special ? )
             )
            ((string= str "(")
             (setq special ?\()