From xemacs-m  Sat Jul 26 23:22:30 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 XAA20542
	for <xemacs-beta@xemacs.org>; Sat, 26 Jul 1997 23:22:29 -0500 (CDT)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.6/8.8.6) id VAA21736;
	Sat, 26 Jul 1997 21:26:14 -0700
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Subject: [PATCH]  Re: W3 is broken.
References: <87d8o6o71w.fsf@bittersweet.inetarena.com>
X-Face: `'%\i;ySOu]g?NlziJSk_$&@]KP`}~PEQPjZ5;nxSaDW_o$4+4%Ab]%Ifw3ZR;7TIT3,O,'
 @2{L;]ox6kc;$_5kU'n**9vFg-]eV~GbxSVCx|(s%uR[],*:^WKmC`B}(;|k9/m]gwt?&`t;^rfCJg
 khHH>pP1W\)xM0U@!FNDD72{3fDP$PkBhx^7Z?-WxH6DbFN:QOnT`llzW}VGdYv;n9lzljQvKTIBhQ
 YuV
X-Attribution: sb
From: SL Baur <steve@xemacs.org>
In-Reply-To: karlheg+xemacs@inetarena.com's message of "25 Jul 1997 19:56:11 -0700"
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: text/plain; charset=US-ASCII
Date: 26 Jul 1997 21:26:14 -0700
Message-ID: <m2204lw26x.fsf@altair.xemacs.org>
Lines: 29
X-Mailer: Gnus v5.4.64/XEmacs 20.3(beta16) - "Budapest"

Karl M Hegbloom <karlheg+xemacs@inetarena.com> writes:

>  When I try to use W3, it says:

>   # bind (standard-output stack-trace-on-signal debug-on-signal stack-trace-on-error debug-on-error extn)
>   mm-extension-to-mime("")

Ebola!  And the problem exists in Berlin.

1997-07-26  SL Baur  <steve@altair.xemacs.org>

	* mm.el (mm-extension-to-mime): Use `eq' for character comparison.

Index: lisp/w3/mm.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/w3/mm.el,v
retrieving revision 1.12
diff -u -r1.12 mm.el
--- mm.el	1997/06/26 02:31:48	1.12
+++ mm.el	1997/07/27 04:23:16
@@ -1033,7 +1033,7 @@
 (defun mm-extension-to-mime (extn)
   "Return the MIME content type of the file extensions EXTN"
   (if (and (stringp extn)
-	   (not (= (string-to-char extn) ?.)))
+	   (not (eq (string-to-char extn) ?.)))
       (setq extn (concat "." extn)))
   (cdr (assoc (downcase extn) mm-mime-extensions)))
 

