1 Return-Path: <jrollins@finestructure.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 C1C9F414687
\r
6 for <notmuch@notmuchmail.org>; Sun, 8 Jan 2012 11:09:12 -0800 (PST)
\r
7 X-Virus-Scanned: Debian amavisd-new at olra.theworths.org
\r
11 X-Spam-Status: No, score=-2.3 tagged_above=-999 required=5
\r
12 tests=[RCVD_IN_DNSWL_MED=-2.3] 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 P3GcS8O-mlAe for <notmuch@notmuchmail.org>;
\r
16 Sun, 8 Jan 2012 11:09:12 -0800 (PST)
\r
17 Received: from outgoing-mail.its.caltech.edu (outgoing-mail.its.caltech.edu
\r
19 by olra.theworths.org (Postfix) with ESMTP id 5E9DE414680
\r
20 for <notmuch@notmuchmail.org>; Sun, 8 Jan 2012 11:09:12 -0800 (PST)
\r
21 Received: from fire-doxen.imss.caltech.edu (localhost [127.0.0.1])
\r
22 by fire-doxen-postvirus (Postfix) with ESMTP id CE4252E50D7C
\r
23 for <notmuch@notmuchmail.org>; Sun, 8 Jan 2012 11:09:11 -0800 (PST)
\r
24 X-Spam-Scanned: at Caltech-IMSS on fire-doxen by amavisd-new
\r
25 Received: from finestructure.net (cpe-76-174-137-84.socal.res.rr.com
\r
26 [76.174.137.84]) (Authenticated sender: jrollins)
\r
27 by fire-doxen-submit (Postfix) with ESMTP id 8CFCF2E50D74
\r
28 for <notmuch@notmuchmail.org>; Sun, 8 Jan 2012 11:09:09 -0800 (PST)
\r
29 Received: by finestructure.net (Postfix, from userid 1000)
\r
30 id 3806DA4A; Sun, 8 Jan 2012 11:09:09 -0800 (PST)
\r
31 From: Jameson Graef Rollins <jrollins@finestructure.net>
\r
32 To: Notmuch Mail <notmuch@notmuchmail.org>
\r
33 Subject: [PATCH 1/4 v2] emacs: add show-mode functions to archive/delete only
\r
35 Date: Sun, 8 Jan 2012 11:09:09 -0800
\r
36 Message-Id: <1326049749-19899-1-git-send-email-jrollins@finestructure.net>
\r
37 X-Mailer: git-send-email 1.7.7.3
\r
38 In-Reply-To: <1325986015-22510-2-git-send-email-jrollins@finestructure.net>
\r
39 References: <1325986015-22510-2-git-send-email-jrollins@finestructure.net>
\r
40 X-BeenThere: notmuch@notmuchmail.org
\r
41 X-Mailman-Version: 2.1.13
\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, 08 Jan 2012 19:09:12 -0000
\r
54 This adds two new function, notmuch-show-{archive,delete}-message,
\r
55 that archive/delete the current message, and then move to the next
\r
58 Sorry, there were some errant extra parens at the end of these
\r
59 function definitions.
\r
61 emacs/notmuch-show.el | 24 ++++++++++++++++++++++++
\r
62 1 files changed, 24 insertions(+), 0 deletions(-)
\r
64 diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el
\r
65 index e1d15f4..b2e7829 100644
\r
66 --- a/emacs/notmuch-show.el
\r
67 +++ b/emacs/notmuch-show.el
\r
68 @@ -1436,6 +1436,18 @@ argument, hide all of the messages."
\r
70 (notmuch-search-show-thread)))))))
\r
72 +(defun notmuch-show-archive-message ()
\r
73 + "Archive the current message and advance.
\r
75 +After the last message is reached, either the buffer will be
\r
76 +closed and the cursor will move to the search result if
\r
77 +available, or the cursor will move to the end of the current
\r
81 + (notmuch-show-remove-tag "inbox")
\r
82 + (notmuch-show-next-open-message))
\r
84 (defun notmuch-show-archive-thread ()
\r
85 "Archive each message in thread, then show next thread from search.
\r
87 @@ -1455,6 +1467,18 @@ buffer."
\r
89 (notmuch-show-tag-thread-internal "-" "inbox" nil))
\r
91 +(defun notmuch-show-delete-message ()
\r
92 + "Delete the current message and advance.
\r
94 +After the last message is reached, either the buffer will be
\r
95 +closed and the cursor will move to the search result if
\r
96 +available, or the cursor will move to the end of the current
\r
100 + (notmuch-show-add-tag "deleted")
\r
101 + (notmuch-show-next-open-message))
\r
103 (defun notmuch-show-delete-thread ()
\r
104 "Delete each message in thread, then show next thread from search.
\r