Re: sending a buffer by mail

[John Mastro]

Eric Abrahamsen <eric@ericabrahamsen.net> wrote:
>> Well, that sounds like a very thin wrapper around insert-buffer:
>>
>> (defun send-buffer-as-mail ()
>>   (interactive)
>>   (let ((str (buffer-string)))
>>     (compose-mail)
>>     (message-goto-body)
>>     (insert str)))
>
> This will be nicer:
>
> (defun send-buffer-as-mail ()
>   (interactive)
>   (let ((str (buffer-string)))
>     (compose-mail)
>     (save-excursion
>       (message-goto-body)
>       (insert str))))

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))))