Little function to clean org mode files that have no more TODO items in them from the org-agenda-file

clean-org-mode-agenda

;; Function for cleaning org mode agenda
(defun clean-org-mode-agenda (tmp-org-agenda)
  "Clean up all the org mode files that no longer have TODO items in"
  (while tmp-org-agenda
    (set-buffer (find-file-noselect (car tmp-org-agenda)))
    (goto-char (point-min))
    (if (re-search-forward "^\*+ TODO" nil t 1)
	()
      (org-remove-file (car tmp-org-agenda))
      )
    (setq tmp-org-agenda (cdr tmp-org-agenda))
    )
  )

(defun really-clean-org-mode-agenda ()
  (interactive)
  (clean-org-mode-agenda (org-agenda-files))
  )