(defun unplusify-buffer () (interactive)
  (save-excursion
    (goto-char (point-min))
    (while (re-search-forward "^[+]")
      (backward-delete-char 2))))