Composing messages in Gnus with elisp — emacs

(require 'gnus-msg)
(defun dxr-group-mail (To Subject)
  "Start composing a mail."
  (interactive)
  (gnus-setup-message 'message
  (message-mail To Subject)))