From xemacs-m  Wed Jun 18 14:57:41 1997
Received: from steadfast.teradyne.com (steadfast.teradyne.com [131.101.1.200])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id OAA28303
	for <xemacs-beta@xemacs.org>; Wed, 18 Jun 1997 14:57:41 -0500 (CDT)
Received: from engine.ecf.teradyne.com (engine.ecf.teradyne.com [131.101.192.6]) by steadfast.teradyne.com (8.7.1/8.7.1) with ESMTP id QAA27829 for <xemacs-beta@xemacs.org>; Wed, 18 Jun 1997 16:01:40 -0400 (EDT)
Received: from midnight.eng.ecf.teradyne.com (midnight.ecf.teradyne.com [131.101.192.49]) by engine.ecf.teradyne.com (8.7.1/8.7.1) with SMTP id VAA23481; Wed, 18 Jun 1997 21:57:06 +0200 (MET DST)
Received: by midnight.eng.ecf.teradyne.com (SMI-8.6/SMI-SVR4)
	id VAA05778; Wed, 18 Jun 1997 21:57:06 +0200
To: xemacs-beta@xemacs.org
Subject: Re: arc-mode warnings
References: <rxsafko5hni.fsf@midnight.ecf.teradyne.com> <m2en9z6d1u.fsf@altair.xemacs.org> <rxsafkng2vi.fsf@midnight.ecf.teradyne.com> <m2k9jrk9zl.fsf@altair.xemacs.org>
X-Face: 4[iHdXiTu\V3u[~\I)<f9HC);%~nG8`oUqv#uzvs6=\V{AjN6Sn
 c/qi;YLwRmEbt8Y*=j5n(urqY@chPh@J'D"QlqD!C8>*}#kYF[-tYl3VZga/HSOP|K,{L
 Rtu@f0y/=O&Cu}\:~d|P$JON?pn?j,&CnPb1z#/TL9bkAJwyol&a:SvYj-VYbM=Dtxhk9
 =w|R6U3_;SH&B<Mfy6Q%#
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: text/plain; charset=US-ASCII
From: Adrian Aichner <aichner@ecf.teradyne.com>
Date: 18 Jun 1997 21:57:05 +0200
In-Reply-To: Steven L Baur's message of "18 Jun 1997 12:05:18 -0700"
Message-ID: <rxs67vbfzvy.fsf@midnight.ecf.teradyne.com>
Lines: 37
X-Mailer: Gnus v5.4.56/XEmacs 20.3(beta7) - "Oslo"

>>>>> "sb" == Steven L Baur <steve@xemacs.org> writes:

Steven,

I would say arc-mode is healed.

Applied the second patch, byte-compiled and verified like before.

No warnings anymore.

Congrats,

Adrian

    sb> Adrian Aichner <aichner@ecf.teradyne.com> writes:
    >> [Previous patch didn't work completely]

    sb> Oops, I missed one.  This goes on top of the last one and fixes a real
    sb> bug.

    sb> --- lisp/modes/arc-mode.el~	Wed Jun 18 10:17:45 1997
    sb> +++ lisp/modes/arc-mode.el	Wed Jun 18 12:01:52 1997
    sb> @@ -1350,7 +1350,7 @@
    sb>  			    (t nil)))
    sb>  	     (modestr (if mode (archive-int-to-mode mode) "??????????"))
    sb>  	     (fiddle  (and archive-zip-case-fiddle
    sb> -			   (not (not (memq creator '(0 2 4 5 9))))))
    sb> +			   (not (not (memq (char-int creator) '(0 2 4 5 9))))))
    sb>               (ifnname (if fiddle (downcase efnname) efnname))
    sb>               (text    (format "  %10s  %8d  %-11s  %-8s  %s"
    sb>  			      modestr

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


