[PATCH v4] Add user option for specifying path to notmuch-extract-patch

[Leo <sourcehut@relevant-information.com>]

`notmuch-extract-patch` might not be available on PATH.  This can be the
case if the package wasn't installed through the distro package manager.
---
 piem-notmuch.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/piem-notmuch.el b/piem-notmuch.el
index b48cf70..34231a5 100644
--- a/piem-notmuch.el
+++ b/piem-notmuch.el
@@ -38,6 +38,10 @@ (defgroup piem-notmuch nil
   "Notmuch integration for piem."
   :group 'piem)
 
+(defcustom piem-notmuch-extract-patch-executable "notmuch-extract-patch"
+  "Which notmuch-extract-patch executable to use."
+  :type 'string)
+
 (defmacro piem-notmuch--with-current-message (&rest body)
   (declare (indent 0) (debug (body)))
   (let ((rv (make-symbol "rv")))
@@ -120,8 +124,7 @@ (defun piem-notmuch-extract-patch-am-ready-mbox ()
                   (mm-dissect-buffer))) 0))
     (let ((thread-id notmuch-show-thread-id))
       (lambda ()
-        (if-let ((cmd (executable-find "notmuch-extract-patch"))
-                 (tid
+        (if-let ((tid
                   ;; Copied from mailscripts.el
                   ;;
                   ;; If `notmuch-show' was called with a notmuch query rather
@@ -134,7 +137,7 @@ (defun piem-notmuch-extract-patch-am-ready-mbox ()
                   (if (string= (substring thread-id 0 7) "thread:")
                       thread-id
                     (concat "thread:{" thread-id "}"))))
-            (call-process cmd nil t nil
+            (call-process piem-notmuch-extract-patch-executable nil t nil
                           tid)
           (user-error "The executable notmuch-extract-patch was not found"))))))
 

base-commit: 3e5535304519c31453ec12037fcd33a4b4095a51
-- 
2.34.1