From: Alan Schmitt <alan.schmitt@polytechnique.org>
To: David Bremner <david@tethera.net>
Subject: Re: using notmuch programmatically from emacs
In-Reply-To: <871ttisber.fsf@tethera.net> (David Bremner's message of "Fri, 18
	Jul 2014 16:40:44 -0300")
Date: Mon, 21 Jul 2014 17:10:42 +0200
Message-ID: <m27g36iw7h.fsf@polytechnique.org>
References: <m2r41iyfs4.fsf@polytechnique.org> <871ttisber.fsf@tethera.net>
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3 (darwin)
MIME-Version: 1.0
Content-Type: multipart/signed; boundary="=-=-=";
	micalg=pgp-sha512; protocol="application/pgp-signature"
Cc: notmuch <notmuch@notmuchmail.org>
Precedence: list

--=-=-=
Content-Type: text/plain
Content-Transfer-Encoding: quoted-printable

On 2014-07-18 21:40, David Bremner <david@tethera.net> writes:

> Alan Schmitt <alan.schmitt@polytechnique.org> writes:
>
>> Hello,
>>
>> I sometimes have to find a message knowing only its message id. I know
>> how to use a notmuch search in emacs to find the message, then use
>> another function to display it in gnus, but I would like to do it
>> directly without going through the *notmuch-search* buffer.
>>
>> Right now I'm doing the following:
>>
>> #+begin_src emacs-lisp
>>   (defun as/msgid-to-gnus (msgid)
>>     "Search for the MSGID using notmuch, then open the message with
>>   gnus."
>>     (let ((file (shell-command-to-string (concat "notmuch search --outpu=
t=3Dfiles 'id:" msgid "'"))))
>
> The structured output formats (sexp, json) include file names, so you
> should be able to use something like the following
>
> (defun notmuch-query-get-message-filenames (&rest search-terms)
>   "Return a list of message-ids of messages that match SEARCH-TERMS"
>   (notmuch-query-map-threads
>    (lambda (msg) (plist-get msg :filename))
>    (notmuch-query-get-threads search-terms)))
>
> This is based on the example at the bottom of notmuch-query.el

Thanks a lot, this put me on the right track. I had to slightly modify
your example as it returns every message in the thread (and not just
the matching one). So I first test for id, and the filter the list to
return only the matching message. Here is the code I wrote.

#+begin_src emacs-lisp
  (defun notmuch-query-get-message-filenames (msgid)
    "Return the message filename where the message id matches MSGID
  and `nil' if no such message is found"
    (car (remove nil
                 (notmuch-query-map-threads
                  (lambda (msg) (if (equal (plist-get msg :id) msgid)
                                    (plist-get msg :filename)
                                  nil))
                  (notmuch-query-get-threads (list (concat "id:" msgid)))))=
))
#+end_src

Thanks again,

Alan

=2D-=20
OpenPGP Key ID : 040D0A3B4ED2E5C7

--=-=-=
Content-Type: application/pgp-signature

-----BEGIN PGP SIGNATURE-----
Version: GnuPG/MacGPG2 v2.0.22 (Darwin)

iQEcBAEBCgAGBQJTzS12AAoJEAQNCjtO0uXHVcYIAIlMX56IQa/zhCLZVeAbBeDl
yKwFFtHuzWAJtKI4++0X6fwKx1m7BuXhLyr2eXDAUOkNH5Rh4bvpYafVK3iHJFvE
TF+elmRI9wdVmDTBNYeYqN4q+34ymXo3zA63KCrB0xAFAjPB8UMdTq2bnYZgLY/s
jBSViMsIk8da18KYVn4n8rBAOTj8zujQod8P/MJwKopvQCqyaO5LWXJGr/ByFxvP
Xpf0b7JRLE+iqvJi6vr7n2XKGSGJZ4nCj7Ulm3BRri7fk93FcPa8GUxFbl0vvsXQ
jX/M+rNA3QsIRWnuEM04yyRfgfjyVP4doPtbedrCU6Jvpa/PxHdi7wWks8GfjO8=
=QZ0x
-----END PGP SIGNATURE-----
--=-=-=--