           (message "Not moving %s (try committing it first)" original-name))
 
          ((eq original-filemarks 32) ;;original is unmodified: can use `svn mv'
-          (svn-run-svn nil t 'mv "mv" "--" original-name dest))
+          (svn-run nil t 'mv "mv" "--" original-name dest))
 
          ;;file is conflicted in some way?
          (t
           (if (yes-or-no-p (format "The status of %s looks scary.  Risk moving it anyway? " original-name))
-              (svn-run-svn nil t 'mv "mv" "--" original-name dest)
+              (svn-run nil t 'mv "mv" "--" original-name dest)
             (message "Not moving %s" original-name))))))
         (svn-status-update)))
 

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

(defun svn-status-resolved ()

See `svn-status-marked-files' for what counts as selected."
  (interactive)
  (svn-status-create-arg-file svn-status-temp-arg-file "" (svn-status-marked-files) "")
  (svn-run t t 'info "info" "--targets" svn-status-temp-arg-file))

;; Todo: add possiblity to specify the revision
(defun svn-status-blame ()
  "Run `svn blame' on the current file."
  (interactive)
  ;;(svn-run t t 'blame "blame" "-r" "BASE" (svn-status-line-info->filename (svn-status-get-line-information))))
  (svn-run t t 'blame "blame" (svn-status-line-info->filename (svn-status-get-line-information))))

(defun svn-status-show-svn-diff (arg)
  "Run `svn diff' on the current file.
