From cbc914f23f5f38c53e232d4d64fb1583f54cf835 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 18 Jun 1997 14:26:30 +0000 Subject: [PATCH] Steven L Baur '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]) --- eword-encode.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/eword-encode.el b/eword-encode.el index 5f0605d..803f50f 100644 --- a/eword-encode.el +++ b/eword-encode.el @@ -3,7 +3,7 @@ ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc. ;; Author: MORIOKA Tomohiko -;; 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 ?\() -- 1.7.10.4