# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1043825066 0
# Node ID 389fbac8d44311e4d1e9212294fdee326479e3a6
# Parent  931d6468248e05a087e46ac99f727a2c2e91739f
(archive-lzh-summarize): Fix previous change.

diff -r 931d6468248e -r 389fbac8d443 lisp/arc-mode.el
--- a/lisp/arc-mode.el	Wed Jan 29 00:16:33 2003 +0000
+++ b/lisp/arc-mode.el	Wed Jan 29 07:24:26 2003 +0000
@@ -1486,10 +1486,10 @@
 	      (setq thsize (- neh p))))
 	(if (= hdrlvl 0)  ;total header size
 	    (setq thsize hsize))
-	(setq fiddle  (string= efnname (upcase efnname)))
+	(setq fiddle  (if efnname (string= efnname (upcase efnname))))
 	(setq ifnname (if fiddle (downcase efnname) efnname))
 	(setq prname (if dir (concat dir ifnname) ifnname))
-	(setq width (string-width prname))
+	(setq width (if prname (string-width prname) 0))
 	(setq modestr (if mode (archive-int-to-mode mode) "??????????"))
 	(setq moddate (if (= hdrlvl 2)
 			  (archive-unixdate time1 time2) ;level 2 header in UNIX format