(defun sacha/submit-acm-problem ()
  (interactive)
  (let ((buffer (current-buffer)))
    (gnus-fetch-group "mail.judge-acm")
    (gnus-summary-post-news)
    (save-excursion
      (when (re-search-forward "--text follows this line--" nil t)
        (forward-line)
        (insert-buffer-substring buffer)))))

../../.emacs