[PATCH] emacs: print messages when starting and ending notmuch queries

diff --git a/e9/9d3a09685567504f32fc26ca6c00c798904d97 b/e9/9d3a09685567504f32fc26ca6c00c798904d97
new file mode 100644 (file)
index 0000000..71e91d7
--- /dev/null
+++ b/e9/9d3a09685567504f32fc26ca6c00c798904d97
@@ -0,0 +1,103 @@
+Return-Path: <bremner@tesseract.cs.unb.ca>\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 53F3E431FB6\r
+       for <notmuch@notmuchmail.org>; Sat, 28 Mar 2015 03:31:41 -0700 (PDT)\r
+X-Virus-Scanned: Debian amavisd-new at olra.theworths.org\r
+X-Spam-Flag: NO\r
+X-Spam-Score: 2.438\r
+X-Spam-Level: **\r
+X-Spam-Status: No, score=2.438 tagged_above=-999 required=5\r
+       tests=[DNS_FROM_AHBL_RHSBL=2.438] 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 dw+f7+ZeOvzX for <notmuch@notmuchmail.org>;\r
+       Sat, 28 Mar 2015 03:31:38 -0700 (PDT)\r
+Received: from mx.xen14.node3324.gplhost.com (gitolite.debian.net\r
+       [87.98.215.224])\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 0C5DE431FAF\r
+       for <notmuch@notmuchmail.org>; Sat, 28 Mar 2015 03:31:38 -0700 (PDT)\r
+Received: from remotemail by mx.xen14.node3324.gplhost.com with local (Exim\r
+       4.80) (envelope-from <bremner@tesseract.cs.unb.ca>)\r
+       id 1Ybo0i-00036r-DM; Sat, 28 Mar 2015 10:30:36 +0000\r
+Received: (nullmailer pid 1432 invoked by uid 1000); Sat, 28 Mar 2015\r
+       10:30:23 -0000\r
+From: David Bremner <david@tethera.net>\r
+To: Sebastian Fischmeister <sfischme@uwaterloo.ca>, David Bremner\r
+       <david@tethera.net>, notmuch <notmuch@notmuchmail.org>\r
+Subject: [PATCH] emacs: print messages when starting and ending notmuch\r
+ queries\r
+Date: Sat, 28 Mar 2015 11:30:17 +0100\r
+Message-Id: <1427538617-1324-1-git-send-email-david@tethera.net>\r
+X-Mailer: git-send-email 2.1.4\r
+In-Reply-To: <87vbhpvp0x.fsf@uwaterloo.ca>\r
+References: <87vbhpvp0x.fsf@uwaterloo.ca>\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: Sat, 28 Mar 2015 10:31:41 -0000\r
+\r
+For slow queries, it is possible for a second query to block while the\r
+first is still running.  This has the unfortunate effect that it is\r
+impossible for the user to know if the query returned no results, or\r
+if it is still running.  This change tries to remedy this by printing\r
+messages in the echo area when starting and finishing queries.\r
+---\r
+\r
+I'm curious what people think about this possible change. It does make\r
+the whole UI a bit noisier for fast queries.  OTOH, it seems simpler than trying to mess with the results buffer or mode line.\r
+\r
+ emacs/notmuch.el | 4 ++++\r
+ 1 file changed, 4 insertions(+)\r
+\r
+diff --git a/emacs/notmuch.el b/emacs/notmuch.el\r
+index ab00454..cb8ddef 100644\r
+--- a/emacs/notmuch.el\r
++++ b/emacs/notmuch.el\r
+@@ -616,6 +616,7 @@ of the result."\r
+   (let ((buffer (process-buffer proc))\r
+       (status (process-status proc))\r
+       (exit-status (process-exit-status proc))\r
++      (query (process-get proc 'query))\r
+       (never-found-target-thread nil))\r
+     (when (memq status '(exit signal))\r
+       (catch 'return\r
+@@ -629,6 +630,7 @@ of the result."\r
+                 (if (eq status 'signal)\r
+                     (insert "Incomplete search results (search process was killed).\n"))\r
+                 (when (eq status 'exit)\r
++                  (message "notmuch query %s complete" query)\r
+                   (insert "End of search results.\n")\r
+                   ;; For version mismatch, there's no point in\r
+                   ;; showing the search buffer\r
+@@ -931,6 +933,7 @@ the configured default sort order."\r
+         (error "notmuch search process already running for query `%s'" query)\r
+       )\r
+       (erase-buffer)\r
++      (message "running notmuch query %s..." query)\r
+       (goto-char (point-min))\r
+       (save-excursion\r
+       (let ((proc (notmuch-start-notmuch\r
+@@ -945,6 +948,7 @@ the configured default sort order."\r
+             ;; should be called no matter how the process dies.\r
+             (parse-buf (generate-new-buffer " *notmuch search parse*")))\r
+         (process-put proc 'parse-buf parse-buf)\r
++        (process-put proc 'query query)\r
+         (set-process-filter proc 'notmuch-search-process-filter)\r
+         (set-process-query-on-exit-flag proc nil))))\r
+     (run-hooks 'notmuch-search-hook)))\r
+-- \r
+2.1.4\r
+\r