1 Return-Path: <wsh@resox.2x.cz>
\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 1CC234196F2
\r
6 for <notmuch@notmuchmail.org>; Sat, 6 Nov 2010 16:09:55 -0700 (PDT)
\r
7 X-Virus-Scanned: Debian amavisd-new at olra.theworths.org
\r
11 X-Spam-Status: No, score=-1.9 tagged_above=-999 required=5
\r
12 tests=[BAYES_00=-1.9] autolearn=ham
\r
13 Received: from olra.theworths.org ([127.0.0.1])
\r
14 by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)
\r
15 with ESMTP id PXAKXZmF9LCa for <notmuch@notmuchmail.org>;
\r
16 Sat, 6 Nov 2010 16:09:44 -0700 (PDT)
\r
17 Received: from smtp.nextra.cz (smtp.nextra.cz [212.65.193.3])
\r
18 by olra.theworths.org (Postfix) with ESMTP id 8776C4196F0
\r
19 for <notmuch@notmuchmail.org>; Sat, 6 Nov 2010 16:09:44 -0700 (PDT)
\r
20 Received: from resox.2x.cz (unknown [213.29.198.144])
\r
21 by smtp.nextra.cz (Postfix) with ESMTP id E4E1D891F1;
\r
22 Sun, 7 Nov 2010 00:09:42 +0100 (CET)
\r
23 Received: from wsh by resox.2x.cz with local (Exim 4.72)
\r
24 (envelope-from <wsh@resox.2x.cz>)
\r
25 id 1PErt6-00032t-HB; Sun, 07 Nov 2010 00:09:32 +0100
\r
26 From: Michal Sojka <sojkam1@fel.cvut.cz>
\r
27 To: notmuch@notmuchmail.org
\r
28 Subject: [PATCH] emacs: Fix notmuch-show-pipe-message to use notmuch-command
\r
30 Date: Sun, 7 Nov 2010 00:09:18 +0100
\r
31 Message-Id: <1289084958-11681-1-git-send-email-sojkam1@fel.cvut.cz>
\r
32 X-Mailer: git-send-email 1.7.1
\r
33 X-BeenThere: notmuch@notmuchmail.org
\r
34 X-Mailman-Version: 2.1.13
\r
36 List-Id: "Use and development of the notmuch mail system."
\r
37 <notmuch.notmuchmail.org>
\r
38 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,
\r
39 <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>
\r
40 List-Archive: <http://notmuchmail.org/pipermail/notmuch>
\r
41 List-Post: <mailto:notmuch@notmuchmail.org>
\r
42 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>
\r
43 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,
\r
44 <mailto:notmuch-request@notmuchmail.org?subject=subscribe>
\r
45 X-List-Received-Date: Sat, 06 Nov 2010 23:09:55 -0000
\r
47 Previously notmuch command name was hardcoded into this function,
\r
48 which made remote use of pipe command impossible.
\r
50 emacs/notmuch-show.el | 5 +++--
\r
51 1 files changed, 3 insertions(+), 2 deletions(-)
\r
53 diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el
\r
54 index 3daa868..ae483dd 100644
\r
55 --- a/emacs/notmuch-show.el
\r
56 +++ b/emacs/notmuch-show.el
\r
57 @@ -937,12 +937,13 @@ than only the current message."
\r
58 (let (shell-command)
\r
60 (setq shell-command
\r
61 - (concat "notmuch show --format=mbox "
\r
62 + (concat notmuch-command " show --format=mbox "
\r
63 (shell-quote-argument
\r
64 (mapconcat 'identity (notmuch-show-get-message-ids-for-open-messages) " OR "))
\r
67 - (concat "notmuch show --format=raw " (shell-quote-argument (notmuch-show-get-message-id)) " | " command)))
\r
68 + (concat notmuch-command " show --format=raw "
\r
69 + (shell-quote-argument (notmuch-show-get-message-id)) " | " command)))
\r
70 (start-process-shell-command "notmuch-pipe-command" "*notmuch-pipe*" shell-command)))
\r
72 (defun notmuch-show-add-tags-worker (current-tags add-tags)
\r