Re: using notmuch programmatically from emacs

diff --git a/f6/bc5a2c8367cd1759e16a96dc92077b34307a13 b/f6/bc5a2c8367cd1759e16a96dc92077b34307a13
new file mode 100644 (file)
index 0000000..70abf95
--- /dev/null
+++ b/f6/bc5a2c8367cd1759e16a96dc92077b34307a13
@@ -0,0 +1,80 @@
+Return-Path: <david@tethera.net>\r
+X-Original-To: notmuch@notmuchmail.org\r
+Delivered-To: notmuch@notmuchmail.org\r
+Received: from localhost (localhost [127.0.0.1])\r
+       by olra.theworths.org (Postfix) with ESMTP id 17B4F431FB6\r
+       for <notmuch@notmuchmail.org>; Fri, 18 Jul 2014 12:41:00 -0700 (PDT)\r
+X-Virus-Scanned: Debian amavisd-new at olra.theworths.org\r
+X-Spam-Flag: NO\r
+X-Spam-Score: 0\r
+X-Spam-Level: \r
+X-Spam-Status: No, score=0 tagged_above=-999 required=5 tests=[none]\r
+       autolearn=disabled\r
+Received: from olra.theworths.org ([127.0.0.1])\r
+       by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)\r
+       with ESMTP id oEPvXTcHBXEw for <notmuch@notmuchmail.org>;\r
+       Fri, 18 Jul 2014 12:40:52 -0700 (PDT)\r
+Received: from yantan.tethera.net (yantan.tethera.net [199.188.72.155])\r
+       (using TLSv1 with cipher DHE-RSA-AES128-SHA (128/128 bits))\r
+       (No client certificate requested)\r
+       by olra.theworths.org (Postfix) with ESMTPS id C7FD7431FAE\r
+       for <notmuch@notmuchmail.org>; Fri, 18 Jul 2014 12:40:52 -0700 (PDT)\r
+Received: from remotemail by yantan.tethera.net with local (Exim 4.80)\r
+       (envelope-from <david@tethera.net>)\r
+       id 1X8E1Q-0001lg-8G; Fri, 18 Jul 2014 16:40:48 -0300\r
+Received: (nullmailer pid 32294 invoked by uid 1000); Fri, 18 Jul 2014\r
+       19:40:44 -0000\r
+From: David Bremner <david@tethera.net>\r
+To: Alan Schmitt <alan.schmitt@polytechnique.org>, notmuch\r
+       <notmuch@notmuchmail.org>\r
+Subject: Re: using notmuch programmatically from emacs\r
+In-Reply-To: <m2r41iyfs4.fsf@polytechnique.org>\r
+References: <m2r41iyfs4.fsf@polytechnique.org>\r
+User-Agent: Notmuch/0.18.1+6~g1ba7098 (http://notmuchmail.org) Emacs/24.3.1\r
+       (x86_64-pc-linux-gnu)\r
+Date: Fri, 18 Jul 2014 16:40:44 -0300\r
+Message-ID: <871ttisber.fsf@tethera.net>\r
+MIME-Version: 1.0\r
+Content-Type: text/plain\r
+X-BeenThere: notmuch@notmuchmail.org\r
+X-Mailman-Version: 2.1.13\r
+Precedence: list\r
+List-Id: "Use and development of the notmuch mail system."\r
+       <notmuch.notmuchmail.org>\r
+List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
+       <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
+List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
+List-Post: <mailto:notmuch@notmuchmail.org>\r
+List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
+List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
+       <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
+X-List-Received-Date: Fri, 18 Jul 2014 19:41:00 -0000\r
+\r
+Alan Schmitt <alan.schmitt@polytechnique.org> writes:\r
+\r
+> Hello,\r
+>\r
+> I sometimes have to find a message knowing only its message id. I know\r
+> how to use a notmuch search in emacs to find the message, then use\r
+> another function to display it in gnus, but I would like to do it\r
+> directly without going through the *notmuch-search* buffer.\r
+>\r
+> Right now I'm doing the following:\r
+>\r
+> #+begin_src emacs-lisp\r
+>   (defun as/msgid-to-gnus (msgid)\r
+>     "Search for the MSGID using notmuch, then open the message with\r
+>   gnus."\r
+>     (let ((file (shell-command-to-string (concat "notmuch search --output=files 'id:" msgid "'"))))\r
+\r
+The structured output formats (sexp, json) include file names, so you\r
+should be able to use something like the following\r
+\r
+(defun notmuch-query-get-message-filenames (&rest search-terms)\r
+  "Return a list of message-ids of messages that match SEARCH-TERMS"\r
+  (notmuch-query-map-threads\r
+   (lambda (msg) (plist-get msg :filename))\r
+   (notmuch-query-get-threads search-terms)))\r
+\r
+This is based on the example at the bottom of notmuch-query.el\r
+\r