(defun buffer-cleanup ()
  (interactive)
  (whitespace-cleanup)
  (untabify (point-min) (point-max)))