   (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:
 ;; --------------------------------------------------------------------------------

;; 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

     ["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]
