[RFC PATCH 3/3] emacs: use selection-menu for recipient address completion

diff --git a/13/2a55e94440c6a083a498c0078c89cfcb145daa b/13/2a55e94440c6a083a498c0078c89cfcb145daa
new file mode 100644 (file)
index 0000000..ed4fabd
--- /dev/null
+++ b/13/2a55e94440c6a083a498c0078c89cfcb145daa
@@ -0,0 +1,78 @@
+Return-Path: <too@guru.guru-group.fi>\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 0E101431FAE\r
+       for <notmuch@notmuchmail.org>; Thu, 23 Feb 2012 07:10:21 -0800 (PST)\r
+X-Virus-Scanned: Debian amavisd-new at olra.theworths.org\r
+X-Spam-Flag: NO\r
+X-Spam-Score: 0\r
+X-Spam-Level: \r
+X-Spam-Status: No, score=0 tagged_above=-999 required=5 tests=[none]\r
+       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 Hc40Wr-CEOJz for <notmuch@notmuchmail.org>;\r
+       Thu, 23 Feb 2012 07:10:20 -0800 (PST)\r
+Received: from guru.guru-group.fi (guru-group.fi [87.108.86.66])\r
+       by olra.theworths.org (Postfix) with ESMTP id B547B431FBC\r
+       for <notmuch@notmuchmail.org>; Thu, 23 Feb 2012 07:10:19 -0800 (PST)\r
+Received: by guru.guru-group.fi (Postfix, from userid 501)\r
+       id DB89D68057; Thu, 23 Feb 2012 17:10:20 +0200 (EET)\r
+From: Tomi Ollila <tomi.ollila@iki.fi>\r
+To: notmuch@notmuchmail.org\r
+Subject: [RFC PATCH 3/3] emacs: use selection-menu for recipient address\r
+       completion\r
+Date: Thu, 23 Feb 2012 17:10:17 +0200\r
+Message-Id: <1330009817-24148-3-git-send-email-tomi.ollila@iki.fi>\r
+X-Mailer: git-send-email 1.7.6.1\r
+In-Reply-To: <1330009817-24148-1-git-send-email-tomi.ollila@iki.fi>\r
+References: <1330009817-24148-1-git-send-email-tomi.ollila@iki.fi>\r
+Cc: Tomi Ollila <tomi.ollila@iki.fi>\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: Thu, 23 Feb 2012 15:10:21 -0000\r
+\r
+Replace use of completing-read with selection-menu when\r
+completing for recipient addresses.\r
+---\r
+ emacs/notmuch-address.el |    6 +++---\r
+ 1 files changed, 3 insertions(+), 3 deletions(-)\r
+\r
+diff --git a/emacs/notmuch-address.el b/emacs/notmuch-address.el\r
+index 2bf762b..1d63fe4 100644\r
+--- a/emacs/notmuch-address.el\r
++++ b/emacs/notmuch-address.el\r
+@@ -45,6 +45,8 @@ line."\r
+ (defun notmuch-address-options (original)\r
+   (process-lines notmuch-address-command original))\r
+ \r
++(require 'selection-menu)\r
++\r
+ (defun notmuch-address-expand-name ()\r
+   (let* ((end (point))\r
+        (beg (save-excursion\r
+@@ -61,9 +63,7 @@ line."\r
+                 ((eq num-options 1)\r
+                  (car options))\r
+                 (t\r
+-                 (completing-read (format "Address (%s matches): " num-options)\r
+-                                  (cdr options) nil nil (car options)\r
+-                                  'notmuch-address-history)))))\r
++                 (selection-menu "Send To:" options t)))))\r
+     (if chosen\r
+       (progn\r
+         (push chosen notmuch-address-history)\r
+-- \r
+1.7.8.2\r
+\r