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