[PATCH v4 3/3] emacs: bind "s" to `notmuch-hello-search' in notmuch-hello buffer

diff --git a/25/b763faa78984606e11d4be68b3b898f55545b0 b/25/b763faa78984606e11d4be68b3b898f55545b0
new file mode 100644 (file)
index 0000000..299f27e
--- /dev/null
+++ b/25/b763faa78984606e11d4be68b3b898f55545b0
@@ -0,0 +1,92 @@
+Return-Path: <dmitry.kurochkin@gmail.com>\r
+X-Original-To: notmuch@notmuchmail.org\r
+Delivered-To: notmuch@notmuchmail.org\r
+Received: from localhost (localhost [127.0.0.1])\r
+       by olra.theworths.org (Postfix) with ESMTP id EF005414B8A\r
+       for <notmuch@notmuchmail.org>; Tue, 24 Jan 2012 17:12:22 -0800 (PST)\r
+X-Virus-Scanned: Debian amavisd-new at olra.theworths.org\r
+X-Spam-Flag: NO\r
+X-Spam-Score: -0.799\r
+X-Spam-Level: \r
+X-Spam-Status: No, score=-0.799 tagged_above=-999 required=5\r
+       tests=[DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1,\r
+       FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_LOW=-0.7] autolearn=disabled\r
+Received: from olra.theworths.org ([127.0.0.1])\r
+       by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)\r
+       with ESMTP id 7tBcKf5hCSpj for <notmuch@notmuchmail.org>;\r
+       Tue, 24 Jan 2012 17:12:21 -0800 (PST)\r
+Received: from mail-bk0-f53.google.com (mail-bk0-f53.google.com\r
+       [209.85.214.53]) (using TLSv1 with cipher RC4-SHA (128/128 bits))\r
+       (No client certificate requested)\r
+       by olra.theworths.org (Postfix) with ESMTPS id D060041735F\r
+       for <notmuch@notmuchmail.org>; Tue, 24 Jan 2012 17:12:18 -0800 (PST)\r
+Received: by mail-bk0-f53.google.com with SMTP id zt19so2972694bkb.26\r
+       for <notmuch@notmuchmail.org>; Tue, 24 Jan 2012 17:12:18 -0800 (PST)\r
+DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=gamma;\r
+       h=from:to:subject:date:message-id:x-mailer:in-reply-to:references;\r
+       bh=Wre4Q+jGmcZt3dtKEilO7W1iZtogxKymILcBbT130cw=;\r
+       b=xHrkpdgq1GKQzljcnLWynrDOkc/pCbZaVj3OLo1eF+TlYDtP8Gby+da2qFliP+BN4Y\r
+       fj8QUHFdmibrt9s4fI89DQTeOBobRXBcN2Z3gzRPqGdiXWj0mM6KOHLkzIBqzz6iOG4b\r
+       1NN/8m+WM+78gk9jSX8y6Ck+7I7x+jmDxvdBA=\r
+Received: by 10.204.156.204 with SMTP id y12mr4559579bkw.113.1327453938512;\r
+       Tue, 24 Jan 2012 17:12:18 -0800 (PST)\r
+Received: from localhost ([91.144.186.21])\r
+       by mx.google.com with ESMTPS id fb7sm28034238bkc.9.2012.01.24.17.12.17\r
+       (version=TLSv1/SSLv3 cipher=OTHER);\r
+       Tue, 24 Jan 2012 17:12:18 -0800 (PST)\r
+From: Dmitry Kurochkin <dmitry.kurochkin@gmail.com>\r
+To: notmuch@notmuchmail.org\r
+Subject: [PATCH v4 3/3] emacs: bind "s" to `notmuch-hello-search' in\r
+       notmuch-hello buffer\r
+Date: Wed, 25 Jan 2012 05:10:54 +0400\r
+Message-Id: <1327453854-29908-4-git-send-email-dmitry.kurochkin@gmail.com>\r
+X-Mailer: git-send-email 1.7.8.3\r
+In-Reply-To: <1327453854-29908-1-git-send-email-dmitry.kurochkin@gmail.com>\r
+References: <1327362537-9607-1-git-send-email-dmitry.kurochkin@gmail.com>\r
+       <1327453854-29908-1-git-send-email-dmitry.kurochkin@gmail.com>\r
+X-BeenThere: notmuch@notmuchmail.org\r
+X-Mailman-Version: 2.1.13\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: Wed, 25 Jan 2012 01:12:23 -0000\r
+\r
+`notmuch-hello-search' uses `notmuch-search' function but refreshes\r
+notmuch-hello buffer when the search buffer is closed.\r
+---\r
+ emacs/notmuch-hello.el |    5 +++--\r
+ 1 files changed, 3 insertions(+), 2 deletions(-)\r
+\r
+diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el\r
+index 6970bc3..ab65e36 100644\r
+--- a/emacs/notmuch-hello.el\r
++++ b/emacs/notmuch-hello.el\r
+@@ -172,7 +172,8 @@ International Bureau of Weights and Measures."\r
+       (match-string 1 search)\r
+     search))\r
+ \r
+-(defun notmuch-hello-search (search)\r
++(defun notmuch-hello-search (&optional search)\r
++  (interactive)\r
+   (unless (null search)\r
+     (setq search (notmuch-hello-trim search))\r
+     (let ((history-delete-duplicates t))\r
+@@ -343,7 +344,7 @@ should be. Returns a cons cell `(tags-per-line width)'."\r
+     (define-key map "G" 'notmuch-hello-poll-and-update)\r
+     (define-key map (kbd "<C-tab>") 'widget-backward)\r
+     (define-key map "m" 'notmuch-mua-new-mail)\r
+-    (define-key map "s" 'notmuch-search)\r
++    (define-key map "s" 'notmuch-hello-search)\r
+     map)\r
+   "Keymap for \"notmuch hello\" buffers.")\r
+ (fset 'notmuch-hello-mode-map notmuch-hello-mode-map)\r
+-- \r
+1.7.8.3\r
+\r