Is there a way to get the last message?

[Marcin Borkowski <mbork@mbork.pl>]

Hi all,

I know about (current-message).  However, this won't work:

(defun get-last-message ()
  "Try to get the last message."
  (interactive)
  (with-temp-buffer
    (insert (or (current-message) ""))
    (clipboard-kill-ring-save (point-min) (point-max))))

M-x get-last-message puts the empty string into the clipboard and kill
ring.

Apparently `current-message' is cleared before this command has a chance
to get it.  This makes sense, but there is no `previous-message' command.

Is there any way to get the last thing displayed in the echo area (from
`message' or possibly from `error', too)?  This would be quite useful:
one could then paste it to a search engine to look up the internet for
some hints about the error/message.

Best,

--
Marcin Borkowski