3e/9d8d1a106c4fcca4846188a19486343fba6e54

   1 Return-Path: <too@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 arlo.cworth.org (Postfix) with ESMTP id 114426DE0275\r
   6  for <notmuch@notmuchmail.org>; Wed, 26 Aug 2015 13:08:42 -0700 (PDT)\r
   7 X-Virus-Scanned: Debian amavisd-new at cworth.org\r
   8 X-Spam-Flag: NO\r
   9 X-Spam-Score: 0.254\r
  10 X-Spam-Level: \r
  11 X-Spam-Status: No, score=0.254 tagged_above=-999 required=5 tests=[AWL=0.794, \r
  12  RP_MATCHES_RCVD=-0.55, T_HEADER_FROM_DIFFERENT_DOMAINS=0.01]\r
  13  autolearn=disabled\r
  14 Received: from arlo.cworth.org ([127.0.0.1])\r
  15  by localhost (arlo.cworth.org [127.0.0.1]) (amavisd-new, port 10024)\r
  16  with ESMTP id vFR85zXaCA0f for <notmuch@notmuchmail.org>;\r
  17  Wed, 26 Aug 2015 13:08:39 -0700 (PDT)\r
  18 Received: from guru.guru-group.fi (guru.guru-group.fi [46.183.73.34])\r
  19  by arlo.cworth.org (Postfix) with ESMTP id D7BD56DE0140\r
  20  for <notmuch@notmuchmail.org>; Wed, 26 Aug 2015 13:08:38 -0700 (PDT)\r
  21 Received: by guru.guru-group.fi (Postfix, from userid 501)\r
  22  id 101FB1000E6; Wed, 26 Aug 2015 23:07:08 +0300 (EEST)\r
  23 From: Tomi Ollila <tomi.ollila@iki.fi>\r
  24 To: notmuch@notmuchmail.org\r
  25 Subject: [PATCH 1/2] emacs: add defsubst notmuch-address--message-insinuated\r
  26 Date: Wed, 26 Aug 2015 23:07:05 +0300\r
  27 Message-Id: <1440619626-18768-1-git-send-email-tomi.ollila@iki.fi>\r
  28 X-Mailer: git-send-email 2.0.0\r
  29 Cc: tomi.ollila@iki.fi\r
  30 X-BeenThere: notmuch@notmuchmail.org\r
  31 X-Mailman-Version: 2.1.18\r
  32 Precedence: list\r
  33 List-Id: "Use and development of the notmuch mail system."\r
  34  <notmuch.notmuchmail.org>\r
  35 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
  36  <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
  37 List-Archive: <http://notmuchmail.org/pipermail/notmuch/>\r
  38 List-Post: <mailto:notmuch@notmuchmail.org>\r
  39 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
  40 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
  41  <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
  42 X-List-Received-Date: Wed, 26 Aug 2015 20:08:42 -0000\r
  43 \r
  44 This "inline function" is currently used in\r
  45 notmuch-address-message-insinuate (to not enable address completion if\r
  46 it is already enabled). In some functions later this will be called\r
  47 to know whether address completion can be used there, too.\r
  48 ---\r
  49 \r
  50 Previous version of this 2-patch series is at\r
  51 id:1423229911-14784-1-git-send-email-too@guru.guru-group.fi\r
  52 \r
  53  emacs/notmuch-address.el | 5 ++++-\r
  54  1 file changed, 4 insertions(+), 1 deletion(-)\r
  55 \r
  56 diff --git a/emacs/notmuch-address.el b/emacs/notmuch-address.el\r
  57 index fde3c1b2b861..6c93b2a7a820 100644\r
  58 --- a/emacs/notmuch-address.el\r
  59 +++ b/emacs/notmuch-address.el\r
  60 @@ -54,8 +54,11 @@ (defvar notmuch-address-message-alist-member\r
  61  \r
  62  (defvar notmuch-address-history nil)\r
  63  \r
  64 +(defsubst notmuch-address--message-insinuated ()\r
  65 +  (memq notmuch-address-message-alist-member message-completion-alist))\r
  66 +\r
  67  (defun notmuch-address-message-insinuate ()\r
  68 -  (unless (memq notmuch-address-message-alist-member message-completion-alist)\r
  69 +  (unless (notmuch-address--message-insinuated)\r
  70      (setq message-completion-alist\r
  71           (push notmuch-address-message-alist-member message-completion-alist))))\r
  72  \r
  73 -- \r
  74 2.0.0\r
  75 \r