From 1eb413da0dc9ca57793e6daec03b6f373151eaff Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 21 Nov 2019 14:27:51 -0700 Subject: notmuch-extract-patch: tolerate text in Subject: before [PATCH nn/mm] Signed-off-by: Sean Whitton --- mailscripts.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'mailscripts.el') diff --git a/mailscripts.el b/mailscripts.el index 916aec8..fa4c733 100644 --- a/mailscripts.el +++ b/mailscripts.el @@ -1,7 +1,7 @@ ;;; mailscripts.el --- functions to access tools in the mailscripts package ;; Author: Sean Whitton -;; Version: 0.13 +;; Version: 0.15 ;; Package-Requires: (notmuch projectile) ;; Copyright (C) 2018, 2019 Sean Whitton -- cgit v1.2.3 From 8822515602bedcc4ce5b6a2428a2e506fdc0bf6d Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 21 Nov 2019 14:30:43 -0700 Subject: handle notmuch-show-thread-id not actually containing a thread ID Signed-off-by: Sean Whitton --- debian/changelog | 2 ++ mailscripts.el | 12 +++++++++++- 2 files changed, 13 insertions(+), 1 deletion(-) (limited to 'mailscripts.el') diff --git a/debian/changelog b/debian/changelog index 773e78f..69102fd 100644 --- a/debian/changelog +++ b/debian/changelog @@ -4,6 +4,8 @@ mailscripts (0.15-1) UNRELEASED; urgency=medium right at the beginning of the Subject: field. With mail forwarded by the Debian BTS, 'Bug#nnnnnn: ' is prepended to the Subject: field. + * mailscripts.el: handle situation in which notmuch-show-thread-id + contains an arbitrary search query rather than the thread ID. -- Sean Whitton Thu, 21 Nov 2019 14:23:15 -0700 diff --git a/mailscripts.el b/mailscripts.el index fa4c733..9c51f73 100644 --- a/mailscripts.el +++ b/mailscripts.el @@ -68,7 +68,17 @@ particular, this Emacs Lisp function supports passing only entire threads to the notmuch-extract-patch(1) command." (interactive "Dgit repo: \nsbranch name (or leave blank to apply to current HEAD): \np") - (let ((thread-id notmuch-show-thread-id) + (let ((thread-id + ;; If `notmuch-show' was called with a notmuch query rather + ;; than a thread ID, as `org-notmuch-follow-link' in + ;; org-notmuch.el does, then `notmuch-show-thread-id' might + ;; be an arbitrary notmuch query instead of a thread ID. We + ;; need to wrap such a query in thread:{} before passing it + ;; to notmuch-extract-patch(1), or we might not get a whole + ;; thread extracted (e.g. if the query is just id:foo) + (if (string= (substring notmuch-show-thread-id 0 7) "thread:") + notmuch-show-thread-id + (concat "thread:{" notmuch-show-thread-id "}"))) (default-directory (expand-file-name repo))) (mailscripts--check-out-branch branch) (shell-command -- cgit v1.2.3