Comment avertir avant d'envoyer un e-mail si l'objet: est vide

Si je frappe C-c C-cdans message-mode(je l' utilise notmuch) afin d'envoyer un e - mail que j'ai composais, je veux être averti si le sujet: en- tête est vide. Par exemple: "Vraiment envoyer sans sujet? (Oui ou non)"

Lorsque je compose un nouvel e-mail, je remplis le sujet après avoir écrit le corps, car ce n'est qu'alors que je sais exactement quel sujet: correspond le mieux au contenu de cet e-mail. Malheureusement, j'oublie souvent de définir l'objet et avec le mode message, l'e-mail est envoyé sans objet :.

J'ai cherché en ligne, mais je suis étonné que cela ne semble pas être un sujet récurrent et encore moins une FAQ déjà répondue.

Une façon consiste à se connecter à 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.

Par exemple:

(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)