;;; this file:
;;;   http://user.it.uu.se/~embe8573/emacs-init/gnus/message-my-dynamic.el
;;;   https://dataswamp.org/~incal/emacs-init/gnus/message-my-dynamic.el

(require 'gnus-msg)
(require 'message)

(defun message-send-and-exit-current (&optional native)
  (interactive "P")
  (let ((gnus-post-method (if native 'native 'current)))
    (if (message-fetch-field "Subject")
        (message-send-and-exit)
      (message "nil subject") )))

(provide 'message-my-dynamic)