3f/cd927f7bf47f3a29d2f21a0b28bc96c6fc3ce5

   1 Return-Path: <tomi.ollila@iki.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 olra.theworths.org (Postfix) with ESMTP id D3580431FAF\r
   6         for <notmuch@notmuchmail.org>; Sun,  5 May 2013 03:48:36 -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: 0\r
  10 X-Spam-Level: \r
  11 X-Spam-Status: No, score=0 tagged_above=-999 required=5 tests=[none]\r
  12         autolearn=disabled\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 82qVG9aZXIVg for <notmuch@notmuchmail.org>;\r
  16         Sun,  5 May 2013 03:48:32 -0700 (PDT)\r
  17 Received: from guru.guru-group.fi (guru.guru-group.fi [46.183.73.34])\r
  18         by olra.theworths.org (Postfix) with ESMTP id 73751431FAE\r
  19         for <notmuch@notmuchmail.org>; Sun,  5 May 2013 03:48:32 -0700 (PDT)\r
  20 Received: from guru.guru-group.fi (localhost [IPv6:::1])\r
  21         by guru.guru-group.fi (Postfix) with ESMTP id 58AC7100033;\r
  22         Sun,  5 May 2013 13:48:31 +0300 (EEST)\r
  23 From: Tomi Ollila <tomi.ollila@iki.fi>\r
  24 To: Mark Walters <markwalters1009@gmail.com>, Jani Nikula <jani@nikula.org>,\r
  25         notmuch@notmuchmail.org\r
  26 Subject: Re: [PATCH REBASE] emacs: add show view bindings to move to\r
  27         previous/next thread\r
  28 In-Reply-To: <87bo8q72u3.fsf@qmul.ac.uk>\r
  29 References: <1367514302-30196-1-git-send-email-jani@nikula.org>\r
  30         <87bo8q72u3.fsf@qmul.ac.uk>\r
  31 User-Agent: Notmuch/0.15.2+75~gd7fa7c4 (http://notmuchmail.org) Emacs/24.3.1\r
  32         (x86_64-unknown-linux-gnu)\r
  33 X-Face: HhBM'cA~<r"^Xv\KRN0P{vn'Y"Kd;zg_y3S[4)KSN~s?O\"QPoL\r
  34         $[Xv_BD:i/F$WiEWax}R(MPS`^UaptOGD`*/=@\1lKoVa9tnrg0TW?"r7aRtgk[F\r
  35         !)g;OY^,BjTbr)Np:%c_o'jj,Z\r
  36 Date: Sun, 05 May 2013 13:48:31 +0300\r
  37 Message-ID: <m21u9lya68.fsf@guru.guru-group.fi>\r
  38 MIME-Version: 1.0\r
  39 Content-Type: text/plain\r
  40 X-BeenThere: notmuch@notmuchmail.org\r
  41 X-Mailman-Version: 2.1.13\r
  42 Precedence: list\r
  43 List-Id: "Use and development of the notmuch mail system."\r
  44         <notmuch.notmuchmail.org>\r
  45 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
  46         <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
  47 List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
  48 List-Post: <mailto:notmuch@notmuchmail.org>\r
  49 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
  50 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
  51         <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
  52 X-List-Received-Date: Sun, 05 May 2013 10:48:37 -0000\r
  53 \r
  54 On Sun, May 05 2013, Mark Walters <markwalters1009@gmail.com> wrote:\r
  55 \r
  56 > Hi\r
  57 >\r
  58 > This seems like a useful addition to me. I have a couple of comments and\r
  59 > a little bikeshedding below.\r
  60 >\r
  61 > On Thu, 02 May 2013, Jani Nikula <jani@nikula.org> wrote:\r
  62 >> We have most of the plumbing in place, add the bindings M-n and M-p.\r
  63 >> ---\r
  64 >>  emacs/notmuch-show.el |   24 ++++++++++++++++++++++++\r
  65 >>  1 file changed, 24 insertions(+)\r
  66 >>\r
  67 >> diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el\r
  68 >> index face2a0..7f6ea65 100644\r
  69 >> --- a/emacs/notmuch-show.el\r
  70 >> +++ b/emacs/notmuch-show.el\r
  71 >> @@ -39,6 +39,7 @@\r
  72 >>  \r
  73 >>  (declare-function notmuch-call-notmuch-process "notmuch" (&rest args))\r
  74 >>  (declare-function notmuch-search-next-thread "notmuch" nil)\r
  75 >> +(declare-function notmuch-search-previous-thread "notmuch" nil)\r
  76 >>  (declare-function notmuch-search-show-thread "notmuch" nil)\r
  77 >>  \r
  78 >>  (defcustom notmuch-message-headers '("Subject" "To" "Cc" "Date")\r
  79 >> @@ -1267,6 +1268,8 @@ reset based on the original query."\r
  80 >>      (define-key map "P" 'notmuch-show-previous-message)\r
  81 >>      (define-key map "n" 'notmuch-show-next-open-message)\r
  82 >>      (define-key map "p" 'notmuch-show-previous-open-message)\r
  83 >> +    (define-key map (kbd "M-n") 'notmuch-show-next-thread-show)\r
  84 >> +    (define-key map (kbd "M-p") 'notmuch-show-previous-thread-show)\r
  85 >\r
  86 > These seem sensible bindings.\r
  87 >\r
  88 >>      (define-key map (kbd "DEL") 'notmuch-show-rewind)\r
  89 >>      (define-key map " " 'notmuch-show-advance-and-archive)\r
  90 >>      (define-key map (kbd "M-RET") 'notmuch-show-open-or-close-all)\r
  91 >> @@ -1839,6 +1842,27 @@ argument, hide all of the messages."\r
  92 >>        (if show-next\r
  93 >>        (notmuch-search-show-thread)))))\r
  94 >>  \r
  95 >> +(defun notmuch-show-previous-thread (&optional show-previous)\r
  96 >> +  "Move to the next item in the search results, if any."\r
  97 >                   ^^\r
  98 > Should be previous item.\r
  99 >\r
 100 >> +  (interactive "P")\r
 101 >> +  (let ((parent-buffer notmuch-show-parent-buffer))\r
 102 >> +    (notmuch-kill-this-buffer)\r
 103 >> +    (when (buffer-live-p parent-buffer)\r
 104 >> +      (switch-to-buffer parent-buffer)\r
 105 >> +      (notmuch-search-previous-thread)\r
 106 >> +      (if show-previous\r
 107 >> +      (notmuch-search-show-thread)))))\r
 108 >> +\r
 109 >\r
 110 > If you change this to \r
 111 >    (if  (and (notmuch-search-previous-thread) show-previous)\r
 112 >         (notmuch-search-show-thread)))))\r
 113 > then if you apply it to the first thread  it jumps back to the search menu which is\r
 114 > consistent with the next-thread version.\r
 115 \r
 116 notmuch-search-next-thread & notmuch-search-previous-thread behaves\r
 117 differently when it comes to the end... previous always points\r
 118 to thread but next goes to the end. This is OK for interactive point\r
 119 of view but for noninteractive use one needs to do special handling...\r
 120 \r
 121 > I would have a slight preference for adding another optional argument \r
 122 > notmuch-show-next-thread (&optional show-message previous)\r
 123 >\r
 124 > where if PREVIOUS is set then it would go back otherwise forward. But I\r
 125 > with the duplicated version too.\r
 126 \r
 127 ... what we need is lower level (noninteractive) function (taking PREVIOUS\r
 128 as an arg) which signals when it cannot get next/previous function...\r
 129 and then this notmuch-show-next-thread (&optional show-message previous)\r
 130 just calls it (with proper handling block) in place of\r
 131 notmuch-search-next-thread (maybe notmuch-search-previous-or-next-thread).\r
 132 \r
 133 This would be a bit cleaner.\r
 134 \r
 135 If this is not done, then I'd just go with Mark's suggestion of checking\r
 136 the return value of notmuch-search-previous-thread, and if you (jani)\r
 137 wish combine this functionality to notmuch-show-next-thread.\r
 138 \r
 139 \r
 140 > Best wishes\r
 141 >\r
 142 > Mark\r
 143 \r
 144 Tomi\r
 145 \r
 146 >\r
 147 >\r
 148 >> +(defun notmuch-show-next-thread-show ()\r
 149 >> +  "Show the next thread in the search results, if any."\r
 150 >> +  (interactive)\r
 151 >> +  (notmuch-show-next-thread t))\r
 152 >> +\r
 153 >> +(defun notmuch-show-previous-thread-show ()\r
 154 >> +  "Show the previous thread in the search results, if any."\r
 155 >> +  (interactive)\r
 156 >> +  (notmuch-show-previous-thread t))\r
 157 >> +\r
 158 >>  (defun notmuch-show-archive-thread (&optional unarchive)\r
 159 >>    "Archive each message in thread.\r
 160 >>  \r
 161 >> -- \r
 162 >> 1.7.10.4\r