From xemacs-m  Tue Jul  1 20:43:43 1997
Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id UAA18448
	for <xemacs-beta@xemacs.org>; Tue, 1 Jul 1997 20:43:29 -0500 (CDT)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.6/8.8.6) id SAA02171;
	Tue, 1 Jul 1997 18:42:27 -0700
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Cc: tm-en@chamonix.jaist.ac.jp
Subject: Re: Some Ebola from mel-q.elc
References: <rxsg1u09see.fsf@midnight.ecf.teradyne.com>
X-Url: http://www.miranova.com/%7Esteve/
X-Face: #!T9!#9s-3o8)*uHlX{Ug[xW7E7Wr!*L46-OxqMu\xz23v|R9q}lH?cRS{rCNe^'[`^sr5"
 f8*@r4ipO6Jl!:Ccq<xoV[Qz2u8<8-+Vwf2gzJ44lf_/y9OaQ`@#Q65{U4/TC)i2`~/M&QI$X>p:9I
 OSS'2{-)-4wBnVeg0S\O4Al@)uC[pD|+
X-Attribution: sb
From: Steven L Baur <steve@xemacs.org>
In-Reply-To: Adrian Aichner's message of "30 Jun 1997 14:39:21 +0200"
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: text/plain; charset=US-ASCII
Date: 01 Jul 1997 18:42:27 -0700
Message-ID: <m2pvt2kz5o.fsf@altair.xemacs.org>
Lines: 47
X-Mailer: Gnus v5.4.61/XEmacs 20.3(beta11) - "Stockholm"

Adrian Aichner <aichner@ecf.teradyne.com> writes:

> Here's what I got on emacs-version "20.3 \"Athens\" XEmacs  Lucid
> (beta10)" stderr.

> To reproduce, setup a Message mail buffer with MIME-Edit (load
> "mime-setup").
> Select Input Method German, quail-german.
> Enter some Umlauts (ae, oe, ue, sz) in the Subject: and the To: field.

> Comparison between integer and character is constant nil (32 and ?F)
 ...
> Comparison between integer and character is constant nil (32 and ?u)

Thanks for the report.  You have definitely found a bug.  This patch
will need to be applied to SEMI if this code hasn't been there fixed
yet.

Please check this and see if it cures the whole problem.

(This patch is against the version of tm in XEmacs 20.3-beta10).

1997-07-01  Steven L Baur  <steve@altair.xemacs.org>

	* mel/mel-q.el (q-encoding-encode-string): Fix Ebola-ified
 	comparison.

Index: lisp/mel/mel-q.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/mel/mel-q.el,v
retrieving revision 1.3
diff -u -r1.3 mel-q.el
--- mel-q.el	1997/06/06 00:57:14	1.3
+++ mel-q.el	1997/07/02 01:33:13
@@ -259,7 +259,7 @@
 			   ))))
     (mapconcat (function
 		(lambda (chr)
-		  (cond ((eq chr 32) "_")
+		  (cond ((eq chr ? ) "_")
 			((or (< chr 32) (< 126 chr)
 			     (memq chr specials)
 			     )

-- 
steve@calag.com baur
Unsolicited commercial e-mail will be billed at $250/message.

