   (let* ((marked-files (svn-status-marked-files)))
     (setq svn-status-files-to-commit marked-files)
     (svn-log-edit-show-files-to-commit)
-    (svn-status-pop-to-commit-buffer)))
+    (svn-status-pop-to-commit-buffer)
+    (when svn-log-edit-insert-files-to-commit
+      (svn-log-edit-insert-files-to-commit))))
 
 (defun svn-status-pop-to-commit-buffer ()
   (interactive)

  (interactive)
  (set-buffer "*svn-log-edit*")
  (erase-buffer))


;; --------------------------------------------------------------------------------


;;; user setable variables
(defvar svn-log-edit-file-name "++svn-log++" "*Name of a saved log file.")
(defvar svn-log-edit-insert-files-to-commit t "*Insert the filelist to commit in the *svn-log* buffer")
(defvar svn-status-hide-unknown nil "*Hide unknown files in *svn-status* buffer.")
(defvar svn-status-hide-unmodified nil "*Hide unmodified files in *svn-status* buffer.")
(defvar svn-status-directory-history nil "*List of visited svn working directories.")
