 (defun svn-status-commit-file ()
   (interactive)
   (let* ((marked-files (svn-status-marked-files)))
-    (message "Commiting %S" (svn-status-marked-file-names))
     (setq svn-status-files-to-commit marked-files)
+    (svn-log-edit-show-files-to-commit)
     (svn-status-pop-to-commit-buffer)))
 
 (defun svn-status-pop-to-commit-buffer ()
   (interactive)
   (setq svn-status-pre-commit-window-configuration (current-window-configuration))
-  (let* ((commit-buffer (get-buffer-create "*svn-log-edit*"))
+  (let* ((use-existing-buffer (get-buffer "*svn-log-edit*"))
+         (commit-buffer (get-buffer-create "*svn-log-edit*"))
          (dir default-directory))
     (pop-to-buffer commit-buffer)
     (setq default-directory dir)
+    (unless use-existing-buffer
+      (when (and svn-log-edit-file-name (file-readable-p svn-log-edit-file-name))
+        (insert-file svn-log-edit-file-name)))
     (svn-log-edit-mode)))
 
 (defun svn-status-cleanup ()

            (error "Unknown status line format."))))
          (unless path (setq path "."))
          (setq user-mark (not (not (member path old-marked-files))))
          ;;(setq svn-status-info (append svn-status-info
          ;;                              (list
          ;;                               (list user-mark
          ;;                                     svn-file-mark
          ;;                                     svn-property-mark
          ;;                                     path
          ;;                                     local-rev
          ;;                                     last-change-rev
          ;;                                     author
          ;;                                     modified-external)))))
                                               ;;file-svn-info
          (setq svn-status-info (cons (list user-mark
                                            svn-file-mark
                                            svn-property-mark

                                            author
                                            svn-update-mark)
                                      svn-status-info))
          (forward-line 1))
      (setq svn-status-info (nreverse svn-status-info)))))

