ad/0ea92e1e62753100b2719437acfd7b9f587423

   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
  27         elisp mode\r
  28 X-BeenThere: notmuch@notmuchmail.org\r
  29 X-Mailman-Version: 2.1.12\r
  30 Precedence: list\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
  41 \r
  42 \r
  43 Signed-off-by: Mikhail Gusarov <dottedmag@dottedmag.net>\r
  44 ---\r
  45  notmuch.el |   13 ++++++++-----\r
  46  1 files changed, 8 insertions(+), 5 deletions(-)\r
  47 \r
  48 diff --git a/notmuch.el b/notmuch.el\r
  49 index 1fc54c3..f97950f 100644\r
  50 --- a/notmuch.el\r
  51 +++ b/notmuch.el\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
  55  \r
  56 +(defvar notmuch-command "notmuch"\r
  57 +  "Notmuch binary location")\r
  58 +\r
  59  (set 'notmuch-show-message-begin-regexp    "\f\r
  60 message{")\r
  61  (set 'notmuch-show-message-end-regexp      "\f\r
  62 message}")\r
  63  (set 'notmuch-show-header-begin-regexp     "\f\r
  64 header{")\r
  65 @@ -251,7 +254,7 @@ buffer."\r
  66  \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
  73        (progn\r
  74 @@ -690,7 +693,7 @@ thread from that buffer can be show when done with this one)."\r
  75        (erase-buffer)\r
  76        (goto-char (point-min))\r
  77        (save-excursion\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
  81         )\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
  86         (erase-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
  89         (point)\r
  90        (progn\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
  94        (save-excursion\r
  95         (if oldest-first\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
 101         ))\r
 102      (run-hooks 'notmuch-search-hook)))\r
 103 -- \r
 104 1.6.3.3\r
 105 \r