Excise spurious Org agenda buffers leaked by org-mobile

clean-up-org-mobile-cruft.el

(eval-when-compile
    (require 'syntactic-sugar) ; for `then'
    (require 'anaphora)) ; for `awhen'

(require 'org-mobile)

(defun ph/clean-up-org-mobile-cruft ()
    "Excise spurious Org agenda buffers leaked by org-mobile."
    (awhen (get-buffer "*SUMO*")
        (then
            (ignore-errors
                (kill-buffer it)
                (awhen (get-buffer "*Org Agenda*")
                    (then
                        (kill-buffer it)))))))

(add-hook 'org-mobile-post-push-hook #'ph/clean-up-org-mobile-cruft)