      ["Edit svn:keywords List" svn-status-property-set-keyword-list t]
      ["Select svn:eol-style" svn-status-property-set-eol-style t]
      ["Set svn:executable" svn-status-property-set-executable t]
+     ["Set svn:mime-type" svn-status-property-set-mime-type t]
      )
     ("Options"
      ["Save Options" svn-status-save-state t]

;; P k   - svn-status-property-set-keyword-list
;; P y   - svn-status-property-set-eol-style
;; P x   - svn-status-property-set-executable
;; H     - svn-status-use-history
;; x     - svn-status-update-buffer
;; q     - svn-status-bury-buffer

  (interactive)
  (svn-status-property-set-property (svn-status-marked-files) "svn:executable" "*"))

(defun svn-status-property-set-mime-type ()
  "Set the svn:mime-type property on the marked files."
  (interactive)
  (require 'mailcap nil t)
  (let ((completion-ignore-case t)
        (completion-function (if svn-status-use-ido-completion
                                 'ido-completing-read
                               'completing-read))
        (mime-types (when (fboundp 'mailcap-mime-types)
                      (mailcap-mime-types))))
    (svn-status-property-set-property
     (svn-status-marked-files) "svn:mime-type"
     (funcall completion-function "Set svn:mime-type for the marked files: "
              (mapcar (lambda (x) (cons x x)) ; for Emacs 21
                      (sort mime-types 'string<))))))

;; --------------------------------------------------------------------------------
;; svn-prop-edit-mode:
;; --------------------------------------------------------------------------------
