Come avvisare prima di inviare e-mail se Oggetto: è vuoto

Se mi ha colpito C-c C-cin message-mode(io uso notmuch) al fine di inviare una mail che ho composto, voglio essere avvertito se il soggetto: intestazione è vuoto. Ad esempio "Davvero inviare senza oggetto? (Sì o no)"

Quando compongo una nuova e-mail, compio l'oggetto dopo aver scritto il corpo perché solo allora so esattamente quale oggetto: corrisponde meglio al contenuto di questa e-mail. Purtroppo mi dimentico spesso di impostare effettivamente l'oggetto e con la modalità messaggio l'e-mail viene inviata senza oggetto :.

Ho cercato online, ma mi stupisco che questo non sembri un argomento ricorrente e tanto meno una FAQ già risposta.

Un modo è agganciarsi a message-send-hook:

message-send-hook is a variable defined in ‘message.el’.
Its value is nil

  This variable may be risky if used as a file-local variable.

Documentation:
Hook run before sending messages.
This hook is run quite early when sending.

Per esempio:

(defun my-confirm-empty-subject ()
  "Allow user to quit when current message subject is empty."
  (or (message-field-value "Subject")
      (yes-or-no-p "Really send without Subject? ")
      (keyboard-quit)))

(add-hook 'message-send-hook #'my-confirm-empty-subject)