8a/38a4a268618a50b4bedde2c1c5c1cb04822e24

   1 Return-Path: <dme@dme.org>\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 472D54196F0\r
   6         for <notmuch@notmuchmail.org>; Mon, 26 Apr 2010 02:25:32 -0700 (PDT)\r
   7 X-Virus-Scanned: Debian amavisd-new at olra.theworths.org\r
   8 X-Spam-Flag: NO\r
   9 X-Spam-Score: -1.9\r
  10 X-Spam-Level: \r
  11 X-Spam-Status: No, score=-1.9 tagged_above=-999 required=5\r
  12         tests=[BAYES_00=-1.9] autolearn=ham\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 bQkY9pzERZDN for <notmuch@notmuchmail.org>;\r
  16         Mon, 26 Apr 2010 02:25:31 -0700 (PDT)\r
  17 Received: from mail-wy0-f181.google.com (mail-wy0-f181.google.com\r
  18         [74.125.82.181])\r
  19         by olra.theworths.org (Postfix) with ESMTP id 3C9CF4196F2\r
  20         for <notmuch@notmuchmail.org>; Mon, 26 Apr 2010 02:25:30 -0700 (PDT)\r
  21 Received: by wyj26 with SMTP id 26so556223wyj.26\r
  22         for <notmuch@notmuchmail.org>; Mon, 26 Apr 2010 02:25:29 -0700 (PDT)\r
  23 Received: by 10.216.88.143 with SMTP id a15mr2671406wef.6.1272273928798;\r
  24         Mon, 26 Apr 2010 02:25:28 -0700 (PDT)\r
  25 Received: from ut.hh.sledj.net (host83-217-165-81.dsl.vispa.com\r
  26         [83.217.165.81])\r
  27         by mx.google.com with ESMTPS id t70sm839423weq.2.2010.04.26.02.25.27\r
  28         (version=TLSv1/SSLv3 cipher=RC4-MD5);\r
  29         Mon, 26 Apr 2010 02:25:28 -0700 (PDT)\r
  30 Received: by ut.hh.sledj.net (Postfix, from userid 1000)\r
  31         id 0672C59413D; Mon, 26 Apr 2010 10:25:37 +0100 (BST)\r
  32 From: David Edmondson <dme@dme.org>\r
  33 To: notmuch@notmuchmail.org\r
  34 Subject: [PATCH 3/3] emacs: Add a search to the 'recent searches' list once\r
  35         only\r
  36 Date: Mon, 26 Apr 2010 10:25:30 +0100\r
  37 Message-Id: <1272273930-30997-3-git-send-email-dme@dme.org>\r
  38 X-Mailer: git-send-email 1.7.0\r
  39 In-Reply-To: <87iq7i2aia.fsf@yoom.home.cworth.org>\r
  40 References: <87iq7i2aia.fsf@yoom.home.cworth.org>\r
  41 X-BeenThere: notmuch@notmuchmail.org\r
  42 X-Mailman-Version: 2.1.13\r
  43 Precedence: list\r
  44 List-Id: "Use and development of the notmuch mail system."\r
  45         <notmuch.notmuchmail.org>\r
  46 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
  47         <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
  48 List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
  49 List-Post: <mailto:notmuch@notmuchmail.org>\r
  50 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
  51 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
  52         <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
  53 X-List-Received-Date: Mon, 26 Apr 2010 09:25:32 -0000\r
  54 \r
  55 Avoiding adding the same search string to the 'recent searches' list\r
  56 more than once by testing whether the string was already used with\r
  57 `member' rather than `memq'.\r
  58 ---\r
  59  emacs/notmuch-hello.el |    2 +-\r
  60  1 files changed, 1 insertions(+), 1 deletions(-)\r
  61 \r
  62 diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el\r
  63 index 52f162a..30b3a5e 100644\r
  64 --- a/emacs/notmuch-hello.el\r
  65 +++ b/emacs/notmuch-hello.el\r
  66 @@ -77,7 +77,7 @@ field."\r
  67  (defvar notmuch-hello-recent-searches nil)\r
  68  \r
  69  (defun notmuch-hello-remember-search (search)\r
  70 -  (if (not (memq search notmuch-hello-recent-searches))\r
  71 +  (if (not (member search notmuch-hello-recent-searches))\r
  72        (push search notmuch-hello-recent-searches))\r
  73    (if (> (length notmuch-hello-recent-searches)\r
  74          notmuch-hello-recent-searches-max)\r
  75 -- \r
  76 1.7.0\r
  77 \r