cf/71f7c7b7df7677ffba0f4047247a7d6d3abb12

   1 Return-Path: <m.walters@qmul.ac.uk>\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 0BBC8431FAF\r
   6         for <notmuch@notmuchmail.org>; Thu,  1 Mar 2012 14:16: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: -1.098\r
  10 X-Spam-Level: \r
  11 X-Spam-Status: No, score=-1.098 tagged_above=-999 required=5\r
  12         tests=[DKIM_ADSP_CUSTOM_MED=0.001, FREEMAIL_FROM=0.001,\r
  13         NML_ADSP_CUSTOM_MED=1.2, RCVD_IN_DNSWL_MED=-2.3] autolearn=disabled\r
  14 Received: from olra.theworths.org ([127.0.0.1])\r
  15         by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)\r
  16         with ESMTP id 6ck54C0ldzct for <notmuch@notmuchmail.org>;\r
  17         Thu,  1 Mar 2012 14:16:20 -0800 (PST)\r
  18 Received: from mail2.qmul.ac.uk (mail2.qmul.ac.uk [138.37.6.6])\r
  19         (using TLSv1 with cipher DHE-RSA-AES256-SHA (256/256 bits))\r
  20         (No client certificate requested)\r
  21         by olra.theworths.org (Postfix) with ESMTPS id 23FDB431FAE\r
  22         for <notmuch@notmuchmail.org>; Thu,  1 Mar 2012 14:16:20 -0800 (PST)\r
  23 Received: from smtp.qmul.ac.uk ([138.37.6.40])\r
  24         by mail2.qmul.ac.uk with esmtp (Exim 4.71)\r
  25         (envelope-from <m.walters@qmul.ac.uk>)\r
  26         id 1S3EIK-0003Ik-7x; Thu, 01 Mar 2012 22:16:16 +0000\r
  27 Received: from 94-192-233-223.zone6.bethere.co.uk ([94.192.233.223]\r
  28         helo=localhost)\r
  29         by smtp.qmul.ac.uk with esmtpsa (TLSv1:AES128-SHA:128) (Exim 4.69)\r
  30         (envelope-from <m.walters@qmul.ac.uk>)\r
  31         id 1S3EIK-0005cx-0n; Thu, 01 Mar 2012 22:16:16 +0000\r
  32 From: Mark Walters <markwalters1009@gmail.com>\r
  33 To: Michal Sojka <sojkam1@fel.cvut.cz>, notmuch@notmuchmail.org\r
  34 Subject: Re: [PATCH] emacs-hello: Do not calculate the count of the messages\r
  35         in hidden sections\r
  36 In-Reply-To: <1329603149-6047-1-git-send-email-sojkam1@fel.cvut.cz>\r
  37 References: <874nunokr5.fsf@steelpick.2x.cz>\r
  38         <1329603149-6047-1-git-send-email-sojkam1@fel.cvut.cz>\r
  39 User-Agent: Notmuch/0.11.1+281~g665c451 (http://notmuchmail.org) Emacs/23.2.1\r
  40         (i486-pc-linux-gnu)\r
  41 Date: Thu, 01 Mar 2012 22:18:04 +0000\r
  42 Message-ID: <87y5rk55k3.fsf@qmul.ac.uk>\r
  43 MIME-Version: 1.0\r
  44 Content-Type: text/plain; charset=us-ascii\r
  45 X-Sender-Host-Address: 94.192.233.223\r
  46 X-QM-SPAM-Info: Sender has good ham record.  :)\r
  47 X-QM-Body-MD5: dc21f1850204a69a8b0c8816adf4b3ac (of first 20000 bytes)\r
  48 X-SpamAssassin-Score: -1.8\r
  49 X-SpamAssassin-SpamBar: -\r
  50 X-SpamAssassin-Report: The QM spam filters have analysed this message to\r
  51         determine if it is\r
  52         spam. We require at least 5.0 points to mark a message as spam.\r
  53         This message scored -1.8 points.\r
  54         Summary of the scoring: \r
  55         * -2.3 RCVD_IN_DNSWL_MED RBL: Sender listed at http://www.dnswl.org/,\r
  56         *      medium trust\r
  57         *      [138.37.6.40 listed in list.dnswl.org]\r
  58         * 0.0 FREEMAIL_FROM Sender email is commonly abused enduser mail\r
  59         provider *      (markwalters1009[at]gmail.com)\r
  60         * -0.0 T_RP_MATCHES_RCVD Envelope sender domain matches handover relay\r
  61         *      domain\r
  62         *  0.5 AWL AWL: From: address is in the auto white-list\r
  63 X-QM-Scan-Virus: ClamAV says the message is clean\r
  64 X-BeenThere: notmuch@notmuchmail.org\r
  65 X-Mailman-Version: 2.1.13\r
  66 Precedence: list\r
  67 List-Id: "Use and development of the notmuch mail system."\r
  68         <notmuch.notmuchmail.org>\r
  69 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
  70         <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
  71 List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
  72 List-Post: <mailto:notmuch@notmuchmail.org>\r
  73 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
  74 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
  75         <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
  76 X-List-Received-Date: Thu, 01 Mar 2012 22:16:21 -0000\r
  77 \r
  78 On Sat, 18 Feb 2012 23:12:29 +0100, Michal Sojka <sojkam1@fel.cvut.cz> wrote:\r
  79 > The result is that hello screen shows much faster when some sections are\r
  80 > hidden.\r
  81 > ---\r
  82 >  emacs/notmuch-hello.el |   20 ++++++++++----------\r
  83 >  1 files changed, 10 insertions(+), 10 deletions(-)\r
  84 > \r
  85 > diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el\r
  86 > index aad373d..e9caade 100644\r
  87 > --- a/emacs/notmuch-hello.el\r
  88 > +++ b/emacs/notmuch-hello.el\r
  89 > @@ -695,16 +695,16 @@ Supports the following entries in OPTIONS as a plist:\r
  90 >                               (notmuch-hello-update))\r
  91 >                    "hide"))\r
  92 >      (widget-insert "\n")\r
  93 > -    (let (target-pos\r
  94 > -       (searches (apply 'notmuch-hello-query-counts query-alist options)))\r
  95 > -      (when (and (not is-hidden)\r
  96 > -            (or (not (plist-get options :hide-if-empty))\r
  97 > -               searches))\r
  98 > -     (widget-insert "\n")\r
  99 > -     (setq target-pos\r
 100 > -           (notmuch-hello-insert-buttons searches))\r
 101 > -     (indent-rigidly start (point) notmuch-hello-indent)\r
 102 > -     target-pos))))\r
 103 > +    (let (target-pos)\r
 104 > +      (when (not is-hidden)\r
 105 > +     (let ((searches (apply 'notmuch-hello-query-counts query-alist options)))\r
 106 > +       (when (or (not (plist-get options :hide-if-empty))\r
 107 > +                 searches)\r
 108 > +         (widget-insert "\n")\r
 109 > +         (setq target-pos\r
 110 > +               (notmuch-hello-insert-buttons searches))\r
 111 > +         (indent-rigidly start (point) notmuch-hello-indent))))\r
 112 > +      target-pos)))\r
 113 >  \r
 114 >  (defun notmuch-hello-insert-tags-section (&optional title &rest options)\r
 115 >    "Insert a section displaying all tags with message counts.\r
 116 \r
 117 \r
 118 This looks fine to me and does speed things up when the "All tags"\r
 119 section is hidden (are there other sections I can hide?)\r
 120 \r
 121 Best wishes\r
 122 \r
 123 Mark\r