From fefc7a94740946e9d13a2d25c6170b55c9e075e4 Mon Sep 17 00:00:00 2001 From: Tony Zorman Date: Sun, 29 Oct 2023 08:26:32 +0100 Subject: [PATCH] emacs/mua: optionally check for erroneous subjects This works much like notmuch-mua-attachment-regexp, but for the subject instead. By default, check for empty subjects, as that seems a reasonable thing to safeguard against. --- emacs/notmuch-mua.el | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el index bf62b656..b80e5976 100644 --- a/emacs/notmuch-mua.el +++ b/emacs/notmuch-mua.el @@ -142,6 +142,16 @@ to `notmuch-mua-send-hook'." :type 'regexp :group 'notmuch-send) +(defcustom notmuch-mua-subject-regexp + "[[:blank:]]*$" + "Message subject indicating that something may be amiss. +By default, this checks for empty subject lines. + +This is not used unless `notmuch-mua-subject-check' is added to +`notmuch-mua-send-hook'." + :type 'regexp + :group 'notmuch-send) + ;;; Various functions (defun notmuch-mua-attachment-check () @@ -179,6 +189,19 @@ Typically this is added to `notmuch-mua-send-hook'." ;; ...signal an error. (error "Missing attachment"))) +(defun notmuch-mua-subject-check () + "Signal an error if the subject seems amiss. +More precisely, if the subject conforms to +`notmuch-mua-subject-regexp'. + +Typically this is added to `notmuch-mua-send-hook'." + (or (save-excursion + (message-goto-subject) + (message-beginning-of-header t) + (not (looking-at-p notmuch-mua-subject-regexp))) + (y-or-n-p "Subject may be erroneous – is that okay?") + (error "Erroneous subject"))) + (defun notmuch-mua-get-switch-function () "Get a switch function according to `notmuch-mua-compose-in'." (pcase notmuch-mua-compose-in