[notmuch] [PATCH] Allow to redefine notmuch binary name and path in elisp mode

diff --git a/ad/0ea92e1e62753100b2719437acfd7b9f587423 b/ad/0ea92e1e62753100b2719437acfd7b9f587423
new file mode 100644 (file)
index 0000000..584d639
--- /dev/null
+++ b/ad/0ea92e1e62753100b2719437acfd7b9f587423
@@ -0,0 +1,105 @@
+Return-Path: <dottedmag@dottedmag.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 5C732431FBC\r
+       for <notmuch@notmuchmail.org>; Thu, 19 Nov 2009 17:15:48 -0800 (PST)\r
+X-Virus-Scanned: Debian amavisd-new at olra.theworths.org\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 cIKEImhfHliC for <notmuch@notmuchmail.org>;\r
+       Thu, 19 Nov 2009 17:15:47 -0800 (PST)\r
+Received: from dottedmag.net (burger.dottedmag.net [212.75.37.82])\r
+       by olra.theworths.org (Postfix) with ESMTP id 83CE7431FAE\r
+       for <notmuch@notmuchmail.org>; Thu, 19 Nov 2009 17:15:47 -0800 (PST)\r
+Received: from vertex.dottedmag (unknown [91.197.127.125])\r
+       by dottedmag.net (Postfix) with ESMTPSA id 17EAE8C069\r
+       for <notmuch@notmuchmail.org>; Fri, 20 Nov 2009 02:15:46 +0100 (CET)\r
+Received: from dottedmag by vertex.dottedmag with local (Exim 4.69)\r
+       (envelope-from <dottedmag@dottedmag.net>) id 1NBI68-0005kv-PN\r
+       for notmuch@notmuchmail.org; Fri, 20 Nov 2009 07:15:40 +0600\r
+From: Mikhail Gusarov <dottedmag@dottedmag.net>\r
+To: notmuch@notmuchmail.org\r
+Date: Fri, 20 Nov 2009 07:15:40 +0600\r
+Message-Id: <1258679740-22089-1-git-send-email-dottedmag@dottedmag.net>\r
+X-Mailer: git-send-email 1.6.3.3\r
+Subject: [notmuch] [PATCH] Allow to redefine notmuch binary name and path in\r
+       elisp mode\r
+X-BeenThere: notmuch@notmuchmail.org\r
+X-Mailman-Version: 2.1.12\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, 20 Nov 2009 01:15:48 -0000\r
+\r
+\r
+Signed-off-by: Mikhail Gusarov <dottedmag@dottedmag.net>\r
+---\r
+ notmuch.el |   13 ++++++++-----\r
+ 1 files changed, 8 insertions(+), 5 deletions(-)\r
+\r
+diff --git a/notmuch.el b/notmuch.el\r
+index 1fc54c3..f97950f 100644\r
+--- a/notmuch.el\r
++++ b/notmuch.el\r
+@@ -71,6 +71,9 @@ pattern can still test against the entire line).")\r
+ (defvar notmuch-show-signature-lines-max 12\r
+   "Maximum length of signature that will be hidden by default.")\r
+ \r
++(defvar notmuch-command "notmuch"\r
++  "Notmuch binary location")\r
++\r
+ (set 'notmuch-show-message-begin-regexp    "\f\r
+message{")\r
+ (set 'notmuch-show-message-end-regexp      "\f\r
+message}")\r
+ (set 'notmuch-show-header-begin-regexp     "\f\r
+header{")\r
+@@ -251,7 +254,7 @@ buffer."\r
+ \r
+ (defun notmuch-reply (query-string)\r
+   (switch-to-buffer (generate-new-buffer "notmuch-draft"))\r
+-  (call-process "notmuch" nil t nil "reply" query-string)\r
++  (call-process notmuch-command nil t nil "reply" query-string)\r
+   (goto-char (point-min))\r
+   (if (re-search-forward "^$" nil t)\r
+       (progn\r
+@@ -690,7 +693,7 @@ thread from that buffer can be show when done with this one)."\r
+       (erase-buffer)\r
+       (goto-char (point-min))\r
+       (save-excursion\r
+-      (call-process "notmuch" nil t nil "show" thread-id)\r
++      (call-process notmuch-command nil t nil "show" thread-id)\r
+       (notmuch-show-markup-messages)\r
+       )\r
+       (run-hooks 'notmuch-show-hook)\r
+@@ -851,7 +854,7 @@ and will also appear in a buffer named \"*Notmuch errors*\"."\r
+   (let ((error-buffer (get-buffer-create "*Notmuch errors*")))\r
+     (with-current-buffer error-buffer\r
+       (erase-buffer))\r
+-    (if (eq (apply 'call-process "notmuch" nil error-buffer nil args) 0)\r
++    (if (eq (apply 'call-process notmuch-command nil error-buffer nil args) 0)\r
+       (point)\r
+       (progn\r
+       (with-current-buffer error-buffer\r
+@@ -917,8 +920,8 @@ This function advances point to the next line when finished."\r
+       (goto-char (point-min))\r
+       (save-excursion\r
+       (if oldest-first\r
+-          (call-process "notmuch" nil t nil "search" "--sort=oldest-first" query)\r
+-        (call-process "notmuch" nil t nil "search" "--sort=newest-first" query))\r
++          (call-process notmuch-command nil t nil "search" "--sort=oldest-first" query)\r
++        (call-process notmuch-command nil t nil "search" "--sort=newest-first" query))\r
+       (notmuch-search-markup-thread-ids)\r
+       ))\r
+     (run-hooks 'notmuch-search-hook)))\r
+-- \r
+1.6.3.3\r
+\r