From xemacs-m  Wed Jun 18 12:23:31 1997
Received: from altair.xemacs.org (xemacs.miranova.com [206.190.83.19])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id MAA24246
	for <xemacs-beta@xemacs.org>; Wed, 18 Jun 1997 12:23:29 -0500 (CDT)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.5/8.8.5) id KAA22726;
	Wed, 18 Jun 1997 10:22:54 -0700
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Subject: Re: arc-mode warnings
References: <rxsafko5hni.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 "18 Jun 1997 12:28:48 +0200"
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: text/plain; charset=US-ASCII
Date: 18 Jun 1997 10:22:53 -0700
Message-ID: <m2en9z6d1u.fsf@altair.xemacs.org>
Lines: 70
X-Mailer: Gnus v5.4.58/XEmacs 20.3(beta8) - "Copenhagen"

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

> Entering arc-mode on a zip attachment extracted from an E-mail with
> Gnus under emacs-version "20.3 \"Oslo\" XEmacs Lucid (beta7)" I got
> the following warnings on XEmacs's STDERR.

Please try it again with this patch.  The Ebola notices you got were
the real thing.

Index: lisp/modes/arc-mode.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/modes/arc-mode.el,v
retrieving revision 1.2
diff -u -r1.2 arc-mode.el
--- arc-mode.el	1997/06/14 20:31:08	1.2
+++ arc-mode.el	1997/06/18 17:17:45
@@ -1123,7 +1123,7 @@
         files
 	visual)
     (while (and (< (+ p 29) (point-max))
-		(= (char-after p) ?\C-z)
+		(eq (char-after p) ?\C-z)
 		(> (char-after (1+ p)) 0))
       (let* ((namefld (buffer-substring (+ p 2) (+ p 2 13)))
 	     (fnlen   (or (string-match "\0" namefld) 13))
@@ -1198,10 +1198,10 @@
              (ifnname (if fiddle (downcase efnname) efnname))
 	     (p2      (+ p 22 fnlen))
 	     (creator (if (>= (- hsize fnlen) 24) (char-after (+ p2 2)) 0))
-	     (mode    (if (= creator ?U) (archive-l-e (+ p2 8) 2) ?\666))
+	     (mode    (if (eq creator ?U) (archive-l-e (+ p2 8) 2) ?\666))
 	     (modestr (if mode (archive-int-to-mode mode) "??????????"))
-	     (uid     (if (= creator ?U) (archive-l-e (+ p2 10) 2)))
-	     (gid     (if (= creator ?U) (archive-l-e (+ p2 12) 2)))
+	     (uid     (if (eq creator ?U) (archive-l-e (+ p2 10) 2)))
+	     (gid     (if (eq creator ?U) (archive-l-e (+ p2 12) 2)))
 	     (text    (if archive-alternate-display
 			  (format "  %8d  %5S  %5S  %s"
 				  ucsize
@@ -1338,9 +1338,10 @@
              (efnname (buffer-substring (+ p 46) (+ p 46 fnlen)))
 	     (isdir   (and (= ucsize 0)
 			   (string= (file-name-nondirectory efnname) "")))
-	     (mode    (cond ((memq creator '(2 3)) ; Unix + VMS
+	     (mode    (cond ((memq (char-int creator) '(2 3)) ; Unix + VMS
 			     (archive-l-e (+ p 40) 2))
-			    ((memq creator '(0 5 6 7 10 11)) ; Dos etc.
+			    ((memq (char-int creator)
+				   '(0 5 6 7 10 11)) ; Dos etc.
 			     (logior ?\444
 				     (if isdir (logior 16384 ?\111) 0)
 				     (if (zerop
@@ -1406,11 +1407,11 @@
 	       (oldmode (aref fil 3))
 	       (newval  (archive-calc-mode oldmode newmode t))
 	       buffer-read-only)
-	  (cond ((memq creator '(2 3)) ; Unix + VMS
+	  (cond ((memq (char-int creator) '(2 3)) ; Unix + VMS
 		 (goto-char (+ p 40))
 		 (delete-char 2)
 		 (insert (logand newval 255) (lsh newval -8)))
-		((memq creator '(0 5 6 7 10 11)) ; Dos etc.
+		((memq (char-int creator) '(0 5 6 7 10 11)) ; Dos etc.
 		 (goto-char (+ p 38))
 		 (insert (logior (logand (char-after (point)) 254)
 				 (logand (logxor 1 (lsh newval -7)) 1)))

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

