(archive-lzh-summarize): Fix previous change.

diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index 583b8c25426de77388a04c7007118a7a8cb1694d..cc1462c22f3974d7519ce70532650c7ca42438c5 100644 (file)
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -1486,10 +1486,10 @@ This doesn't recover lost files, it just undoes changes in the buffer itself."
              (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