From xemacs-m  Wed Mar 19 15:28:33 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 PAA28519
	for <xemacs-beta@xemacs.org>; Wed, 19 Mar 1997 15:28:32 -0600 (CST)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.5/8.8.5) id NAA16691;
	Wed, 19 Mar 1997 13:40:20 -0800
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Subject: Re: Total disaster in 20.1
References: <m2rahb3a8w.fsf@altair.xemacs.org> <199703192104.QAA23695@fhat.stat.sc.edu>
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@miranova.com>
In-Reply-To: Anthony Rossini's message of Wed, 19 Mar 1997 16:04:06 -0500
Mime-Version: 1.0 (generated by tm-edit 7.105)
Content-Type: text/plain; charset=US-ASCII
Date: 19 Mar 1997 13:40:18 -0800
Message-ID: <m2afnzy30d.fsf@altair.xemacs.org>
Lines: 34
X-Mailer: Gnus v5.4.32/XEmacs 20.1(beta9)

Thanks Anthony, Mark and Michael.  It appears this is MULE related,
Latin-1 XEmacsen don't appear to crash.

Why doesn't this patch work?

Index: lisp/prim/about.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/prim/about.el,v
retrieving revision 1.7
diff -u -r1.7 about.el
--- about.el	1997/03/16 03:05:31	1.7
+++ about.el	1997/03/19 21:29:04
@@ -180,10 +180,14 @@
 		(save-restriction
 		  (set who nil)
 		  (narrow-to-region (point) (point))
-		  (insert-file-contents who-xpm)
+		  (let ((coding-system-for-read 'no-conversion))
+		    (insert-file-contents who-xpm))
 		  (if (looking-at "\037\235") ;may already be decompressed...
-		      (call-process-region (point-min) (point-max)
-					   "zcat" t t nil))
+		      (let ((coding-system-for-write 'no-conversion)
+			    process-input-coding-system
+			    process-output-coding-system)
+			(call-process-region (point-min) (point-max)
+					     "zcat" t t nil)))
 		  (set who (make-glyph
 			    (prog1 (buffer-string)
 			      (delete-region (point-min) (point-max)))))

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

