13/2a55e94440c6a083a498c0078c89cfcb145daa

   1 Return-Path: <too@guru.guru-group.fi>\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 0E101431FAE\r
   6         for <notmuch@notmuchmail.org>; Thu, 23 Feb 2012 07:10:21 -0800 (PST)\r
   7 X-Virus-Scanned: Debian amavisd-new at olra.theworths.org\r
   8 X-Spam-Flag: NO\r
   9 X-Spam-Score: 0\r
  10 X-Spam-Level: \r
  11 X-Spam-Status: No, score=0 tagged_above=-999 required=5 tests=[none]\r
  12         autolearn=disabled\r
  13 Received: from olra.theworths.org ([127.0.0.1])\r
  14         by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)\r
  15         with ESMTP id Hc40Wr-CEOJz for <notmuch@notmuchmail.org>;\r
  16         Thu, 23 Feb 2012 07:10:20 -0800 (PST)\r
  17 Received: from guru.guru-group.fi (guru-group.fi [87.108.86.66])\r
  18         by olra.theworths.org (Postfix) with ESMTP id B547B431FBC\r
  19         for <notmuch@notmuchmail.org>; Thu, 23 Feb 2012 07:10:19 -0800 (PST)\r
  20 Received: by guru.guru-group.fi (Postfix, from userid 501)\r
  21         id DB89D68057; Thu, 23 Feb 2012 17:10:20 +0200 (EET)\r
  22 From: Tomi Ollila <tomi.ollila@iki.fi>\r
  23 To: notmuch@notmuchmail.org\r
  24 Subject: [RFC PATCH 3/3] emacs: use selection-menu for recipient address\r
  25         completion\r
  26 Date: Thu, 23 Feb 2012 17:10:17 +0200\r
  27 Message-Id: <1330009817-24148-3-git-send-email-tomi.ollila@iki.fi>\r
  28 X-Mailer: git-send-email 1.7.6.1\r
  29 In-Reply-To: <1330009817-24148-1-git-send-email-tomi.ollila@iki.fi>\r
  30 References: <1330009817-24148-1-git-send-email-tomi.ollila@iki.fi>\r
  31 Cc: Tomi Ollila <tomi.ollila@iki.fi>\r
  32 X-BeenThere: notmuch@notmuchmail.org\r
  33 X-Mailman-Version: 2.1.13\r
  34 Precedence: list\r
  35 List-Id: "Use and development of the notmuch mail system."\r
  36         <notmuch.notmuchmail.org>\r
  37 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
  38         <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
  39 List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
  40 List-Post: <mailto:notmuch@notmuchmail.org>\r
  41 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
  42 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
  43         <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
  44 X-List-Received-Date: Thu, 23 Feb 2012 15:10:21 -0000\r
  45 \r
  46 Replace use of completing-read with selection-menu when\r
  47 completing for recipient addresses.\r
  48 ---\r
  49  emacs/notmuch-address.el |    6 +++---\r
  50  1 files changed, 3 insertions(+), 3 deletions(-)\r
  51 \r
  52 diff --git a/emacs/notmuch-address.el b/emacs/notmuch-address.el\r
  53 index 2bf762b..1d63fe4 100644\r
  54 --- a/emacs/notmuch-address.el\r
  55 +++ b/emacs/notmuch-address.el\r
  56 @@ -45,6 +45,8 @@ line."\r
  57  (defun notmuch-address-options (original)\r
  58    (process-lines notmuch-address-command original))\r
  59  \r
  60 +(require 'selection-menu)\r
  61 +\r
  62  (defun notmuch-address-expand-name ()\r
  63    (let* ((end (point))\r
  64          (beg (save-excursion\r
  65 @@ -61,9 +63,7 @@ line."\r
  66                   ((eq num-options 1)\r
  67                    (car options))\r
  68                   (t\r
  69 -                  (completing-read (format "Address (%s matches): " num-options)\r
  70 -                                   (cdr options) nil nil (car options)\r
  71 -                                   'notmuch-address-history)))))\r
  72 +                  (selection-menu "Send To:" options t)))))\r
  73      (if chosen\r
  74         (progn\r
  75           (push chosen notmuch-address-history)\r
  76 -- \r
  77 1.7.8.2\r
  78 \r