(read_and): Honor --occurence option.

diff --git a/src/list.c b/src/list.c
index 9f3b58748ac69e92d1eeff392e7a16d0c2713b01..2148990f7d7cb57536db59bcdecf623c90d56d94 100644 (file)
--- a/src/list.c
+++ b/src/list.c
@@ -73,7 +73,7 @@ read_and (void (*do_something) (void))
   name_gather ();
   open_archive (ACCESS_READ);
 
-  while (!all_names_found ())
+  do
     {
       prev_status = status;
       status = read_header (false);
@@ -113,7 +113,7 @@ read_and (void (*do_something) (void))
                  skip_member ();
                  continue;
                }
-             }
+           }
 
          (*do_something) ();
          continue;
@@ -168,6 +168,7 @@ read_and (void (*do_something) (void))
        }
       break;
     }
+  while (!all_names_found (&current_stat_info));
 
   close_archive ();
   names_notfound ();           /* print names not found */