     (if file-names
         (progn
           (message "svn-status-cleanup %S" file-names)
-          (svn-run-svn t t 'cleanup (append (list "cleanup") file-names)))
+          (svn-run t t 'cleanup (append (list "cleanup") file-names)))
       (message "No valid file selected - No status cleanup possible"))))
 
 (defun svn-status-resolved ()

                                     (svn-status-directory-containing-point t))))
  (unless (string-match "^[^:/]+://" dir) ; Is it a URI?
    (setq dir (file-relative-name dir)))
  (svn-run-svn t t 'mkdir "mkdir" "--" dir))

;;TODO: write a svn-status-cp similar to this---maybe a common
;;function to do both?

        major-mode mode-name)
    (diff-mode)))

(defun svn-status-show-process-buffer ()
  "Show the content of the *svn-process* buffer"
  (interactive)
