Return-Path: X-Original-To: notmuch@notmuchmail.org Delivered-To: notmuch@notmuchmail.org Received: from localhost (localhost [127.0.0.1]) by olra.theworths.org (Postfix) with ESMTP id 1CC234196F2 for ; Sat, 6 Nov 2010 16:09:55 -0700 (PDT) X-Virus-Scanned: Debian amavisd-new at olra.theworths.org X-Spam-Flag: NO X-Spam-Score: -1.9 X-Spam-Level: X-Spam-Status: No, score=-1.9 tagged_above=-999 required=5 tests=[BAYES_00=-1.9] autolearn=ham Received: from olra.theworths.org ([127.0.0.1]) by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id PXAKXZmF9LCa for ; Sat, 6 Nov 2010 16:09:44 -0700 (PDT) Received: from smtp.nextra.cz (smtp.nextra.cz [212.65.193.3]) by olra.theworths.org (Postfix) with ESMTP id 8776C4196F0 for ; Sat, 6 Nov 2010 16:09:44 -0700 (PDT) Received: from resox.2x.cz (unknown [213.29.198.144]) by smtp.nextra.cz (Postfix) with ESMTP id E4E1D891F1; Sun, 7 Nov 2010 00:09:42 +0100 (CET) Received: from wsh by resox.2x.cz with local (Exim 4.72) (envelope-from ) id 1PErt6-00032t-HB; Sun, 07 Nov 2010 00:09:32 +0100 From: Michal Sojka To: notmuch@notmuchmail.org Subject: [PATCH] emacs: Fix notmuch-show-pipe-message to use notmuch-command variable Date: Sun, 7 Nov 2010 00:09:18 +0100 Message-Id: <1289084958-11681-1-git-send-email-sojkam1@fel.cvut.cz> X-Mailer: git-send-email 1.7.1 X-BeenThere: notmuch@notmuchmail.org X-Mailman-Version: 2.1.13 Precedence: list List-Id: "Use and development of the notmuch mail system." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Sat, 06 Nov 2010 23:09:55 -0000 Previously notmuch command name was hardcoded into this function, which made remote use of pipe command impossible. --- emacs/notmuch-show.el | 5 +++-- 1 files changed, 3 insertions(+), 2 deletions(-) diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index 3daa868..ae483dd 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -937,12 +937,13 @@ than only the current message." (let (shell-command) (if entire-thread (setq shell-command - (concat "notmuch show --format=mbox " + (concat notmuch-command " show --format=mbox " (shell-quote-argument (mapconcat 'identity (notmuch-show-get-message-ids-for-open-messages) " OR ")) " | " command)) (setq shell-command - (concat "notmuch show --format=raw " (shell-quote-argument (notmuch-show-get-message-id)) " | " command))) + (concat notmuch-command " show --format=raw " + (shell-quote-argument (notmuch-show-get-message-id)) " | " command))) (start-process-shell-command "notmuch-pipe-command" "*notmuch-pipe*" shell-command))) (defun notmuch-show-add-tags-worker (current-tags add-tags) -- 1.7.1