1 Return-Path: <ced@ryick.net>
\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 A051640DDDC
\r
6 for <notmuch@notmuchmail.org>; Sat, 13 Nov 2010 08:43:44 -0800 (PST)
\r
7 X-Virus-Scanned: Debian amavisd-new at olra.theworths.org
\r
11 X-Spam-Status: No, score=-1.899 tagged_above=-999 required=5
\r
12 tests=[BAYES_00=-1.9, RCVD_IN_SORBS_DUL=0.001] autolearn=ham
\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 xtH+YOLuPp-c for <notmuch@notmuchmail.org>;
\r
16 Sat, 13 Nov 2010 08:43:34 -0800 (PST)
\r
17 Received: from ced.ryick.net (ced.ryick.net [82.229.97.62])
\r
18 by olra.theworths.org (Postfix) with ESMTP id 3F8DF40DDDD
\r
19 for <notmuch@notmuchmail.org>; Sat, 13 Nov 2010 08:43:34 -0800 (PST)
\r
20 Received: from lappy.localnet (unknown [192.168.0.1])
\r
21 by ced.ryick.net (Postfix) with ESMTPS id 32B8787A71
\r
22 for <notmuch@notmuchmail.org>; Sat, 13 Nov 2010 17:43:33 +0100 (CET)
\r
23 From: =?iso-8859-15?q?C=E9dric_Cabessa?= <ced@ryick.net>
\r
24 To: notmuch@notmuchmail.org
\r
25 Subject: Re: [PATCH] How to improve the mail handling workflow?
\r
26 Date: Sat, 13 Nov 2010 17:43:38 +0100
\r
27 User-Agent: KMail/1.13.5 (Linux/2.6.34-gentoo-r2; KDE/4.5.2; x86_64; ; )
\r
28 References: <87fwv65zw1.fsf@free.fr>
\r
29 In-Reply-To: <87fwv65zw1.fsf@free.fr>
\r
31 Content-Type: Text/Plain;
\r
32 charset="iso-8859-15"
\r
33 Content-Transfer-Encoding: quoted-printable
\r
34 Message-Id: <201011131743.39114.ced@ryick.net>
\r
35 X-BeenThere: notmuch@notmuchmail.org
\r
36 X-Mailman-Version: 2.1.13
\r
38 List-Id: "Use and development of the notmuch mail system."
\r
39 <notmuch.notmuchmail.org>
\r
40 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,
\r
41 <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>
\r
42 List-Archive: <http://notmuchmail.org/pipermail/notmuch>
\r
43 List-Post: <mailto:notmuch@notmuchmail.org>
\r
44 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>
\r
45 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,
\r
46 <mailto:notmuch-request@notmuchmail.org?subject=subscribe>
\r
47 X-List-Received-Date: Sat, 13 Nov 2010 16:43:44 -0000
\r
49 On Friday 12 November 2010 16:23:58 Matthieu Lemerre wrote:
\r
50 > - Processing mails which do not have any automatically added tag is
\r
51 > boring, because I need to press several keys to archive them: "+" to
\r
52 > add a tag, and then "a". If I forget about +, then my mail is
\r
53 > impossible to find.
\r
56 I do not know if notmuch/xapian can find mail with 0 tag or only "attachmen=
\r
60 The dirty solution I found is to create a virtual folder called "orphan" th=
\r
62 contains none of all the other tags (ie not tag:foo and not tag:bar and not=
\r
67 I do not considere "attachment" as a real tag. I should now do the same for=
\r
69 "replied" and all other new stuff
\r
74 (defun tagreduce(a b)
\r
75 (if (or (string=3D a "attachment") (string=3D b "attachment"))
\r
76 (if (string=3D a "attachment")
\r
80 (if (not (string-match "and not" a))
\r
81 (concat "not tag:" a " and not tag:" b)
\r
82 (concat a " and not tag:" b)
\r
89 (reduce 'tagreduce (split-string (with-output-to-string
\r
90 (with-current-buffer standard-output
\r
91 (apply 'call-process notmuch-command nil t nil=20
\r
92 "search-tags" nil))) "\n+" t))
\r
95 (setq pnotmuch-orphans (append '("orphan") (orphan)))
\r
96 (setq notmuch-folders (append notmuch-folders (list pnotmuch-orphans)))
\r
100 (excuse my lisp ...)
\r