   (interactive)
   (let ((st-info svn-status-info))
     (while st-info
-      (setcar (car st-info) nil)
+      (setcar (svn-status-line-info->ui-status (car st-info)) nil)
       (setq st-info (cdr st-info)))
     (svn-status-update-buffer)))
 

        (unknown-count 0)
        (marked-count 0)
        (fname (svn-status-line-info->filename (svn-status-get-line-information)))
        (column (current-column)))
    (delete-region (point-min) (point-max))
    (insert "\n")

    nil))
(defun svn-status-line-info->author (line-info) (nth 6 line-info))
(defun svn-status-line-info->modified-external (line-info) (nth 7 line-info))

(defun svn-status-line-info->is-visiblep (line-info)
  (not (or (svn-status-line-info->hide-because-unknown line-info)
