Vim - messages をバッファに出力する

:messages で表示される内容をもっと簡単にバッファに出力して、文字列をコピーしたり編集したりしたい。

command! PutMessage call s:put_message()
function! s:put_message()
  :enew
  :put =execute('messages')
  :setf vim
endfunction

実行したいとき

:PutMessage