a8/dec2a6478477a6f7650121a14b9bc930c7058f

   1 Return-Path: <markwalters1009@gmail.com>\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 92E0F431FD5\r
   6         for <notmuch@notmuchmail.org>; Mon, 26 Aug 2013 10:38:38 -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.201\r
  10 X-Spam-Level: \r
  11 X-Spam-Status: No, score=0.201 tagged_above=-999 required=5\r
  12         tests=[DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1,\r
  13         FREEMAIL_ENVFROM_END_DIGIT=1, FREEMAIL_FROM=0.001,\r
  14         RCVD_IN_DNSWL_LOW=-0.7] autolearn=disabled\r
  15 Received: from olra.theworths.org ([127.0.0.1])\r
  16         by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)\r
  17         with ESMTP id uekLk+4Ejiqv for <notmuch@notmuchmail.org>;\r
  18         Mon, 26 Aug 2013 10:38:31 -0700 (PDT)\r
  19 Received: from mail-wi0-f180.google.com (mail-wi0-f180.google.com\r
  20         [209.85.212.180]) (using TLSv1 with cipher RC4-SHA (128/128 bits))\r
  21         (No client certificate requested)\r
  22         by olra.theworths.org (Postfix) with ESMTPS id C1FB5431FD7\r
  23         for <notmuch@notmuchmail.org>; Mon, 26 Aug 2013 10:38:30 -0700 (PDT)\r
  24 Received: by mail-wi0-f180.google.com with SMTP id l12so2842388wiv.7\r
  25         for <notmuch@notmuchmail.org>; Mon, 26 Aug 2013 10:38:29 -0700 (PDT)\r
  26 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113;\r
  27         h=from:to:cc:subject:date:message-id:in-reply-to:references;\r
  28         bh=654EuTuuxIePCVBZiuCYbK0tCq2brcrOM8JwcXL3ztY=;\r
  29         b=HFrPm7ggUo2ENybUvzbDO155F3SV/i+Oonm36oUfTp8+VZor7tksp8EykRxh1vRA0W\r
  30         eCeuiYMTSqdbVPhu1T4j2Sfg3CXqHOpM24+cCrMkVvzNHxssD47Sk1FtrvIwE1lHPrwf\r
  31         RCYaxJG6h19eOv5/IIdQglPFH6/lBLPnYNPTZpLCqQI/07jNpuV7lC8Kpqx9sygcDyA5\r
  32         KeFPSq63eNdT7HPAcncfhtjZjbI0Nzw2J2HcE0AfT6cciQ+3KOMIenW6OgWDhPGofXqZ\r
  33         mWE0BCTKUG8JEPT/Kk1kDlty/eKiHnEk7DfZ7aAPnjO4HQ6E+VkQY627mm4bKW1kvKTL\r
  34         M6ZQ==\r
  35 X-Received: by 10.180.182.74 with SMTP id ec10mr5197345wic.4.1377460547050;\r
  36         Sun, 25 Aug 2013 12:55:47 -0700 (PDT)\r
  37 Received: from localhost (93-97-24-31.zone5.bethere.co.uk. [93.97.24.31])\r
  38         by mx.google.com with ESMTPSA id r6sm13302220wiw.0.1969.12.31.16.00.00\r
  39         (version=TLSv1.2 cipher=RC4-SHA bits=128/128);\r
  40         Sun, 25 Aug 2013 12:55:46 -0700 (PDT)\r
  41 From: Mark Walters <markwalters1009@gmail.com>\r
  42 To: notmuch@notmuchmail.org\r
  43 Subject: [Patch v4 3/3] contrib: pick: bind M-p and M-n to prev/next thread\r
  44 Date: Sun, 25 Aug 2013 20:55:34 +0100\r
  45 Message-Id: <1377460534-6022-4-git-send-email-markwalters1009@gmail.com>\r
  46 X-Mailer: git-send-email 1.7.9.1\r
  47 In-Reply-To: <1377460534-6022-1-git-send-email-markwalters1009@gmail.com>\r
  48 References: <1377460534-6022-1-git-send-email-markwalters1009@gmail.com>\r
  49 X-BeenThere: notmuch@notmuchmail.org\r
  50 X-Mailman-Version: 2.1.13\r
  51 Precedence: list\r
  52 List-Id: "Use and development of the notmuch mail system."\r
  53         <notmuch.notmuchmail.org>\r
  54 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
  55         <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
  56 List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
  57 List-Post: <mailto:notmuch@notmuchmail.org>\r
  58 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
  59 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
  60         <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
  61 X-List-Received-Date: Mon, 26 Aug 2013 17:38:39 -0000\r
  62 \r
  63 This adds functions to go to the previous or next thread to\r
  64 pick. Prev-thread behaves similarly to prev-message in show: if you\r
  65 are on the top line of a thread it will go to the top of the previous\r
  66 thread, otherwise it will go to the top of the current thread. Next\r
  67 thread will always go to the top of the next thread (or the end of\r
  68 buffer). These are bound to "M-p" and "M-n" by default (matching the\r
  69 bindings in show).\r
  70 ---\r
  71  contrib/notmuch-pick/notmuch-pick.el |   13 +++++++++++++\r
  72  1 files changed, 13 insertions(+), 0 deletions(-)\r
  73 \r
  74 diff --git a/contrib/notmuch-pick/notmuch-pick.el b/contrib/notmuch-pick/notmuch-pick.el\r
  75 index 258cfc3..84d27b3 100644\r
  76 --- a/contrib/notmuch-pick/notmuch-pick.el\r
  77 +++ b/contrib/notmuch-pick/notmuch-pick.el\r
  78 @@ -255,6 +255,8 @@ FUNC."\r
  79      (define-key map "p" 'notmuch-pick-prev-matching-message)\r
  80      (define-key map "N" 'notmuch-pick-next-message)\r
  81      (define-key map "P" 'notmuch-pick-prev-message)\r
  82 +    (define-key map (kbd "M-p") 'notmuch-pick-prev-thread)\r
  83 +    (define-key map (kbd "M-n") 'notmuch-pick-next-thread)\r
  84      (define-key map "-" 'notmuch-pick-remove-tag)\r
  85      (define-key map "+" 'notmuch-pick-add-tag)\r
  86      (define-key map "*" 'notmuch-pick-tag-thread)\r
  87 @@ -606,6 +608,17 @@ message will be \"unarchived\", i.e. the tag changes in\r
  88      (while (not (or (notmuch-pick-get-prop :first) (eobp)))\r
  89        (forward-line -1))))\r
  90  \r
  91 +(defun notmuch-pick-prev-thread ()\r
  92 +  (interactive)\r
  93 +  (forward-line -1)\r
  94 +  (notmuch-pick-thread-top))\r
  95 +\r
  96 +(defun notmuch-pick-next-thread ()\r
  97 +  (interactive)\r
  98 +  (forward-line 1)\r
  99 +  (while (not (or (notmuch-pick-get-prop :first) (eobp)))\r
 100 +    (forward-line 1)))\r
 101 +\r
 102  (defun notmuch-pick-thread-mapcar (function)\r
 103    "Iterate through all messages in the current thread\r
 104   and call FUNCTION for side effects."\r
 105 -- \r
 106 1.7.9.1\r
 107 \r