 (defun svn-status-save-state ()
   (interactive)
   (let ((buf (find-file (concat (svn-status-base-dir) "++psvn.state"))))
-    (delete-region (point-min) (point-max))
+    (erase-buffer)        ;Widen, because we'll save the whole buffer.
     (setq svn-status-options
           (list
            (list "svn-trac-project-root" svn-trac-project-root)

                 (buffer-string))))
          (find-file file-name-with-revision)
          (setq buffer-read-only nil)
          (delete-region (point-min) (point-max))
          (insert content)
          (save-buffer)))
      (setq file-names (cdr file-names)))

                            (buffer-substring (point-min) (- (point-max) 1))
                          "")))
    (svn-status-pop-to-commit-buffer)
    ;; If the buffer has been narrowed, `svn-log-edit-done' will use
    ;; only the accessible part.  So we need not erase the rest here.
    (delete-region (point-min) (point-max))
    (insert log-message)
    (goto-char (point-min))
