[PATCH] custom search prefix

diff --git a/69/503ec556b8e56d20e9dc3cf776d33665be8d65 b/69/503ec556b8e56d20e9dc3cf776d33665be8d65
new file mode 100644 (file)
index 0000000..7609f08
--- /dev/null
+++ b/69/503ec556b8e56d20e9dc3cf776d33665be8d65
@@ -0,0 +1,96 @@
+Return-Path: <sebastian.fischmeister@uwaterloo.ca>\r
+X-Original-To: notmuch@notmuchmail.org\r
+Delivered-To: notmuch@notmuchmail.org\r
+Received: from localhost (localhost [127.0.0.1])\r
+ by arlo.cworth.org (Postfix) with ESMTP id 54B106DE1B73\r
+ for <notmuch@notmuchmail.org>; Sun,  5 Apr 2015 18:29:48 -0700 (PDT)\r
+X-Virus-Scanned: Debian amavisd-new at cworth.org\r
+X-Spam-Flag: NO\r
+X-Spam-Score: -1.048\r
+X-Spam-Level: \r
+X-Spam-Status: No, score=-1.048 tagged_above=-999 required=5 tests=[AWL=1.823,\r
+  RCVD_IN_DNSWL_MED=-2.3, RCVD_IN_MSPIKE_H3=-0.01, RCVD_IN_MSPIKE_WL=-0.01,\r
+ RP_MATCHES_RCVD=-0.55, SPF_PASS=-0.001] autolearn=disabled\r
+Received: from arlo.cworth.org ([127.0.0.1])\r
+ by localhost (arlo.cworth.org [127.0.0.1]) (amavisd-new, port 10024)\r
+ with ESMTP id pBpJi5YT59mV for <notmuch@notmuchmail.org>;\r
+ Sun,  5 Apr 2015 18:29:45 -0700 (PDT)\r
+Received: from mailchk-m01.uwaterloo.ca (mailservices.uwaterloo.ca\r
+ [129.97.128.141])\r
+ by arlo.cworth.org (Postfix) with ESMTPS id EA3286DE1B83\r
+ for <notmuch@notmuchmail.org>; Sun,  5 Apr 2015 18:29:44 -0700 (PDT)\r
+Received: from connect.uwaterloo.ca (connhub1.connect.uwaterloo.ca\r
+ [129.97.149.113])\r
+ by mailchk-m01.uwaterloo.ca (8.14.4/8.14.4) with ESMTP id t361DTA5016758\r
+ (version=TLSv1/SSLv3 cipher=AES128-SHA bits=128 verify=OK)\r
+ for <notmuch@notmuchmail.org>; Sun, 5 Apr 2015 21:13:32 -0400\r
+Received: from CONNHUB4.connect.uwaterloo.ca (129.97.149.122) by\r
+ connhub1.connect.uwaterloo.ca (129.97.149.113) with Microsoft SMTP Server\r
+ (TLS) id 14.3.210.2; Sun, 5 Apr 2015 21:13:30 -0400\r
+Received: from uwaterloo.ca (172.16.36.43) by connhub4.connect.uwaterloo.ca\r
+ (129.97.149.122) with Microsoft SMTP Server (TLS) id 14.3.210.2; Sun, 5 Apr\r
+ 2015 21:13:29 -0400\r
+From: Sebastian Fischmeister <sfischme@uwaterloo.ca>\r
+To: notmuch <notmuch@notmuchmail.org>\r
+Subject: [PATCH] custom search prefix\r
+Reply-To: <sfischme@uwaterloo.ca>\r
+X-Homepage: http://esg.uwaterloo.ca\r
+Date: Sun, 5 Apr 2015 21:13:29 -0400\r
+Message-ID: <87siceqcyl.fsf@uwaterloo.ca>\r
+MIME-Version: 1.0\r
+Content-Type: text/plain\r
+X-UUID: 7e799838-187b-4f31-8593-4e75ef902469\r
+X-Miltered: at mailchk-m01 with ID 5521DDB9.000 by Joe's j-chkmail\r
+ (http://j-chkmail.ensmp.fr)!\r
+X-Virus-Scanned: clamav-milter 0.98.6 at mailchk-m01\r
+X-Virus-Status: Clean\r
+X-Greylist: Sender IP whitelisted, not delayed by milter-greylist-4.4.3\r
+ (mailchk-m01.uwaterloo.ca [129.97.128.141]);\r
+ Sun, 05 Apr 2015 21:13:32 -0400 (EDT)\r
+X-BeenThere: notmuch@notmuchmail.org\r
+X-Mailman-Version: 2.1.18\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: Mon, 06 Apr 2015 01:29:48 -0000\r
+\r
+\r
+---\r
+ emacs/notmuch.el | 8 +++++++-\r
+ 1 file changed, 7 insertions(+), 1 deletion(-)\r
+\r
+diff --git a/emacs/notmuch.el b/emacs/notmuch.el\r
+index ab00454..c9cd31a 100644\r
+--- a/emacs/notmuch.el\r
++++ b/emacs/notmuch.el\r
+@@ -851,6 +851,12 @@ See `notmuch-tag' for information on the format of TAG-CHANGES."\r
+           (concat "*notmuch-search-" query "*"))\r
+          )))\r
+ \r
++(defcustom notmuch-query-prefix nil\r
++  "Add a prefix to the standard query."\r
++  :type 'string\r
++  :group 'notmuch-search)\r
++\r
++\r
+ (defun notmuch-read-query (prompt)\r
+   "Read a notmuch-query from the minibuffer with completion.\r
+ \r
+@@ -883,7 +889,7 @@ PROMPT is the string to prompt with."\r
+       ;; this was simpler than convincing completing-read to accept spaces:\r
+       (define-key keymap (kbd "TAB") 'minibuffer-complete)\r
+       (let ((history-delete-duplicates t))\r
+-       (read-from-minibuffer prompt nil keymap nil\r
++       (read-from-minibuffer prompt notmuch-query-prefix keymap nil\r
+                              'notmuch-search-history current-query nil)))))\r
+ \r
+ (defun notmuch-search-get-query ()\r
+-- \r
+2.3.5\r