1 Return-Path: <dottedmag@dottedmag.net>
\r
2 X-Original-To: notmuch@notmuchmail.org
\r
3 Delivered-To: notmuch@notmuchmail.org
\r
4 Received: from localhost (localhost [127.0.0.1])
\r
5 by olra.theworths.org (Postfix) with ESMTP id 5C732431FBC
\r
6 for <notmuch@notmuchmail.org>; Thu, 19 Nov 2009 17:15:48 -0800 (PST)
\r
7 X-Virus-Scanned: Debian amavisd-new at olra.theworths.org
\r
8 Received: from olra.theworths.org ([127.0.0.1])
\r
9 by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)
\r
10 with ESMTP id cIKEImhfHliC for <notmuch@notmuchmail.org>;
\r
11 Thu, 19 Nov 2009 17:15:47 -0800 (PST)
\r
12 Received: from dottedmag.net (burger.dottedmag.net [212.75.37.82])
\r
13 by olra.theworths.org (Postfix) with ESMTP id 83CE7431FAE
\r
14 for <notmuch@notmuchmail.org>; Thu, 19 Nov 2009 17:15:47 -0800 (PST)
\r
15 Received: from vertex.dottedmag (unknown [91.197.127.125])
\r
16 by dottedmag.net (Postfix) with ESMTPSA id 17EAE8C069
\r
17 for <notmuch@notmuchmail.org>; Fri, 20 Nov 2009 02:15:46 +0100 (CET)
\r
18 Received: from dottedmag by vertex.dottedmag with local (Exim 4.69)
\r
19 (envelope-from <dottedmag@dottedmag.net>) id 1NBI68-0005kv-PN
\r
20 for notmuch@notmuchmail.org; Fri, 20 Nov 2009 07:15:40 +0600
\r
21 From: Mikhail Gusarov <dottedmag@dottedmag.net>
\r
22 To: notmuch@notmuchmail.org
\r
23 Date: Fri, 20 Nov 2009 07:15:40 +0600
\r
24 Message-Id: <1258679740-22089-1-git-send-email-dottedmag@dottedmag.net>
\r
25 X-Mailer: git-send-email 1.6.3.3
\r
26 Subject: [notmuch] [PATCH] Allow to redefine notmuch binary name and path in
\r
28 X-BeenThere: notmuch@notmuchmail.org
\r
29 X-Mailman-Version: 2.1.12
\r
31 List-Id: "Use and development of the notmuch mail system."
\r
32 <notmuch.notmuchmail.org>
\r
33 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,
\r
34 <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>
\r
35 List-Archive: <http://notmuchmail.org/pipermail/notmuch>
\r
36 List-Post: <mailto:notmuch@notmuchmail.org>
\r
37 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>
\r
38 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,
\r
39 <mailto:notmuch-request@notmuchmail.org?subject=subscribe>
\r
40 X-List-Received-Date: Fri, 20 Nov 2009 01:15:48 -0000
\r
43 Signed-off-by: Mikhail Gusarov <dottedmag@dottedmag.net>
\r
45 notmuch.el | 13 ++++++++-----
\r
46 1 files changed, 8 insertions(+), 5 deletions(-)
\r
48 diff --git a/notmuch.el b/notmuch.el
\r
49 index 1fc54c3..f97950f 100644
\r
52 @@ -71,6 +71,9 @@ pattern can still test against the entire line).")
\r
53 (defvar notmuch-show-signature-lines-max 12
\r
54 "Maximum length of signature that will be hidden by default.")
\r
56 +(defvar notmuch-command "notmuch"
\r
57 + "Notmuch binary location")
\r
59 (set 'notmuch-show-message-begin-regexp "
\f\r
61 (set 'notmuch-show-message-end-regexp "
\f\r
63 (set 'notmuch-show-header-begin-regexp "
\f\r
65 @@ -251,7 +254,7 @@ buffer."
\r
67 (defun notmuch-reply (query-string)
\r
68 (switch-to-buffer (generate-new-buffer "notmuch-draft"))
\r
69 - (call-process "notmuch" nil t nil "reply" query-string)
\r
70 + (call-process notmuch-command nil t nil "reply" query-string)
\r
71 (goto-char (point-min))
\r
72 (if (re-search-forward "^$" nil t)
\r
74 @@ -690,7 +693,7 @@ thread from that buffer can be show when done with this one)."
\r
76 (goto-char (point-min))
\r
78 - (call-process "notmuch" nil t nil "show" thread-id)
\r
79 + (call-process notmuch-command nil t nil "show" thread-id)
\r
80 (notmuch-show-markup-messages)
\r
82 (run-hooks 'notmuch-show-hook)
\r
83 @@ -851,7 +854,7 @@ and will also appear in a buffer named \"*Notmuch errors*\"."
\r
84 (let ((error-buffer (get-buffer-create "*Notmuch errors*")))
\r
85 (with-current-buffer error-buffer
\r
87 - (if (eq (apply 'call-process "notmuch" nil error-buffer nil args) 0)
\r
88 + (if (eq (apply 'call-process notmuch-command nil error-buffer nil args) 0)
\r
91 (with-current-buffer error-buffer
\r
92 @@ -917,8 +920,8 @@ This function advances point to the next line when finished."
\r
93 (goto-char (point-min))
\r
96 - (call-process "notmuch" nil t nil "search" "--sort=oldest-first" query)
\r
97 - (call-process "notmuch" nil t nil "search" "--sort=newest-first" query))
\r
98 + (call-process notmuch-command nil t nil "search" "--sort=oldest-first" query)
\r
99 + (call-process notmuch-command nil t nil "search" "--sort=newest-first" query))
\r
100 (notmuch-search-markup-thread-ids)
\r
102 (run-hooks 'notmuch-search-hook)))
\r