John Mastro [2017-08-30 18:55:47-07] wrote:

> The difference is likely irrelevant, but you can still use
> `insert-buffer' rather than consing a string of the buffer's contents:
>
> (defun send-buffer-as-mail ()
>   (interactive)
>   (let ((buf (current-buffer)))
>     (compose-mail)
>     (save-excursion
>       (message-goto-body)
>       (insert-buffer buf))))

If you are going to use function message-goto-body I think it's a good
idea to ensure that compose-mail will use message-mode.

    (let ((mail-user-agent 'message-user-agent) ; or gnus-user-agent
          ...)
      (compose-mail)
      ...)

-- 
/// Teemu Likonen   - .-..   <https://keybase.io/tlikonen> //
// PGP: 4E10 55DC 84E9 DFF6 13D7 8557 719D 69D3 2453 9450 ///