(define (poll-for-messages #!key (bus session-bus) (timeout 0))
  (when (poll-for-message bus: bus timeout: timeout)
    (poll-for-messages bus: bus timeout: 0)))