(require 'message)

(when nil

  (defun spell-before-send (lang-input)
    (interactive "sLanguage [e or s]: ")
    (let((lang (pcase lang-input
                 ("e" "american-insane")
                 ("s" "svenska") )))
      (when lang
        (ispell-change-dictionary lang)
        (ispell-message) )))

  ;; (setq message-send-hook nil)
  (defun message-send-hook-f ()
    (call-interactively #'spell-before-send) )
  (setq message-send-hook #'message-send-hook-f)

)