5b/2e9d03eb1bde4329c3690ca83526eb2c31eb74

   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 5579E431FC0\r
   6         for <notmuch@notmuchmail.org>; Tue,  7 Aug 2012 08:13:52 -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.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 qdBPo6w8ccsT for <notmuch@notmuchmail.org>;\r
  17         Tue,  7 Aug 2012 08:13:51 -0700 (PDT)\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 855D5431FAF\r
  22         for <notmuch@notmuchmail.org>; Tue,  7 Aug 2012 08:13:51 -0700 (PDT)\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 1SylTf-0007rQ-D3; Tue, 07 Aug 2012 16:13:47 +0100\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 1SylTf-0006Bh-3y; Tue, 07 Aug 2012 16:13:47 +0100\r
  32 From: Mark Walters <markwalters1009@gmail.com>\r
  33 To: Michal Nazarewicz <mpn@google.com>, notmuch@notmuchmail.org\r
  34 Subject: Re: [PATCH] notmuch-show: add notmuch-show-auto-mark-read option\r
  35 In-Reply-To:\r
  36  <7c2931eb4d34ff78e4c73d721bc00dc60d185e6a.1344260116.git.mina86@mina86.com>\r
  37 References:\r
  38  <7c2931eb4d34ff78e4c73d721bc00dc60d185e6a.1344260116.git.mina86@mina86.com>\r
  39 User-Agent: Notmuch/0.13.2+96~g634443c (http://notmuchmail.org) Emacs/23.4.1\r
  40         (x86_64-pc-linux-gnu)\r
  41 Date: Tue, 07 Aug 2012 16:13:40 +0100\r
  42 Message-ID: <874noepwez.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: 13dee221bff979a4c103cbb06fa6f317 (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: Tue, 07 Aug 2012 15:13:52 -0000\r
  77 \r
  78 On Mon, 06 Aug 2012, Michal Nazarewicz <mpn@google.com> wrote:\r
  79 > From: Michal Nazarewicz <mina86@mina86.com>\r
  80 >\r
  81 > Setting `notmuch-show-auto-mark-read' to nil stops notmuch-show from marking\r
  82 > the message as read (by removing the unread tag).  Inteded for people who\r
  83 > like to mark messages read explicitly.\r
  84 > ---\r
  85 >  emacs/notmuch-show.el |   16 +++++++++++++---\r
  86 >  1 files changed, 13 insertions(+), 3 deletions(-)\r
  87 >\r
  88 > diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el\r
  89 > index d318430..85a17b1 100644\r
  90 > --- a/emacs/notmuch-show.el\r
  91 > +++ b/emacs/notmuch-show.el\r
  92 > @@ -183,6 +183,14 @@ provided with an MLA argument nor `completing-read' input."\r
  93 >            notmuch-show-stash-mlarchive-link-alist))\r
  94 >    :group 'notmuch-show)\r
  95 >  \r
  96 > +(defcustom notmuch-show-auto-mark-read t\r
  97 > +  "Whether to automatically mark message as read when it is shown.  If\r
  98 > +nil, message needs to be marked as read manually for instance by\r
  99 > +removing the unread tag."\r
 100 > +  :type 'boolean\r
 101 > +  :group 'notmuch-show)\r
 102 > +\r
 103 > +\r
 104 >  (defmacro with-current-notmuch-show-message (&rest body)\r
 105 >    "Evaluate body with current buffer set to the text of current message"\r
 106 >    `(save-excursion\r
 107 > @@ -1374,9 +1382,11 @@ current thread."\r
 108 >    "Are the headers of the current message visible?"\r
 109 >    (notmuch-show-get-prop :headers-visible))\r
 110 >  \r
 111 > -(defun notmuch-show-mark-read ()\r
 112 > -  "Mark the current message as read."\r
 113 > -  (notmuch-show-tag-message "-unread"))\r
 114 > +(defun notmuch-show-mark-read (&optional force)\r
 115 > +  "Mark the current message as read if FORCE or\r
 116 > +`notmuch-show-auto-mark-read' is non-nil."\r
 117 > +  (when (or force notmuch-show-auto-mark-read)\r
 118 > +    (notmuch-show-tag-message "-unread")))\r
 119 \r
 120 \r
 121 As an alternative approach would allowing a list of tags (or even tag\r
 122 changes) to apply when a message is "read" do what you want and be more\r
 123 flexible? I am thinking of something roughly analogous to\r
 124 notmuch-message-replied-tags. I can imagine some people would like to\r
 125 remove the inbox tag automatically for example. (And since we sync with\r
 126 maildir flags the exact tag name does matter).\r
 127 \r
 128 \r
 129 I agree with Austin that the current unread marking is a little\r
 130 weird/unpredictable (eg notmuch-show-next-message marks a message read\r
 131 even if it is closed) but I don't think fixing that helps your use.\r
 132 \r
 133 Best wishes \r
 134 \r
 135 Mark\r
 136 \r
 137 \r