Re: [PATCH] emacs: wash: make word-wrap bound message width
[notmuch-archives.git] / 9d / e28d321d8fefd3d0ec68b34d6bb3ccafdffe78
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 1ABA9431FCF\r
6         for <notmuch@notmuchmail.org>; Mon,  1 Jul 2013 13:06:10 -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 ISlZT43H4-Ib for <notmuch@notmuchmail.org>;\r
18         Mon,  1 Jul 2013 13:06:04 -0700 (PDT)\r
19 Received: from mail-wi0-f172.google.com (mail-wi0-f172.google.com\r
20         [209.85.212.172]) (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 B9947431FD2\r
23         for <notmuch@notmuchmail.org>; Mon,  1 Jul 2013 13:05:57 -0700 (PDT)\r
24 Received: by mail-wi0-f172.google.com with SMTP id c10so3472260wiw.5\r
25         for <notmuch@notmuchmail.org>; Mon, 01 Jul 2013 13:05:56 -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:x-mailer:in-reply-to:references;\r
28         bh=v/Y827LYLmu2WP5xLN6utW4P07nt0tO2KlAizBfFT40=;\r
29         b=YoSWNJfzlMYaKaKdlVJ2M6zzPdGyPsVQMBWmVcp77lzmodh1oV2BnElyBTVWDswG/A\r
30         mVxUlKB6vn1p0traEHFjqkxgoIrByK4+yMYLGGbb8skxyYv5V3zzpVZgg4Sgb0uWrNEU\r
31         oMHhU35QvAUag0bRF1/UwUL4q5vJ7+UqMZ9cLsoatLbAtPScrjVkoMQlY827EbA9zSa1\r
32         ACe3QPuqGpqcjfn+pKvaiXt2VyFNQDRNeJNz2yycBhNtUd1KbIE1uGd5xuqAKb5Pb3t4\r
33         LM8TyK9BJ0Ftn2HaE2TVSirYHTTksKHTpq5P4Qvrqk9bAeNR5vQkqdjo7v+xm0/itoGC\r
34         IChg==\r
35 X-Received: by 10.180.108.115 with SMTP id hj19mr5377850wib.4.1372709156685;\r
36         Mon, 01 Jul 2013 13:05:56 -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\r
39         fd3sm18512618wic.10.2013.07.01.13.05.55 for <multiple recipients>\r
40         (version=TLSv1.2 cipher=RC4-SHA bits=128/128);\r
41         Mon, 01 Jul 2013 13:05:56 -0700 (PDT)\r
42 From: Mark Walters <markwalters1009@gmail.com>\r
43 To: notmuch@notmuchmail.org\r
44 Subject: [PATCH 4/4] contrib: pick: document several of the tree/forest\r
45         insertion functions.\r
46 Date: Mon,  1 Jul 2013 21:05:43 +0100\r
47 Message-Id: <1372709143-12319-5-git-send-email-markwalters1009@gmail.com>\r
48 X-Mailer: git-send-email 1.7.9.1\r
49 In-Reply-To: <1372709143-12319-1-git-send-email-markwalters1009@gmail.com>\r
50 References: <1372709143-12319-1-git-send-email-markwalters1009@gmail.com>\r
51 X-BeenThere: notmuch@notmuchmail.org\r
52 X-Mailman-Version: 2.1.13\r
53 Precedence: list\r
54 List-Id: "Use and development of the notmuch mail system."\r
55         <notmuch.notmuchmail.org>\r
56 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
57         <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
58 List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
59 List-Post: <mailto:notmuch@notmuchmail.org>\r
60 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
61 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
62         <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
63 X-List-Received-Date: Mon, 01 Jul 2013 20:06:10 -0000\r
64 \r
65 ---\r
66  contrib/notmuch-pick/notmuch-pick.el |   12 ++++++++++--\r
67  1 files changed, 10 insertions(+), 2 deletions(-)\r
68 \r
69 diff --git a/contrib/notmuch-pick/notmuch-pick.el b/contrib/notmuch-pick/notmuch-pick.el\r
70 index fd68fc6..fbd7c0b 100644\r
71 --- a/contrib/notmuch-pick/notmuch-pick.el\r
72 +++ b/contrib/notmuch-pick/notmuch-pick.el\r
73 @@ -683,7 +683,10 @@ unchanged ADDRESS if parsing fails."\r
74         (notmuch-pick-show-message)))))\r
75  \r
76  (defun notmuch-pick-insert-tree (tree depth tree-status first last)\r
77 -  "Insert the message tree TREE at depth DEPTH in the current thread."\r
78 +  "Insert the message tree TREE at depth DEPTH in the current thread.\r
79 +\r
80 +A message tree is another name for a single sub-thread: i.e., a\r
81 +message together with all its descendents."\r
82    (let ((msg (car tree))\r
83         (replies (cadr tree)))\r
84  \r
85 @@ -714,7 +717,7 @@ unchanged ADDRESS if parsing fails."\r
86      (notmuch-pick-insert-thread replies (1+ depth) tree-status)))\r
87  \r
88  (defun notmuch-pick-insert-thread (thread depth tree-status)\r
89 -  "Insert the thread THREAD at depth DEPTH >= 1 in the current forest."\r
90 +  "Insert the collection of sibling sub-threads THREAD at depth DEPTH in the current forest."\r
91    (let ((n (length thread)))\r
92      (loop for tree in thread\r
93           for count from 1 to n\r
94 @@ -722,12 +725,17 @@ unchanged ADDRESS if parsing fails."\r
95           do (notmuch-pick-insert-tree tree depth tree-status (eq count 1) (eq count n)))))\r
96  \r
97  (defun notmuch-pick-insert-forest-thread (forest-thread)\r
98 +  "Insert a single complete thread."\r
99    (let (tree-status)\r
100      ;; Reset at the start of each main thread.\r
101      (setq notmuch-pick-previous-subject nil)\r
102      (notmuch-pick-insert-thread forest-thread 0 tree-status)))\r
103  \r
104  (defun notmuch-pick-insert-forest (forest)\r
105 +  "Insert a forest of threads.\r
106 +\r
107 +This function inserts a collection of several complete threads as\r
108 +passed to it by notmuch-pick-process-filter."\r
109    (mapc 'notmuch-pick-insert-forest-thread forest))\r
110  \r
111  (defun notmuch-pick-mode ()\r
112 -- \r
113 1.7.9.1\r
114 \r