From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from localhost (localhost [127.0.0.1]) by arlo.cworth.org (Postfix) with ESMTP id 95D8F6DE0314 for ; Tue, 12 Sep 2017 18:31:57 -0700 (PDT) X-Virus-Scanned: Debian amavisd-new at cworth.org X-Spam-Flag: NO X-Spam-Score: -0.001 X-Spam-Level: X-Spam-Status: No, score=-0.001 tagged_above=-999 required=5 tests=[AWL=0.010, SPF_PASS=-0.001, T_RP_MATCHES_RCVD=-0.01] autolearn=disabled Received: from arlo.cworth.org ([127.0.0.1]) by localhost (arlo.cworth.org [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id zHeBtVnMXYOh for ; Tue, 12 Sep 2017 18:31:57 -0700 (PDT) Received: from fethera.tethera.net (fethera.tethera.net [198.245.60.197]) by arlo.cworth.org (Postfix) with ESMTPS id DB9FB6DE02DA for ; Tue, 12 Sep 2017 18:31:56 -0700 (PDT) Received: from remotemail by fethera.tethera.net with local (Exim 4.89) (envelope-from ) id 1drwTN-0007nT-An; Tue, 12 Sep 2017 21:28:13 -0400 Received: (nullmailer pid 32331 invoked by uid 1000); Wed, 13 Sep 2017 01:31:53 -0000 From: David Bremner To: David Bremner , notmuch@notmuchmail.org Subject: [PATCH] emacs/address: use member instead of memq to check for pair Date: Tue, 12 Sep 2017 22:31:46 -0300 Message-Id: <20170913013146.32286-1-david@tethera.net> X-Mailer: git-send-email 2.14.1 In-Reply-To: <87mv61jyq8.fsf@no_dom.tld> References: <87mv61jyq8.fsf@no_dom.tld> MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit X-BeenThere: notmuch@notmuchmail.org X-Mailman-Version: 2.1.23 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: Wed, 13 Sep 2017 01:31:57 -0000 Quoting from the elisp reference: For other types (e.g., lists, vectors, strings), two arguments with the same contents or elements are not necessarily ‘eq’ to each other. Thanks to "Attic Hermit" for the fix. --- emacs/notmuch-address.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/emacs/notmuch-address.el b/emacs/notmuch-address.el index f937e708..64887a43 100644 --- a/emacs/notmuch-address.el +++ b/emacs/notmuch-address.el @@ -159,7 +159,7 @@ matching `notmuch-address-completion-headers-regexp'. #'notmuch-address-expand-name))) (when setup-company (notmuch-company-setup)) - (unless (memq pair message-completion-alist) + (unless (member pair message-completion-alist) (setq message-completion-alist (push pair message-completion-alist))))) -- 2.14.1