2c/1403415cbaa84df6cbd77d4bf2275cfcd30c15

   1 Return-Path: <cworth@cworth.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 4BFC5431FBD;\r
   6         Mon, 30 Nov 2009 23:28:02 -0800 (PST)\r
   7 X-Virus-Scanned: Debian amavisd-new at olra.theworths.org\r
   8 Received: from olra.theworths.org ([127.0.0.1])\r
   9         by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)\r
  10         with ESMTP id qwzOv9JypcO8; Mon, 30 Nov 2009 23:28:01 -0800 (PST)\r
  11 Received: from yoom.home.cworth.org (localhost [127.0.0.1])\r
  12         by olra.theworths.org (Postfix) with ESMTP id 3FBAE431FAE;\r
  13         Mon, 30 Nov 2009 23:28:01 -0800 (PST)\r
  14 Received: by yoom.home.cworth.org (Postfix, from userid 1000)\r
  15         id 63E51254419; Mon, 30 Nov 2009 23:27:43 -0800 (PST)\r
  16 From: Carl Worth <cworth@cworth.org>\r
  17 To: Keith Packard <keithp@keithp.com>, notmuch@notmuchmail.org\r
  18 In-Reply-To: <yunfx85puzp.fsf@aiko.keithp.com>\r
  19 References: <1258493565-13508-1-git-send-email-keithp@keithp.com>\r
  20         <87d43axi4e.fsf@yoom.home.cworth.org> <yunocmup24i.fsf@aiko.keithp.com>\r
  21         <87zl6eeydr.fsf@yoom.home.cworth.org> <yunk4xhq4nz.fsf@aiko.keithp.com>\r
  22         <873a4521nb.fsf@yoom.home.cworth.org> <yunfx85puzp.fsf@aiko.keithp.com>\r
  23 Date: Mon, 30 Nov 2009 23:27:43 -0800\r
  24 Message-ID: <87tywb9ms0.fsf@yoom.home.cworth.org>\r
  25 MIME-Version: 1.0\r
  26 Content-Type: multipart/signed; boundary="=-=-=";\r
  27         micalg=pgp-sha1; protocol="application/pgp-signature"\r
  28 Subject: Re: [notmuch] [PATCH] Make notmuch-show 'X' (and 'x') commands\r
  29  remove inbox (and unread) tags\r
  30 X-BeenThere: notmuch@notmuchmail.org\r
  31 X-Mailman-Version: 2.1.12\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: Tue, 01 Dec 2009 07:28:02 -0000\r
  43 \r
  44 --=-=-=\r
  45 Content-Transfer-Encoding: quoted-printable\r
  46 \r
  47 On Sun, 22 Nov 2009 23:20:58 -0800, Keith Packard <keithp@keithp.com> wrote:\r
  48 > So we need to do the 'mark all that have been seen read' change, then we\r
  49 > can do the rest of this switch. Not sure how to make that work, as we\r
  50 > need to know what has been displayed, and you can display bits of the\r
  51 > window in lots of different ways (even using the mouse!)\r
  52 \r
  53 Yeah, we're not yet very friendly to reading with the mouse scroll\r
  54 wheel, (in that doing so won't clear the "unread" tag from messages as\r
  55 they go by).\r
  56 \r
  57 Meanwhile, I actually like being able to peek ahead in a thread with 'n'\r
  58 and 'p' and know that those commands don't touch my "unread" tag.\r
  59 \r
  60 So I think what I'd like is for 'a' and 'x' to simply remove the unread\r
  61 tag from any message whose final line is currently visible.\r
  62 \r
  63 But that's also really orthogonal to making 'x' and 'X' remove the\r
  64 "inbox" tag from the messages in the current thread. So I've just\r
  65 committed that change (see below).\r
  66 \r
  67 =2DCarl\r
  68 \r
  69 commit 55559ea409ad8df367f13752430244b7087dcd23\r
  70 Author: Carl Worth <cworth@cworth.org>\r
  71 Date:   Mon Nov 30 23:21:04 2009 -0800\r
  72 \r
  73     notmuch.el: Make 'x' and 'X' in show-mode archive the current thread.\r
  74 =20=20=20=20\r
  75     This makes these keys different than 'q' in this mode, (where 'x'\r
  76     and 'q' are identical in all of the other modes currently).\r
  77 =20=20=20=20\r
  78     The idea here is to make it easier to do non-linear reading of messages,\r
  79     (such as when poking in to read just one or two threads from a search\r
  80     result that returned many threads).\r
  81 \r
  82 diff --git a/notmuch.el b/notmuch.el\r
  83 index e605d9d..2509651 100644\r
  84 =2D-- a/notmuch.el\r
  85 +++ b/notmuch.el\r
  86 @@ -55,7 +55,6 @@\r
  87    (let ((map (make-sparse-keymap)))\r
  88      (define-key map "?" 'notmuch-help)\r
  89      (define-key map "q" 'kill-this-buffer)\r
  90 =2D    (define-key map "x" 'kill-this-buffer)\r
  91      (define-key map (kbd "C-p") 'notmuch-show-previous-line)\r
  92      (define-key map (kbd "C-n") 'notmuch-show-next-line)\r
  93      (define-key map (kbd "M-TAB") 'notmuch-show-previous-button)\r
  94 @@ -70,6 +69,8 @@\r
  95      (define-key map "v" 'notmuch-show-view-all-mime-parts)\r
  96      (define-key map "-" 'notmuch-show-remove-tag)\r
  97      (define-key map "+" 'notmuch-show-add-tag)\r
  98 +    (define-key map "X" 'notmuch-show-mark-read-then-archive-then-exit)\r
  99 +    (define-key map "x" 'notmuch-show-archive-thread-then-exit)\r
 100      (define-key map "A" 'notmuch-show-mark-read-then-archive-thread)\r
 101      (define-key map "a" 'notmuch-show-archive-thread)\r
 102      (define-key map "p" 'notmuch-show-previous-message)\r
 103 @@ -273,6 +274,18 @@ buffer."\r
 104    (interactive)\r
 105    (notmuch-show-archive-thread-maybe-mark-read nil))\r
 106 =20\r
 107 +(defun notmuch-show-archive-thread-then-exit ()\r
 108 +  "Archive each message in thread, then exit back to search results."\r
 109 +  (interactive)\r
 110 +  (notmuch-show-archive-thread)\r
 111 +  (kill-this-buffer))\r
 112 +\r
 113 +(defun notmuch-show-mark-read-then-archive-then-exit ()\r
 114 +  "Remove unread tags from thread, then archive and exit to search results=\r
 115 ."\r
 116 +  (interactive)\r
 117 +  (notmuch-show-mark-read-then-archive-thread)\r
 118 +  (kill-this-buffer))\r
 119 +\r
 120  (defun notmuch-show-view-raw-message ()\r
 121    "View the raw email of the current message."\r
 122    (interactive)\r
 123 \r
 124 \r
 125 --=-=-=\r
 126 Content-Type: application/pgp-signature\r
 127 \r
 128 -----BEGIN PGP SIGNATURE-----\r
 129 Version: GnuPG v1.4.10 (GNU/Linux)\r
 130 \r
 131 iD8DBQFLFMVv6JDdNq8qSWgRAl8WAKCjf1JKUfzxaSgcWWcKG3sCrtu9YQCcCkQz\r
 132 FQVDLRTLeTzjoahQEBt+KbU=\r
 133 =mRG0\r
 134 -----END PGP SIGNATURE-----\r
 135 --=-=-=--\r