       (if moving (goto-char (process-mark proc))))
     (save-excursion
       (goto-char (point-min))
+
+      (if (looking-at "\n*Skipped \\(record\\|add\\) of [0-9]+ patch\\(es\\)\\.\n")
+	  (delete-region (point-min) (match-end 0)))
+
       (cond
        ((looking-at "\n*Finished \\(recording\\|amending\\) patch")
         (message "Changes recorded.")

(defvar darcsum-data nil)
(defvar darcsum-look-for-adds nil)
(defvar darcsum-show-context nil)
(defvar pre-darcsum-ediff-window-configuration nil)

;;make buffer-local variable storing old window configuration, since "let" bindings die before ediff buffers are killed
(make-variable-buffer-local 'pre-darcsum-ediff-window-configuration)

(defface darcsum-header-face
  '((((class color) (background dark))

  (setq truncate-lines t))

(define-derived-mode darcsum-query-mode indented-text-mode "Darcs Query"
  "Major mode for output from \\<darcsum-mode-map>\\[darcsum-query-manifest].

\\{darcsum-query-mode-map}"
  :group 'darcsum
