      ["Load Options" svn-status-load-state t]
      ["Set Trac project root" svn-status-set-trac-project-root t]
      ["Set Short module name" svn-status-set-module-name t]
+     ["Set Branch list" svn-status-set-branch-list t]
      ["Toggle sorting of *svn-status* buffer" svn-status-toggle-sort-status-buffer
       :style toggle :selected svn-status-sort-status-buffer]
      ["Toggle display of full path names" svn-status-toggle-display-full-path

                      "")))
    (when svn-status-module-name
      (insert (format "Project name: %s\n" svn-status-module-name)))
    (when svn-status-base-info
      (insert (concat "Repository: " (svn-status-base-info->url) "\n")))
    (when svn-status-hide-unknown

    (svn-status-save-state)))

(defun svn-status-set-module-name ()
  "Interactively set `svn-status-module-name'."
  (interactive)
  (setq svn-status-module-name
        (read-string "Short Unit Name (e.g.: MyProject): "
                     svn-status-module-name))
  (when (yes-or-no-p "Save the new setting for svn-status-module-name to disk? ")
    (svn-status-save-state)))

(defun svn-status-set-branch-list ()
  "Interactively set `svn-status-branch-list'."
  (interactive)
  (setq svn-status-branch-list
        (split-string (read-string "Branch list: "
                                   (mapconcat 'identity svn-status-branch-list " "))))
  (when (yes-or-no-p "Save the new setting for svn-status-branch-list to disk? ")
    (svn-status-save-state)))

(defun svn-browse-url (url)
