(switch-to-buffer "*Messages*")

(length (buffer-list))

(switch-to-buffer (car (nthcdr 3 (buffer-list))))