Simple function for sending a mail message using emacs and elisp

Simple function for sending a mail message using emacs and elisp

Here's a function that sends an email message using elisp. This is about
the simplest implementation of a function, and it should serve as a good example.
;; This function sends a mail message
(defun my-message-mail-region ()
"Send a canned message in an email"
(interactive)
(let ((orig-buffer (current-buffer)))
(message-mail "user@userdomain.com" "message subject")
(message-goto-body)
(insert "Here's the message body")
(message-send-and-exit)))