From 24258c6497838609acfcf1203be25d58c2324bac Mon Sep 17 00:00:00 2001 From: Tim Bielawa Date: Thu, 8 Mar 2012 17:39:10 +1900 Subject: [PATCH] [PATCH 1/1] Add a function for applying an arbitrary number of tags to the highlighted message thread while in notmuch-search-mode. Intended to restore the original functionality of notmuch-search-remove-tag and notmuch-search-add-tag prior to 2beaefa2. --- e9/6a41c249bd90b978ad3735c26328840dc00445 | 80 +++++++++++++++++++++++ 1 file changed, 80 insertions(+) create mode 100644 e9/6a41c249bd90b978ad3735c26328840dc00445 diff --git a/e9/6a41c249bd90b978ad3735c26328840dc00445 b/e9/6a41c249bd90b978ad3735c26328840dc00445 new file mode 100644 index 000000000..4ee213c43 --- /dev/null +++ b/e9/6a41c249bd90b978ad3735c26328840dc00445 @@ -0,0 +1,80 @@ +Return-Path: +X-Original-To: notmuch@notmuchmail.org +Delivered-To: notmuch@notmuchmail.org +Received: from localhost (localhost [127.0.0.1]) + by olra.theworths.org (Postfix) with ESMTP id 5BDD8431FB6 + for ; Wed, 7 Mar 2012 14:39:15 -0800 (PST) +X-Virus-Scanned: Debian amavisd-new at olra.theworths.org +X-Spam-Flag: NO +X-Spam-Score: -5 +X-Spam-Level: +X-Spam-Status: No, score=-5 tagged_above=-999 required=5 + tests=[RCVD_IN_DNSWL_HI=-5] autolearn=disabled +Received: from olra.theworths.org ([127.0.0.1]) + by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024) + with ESMTP id ZCKCfco0OJ3Y for ; + Wed, 7 Mar 2012 14:39:13 -0800 (PST) +Received: from mx1.redhat.com (mx1.redhat.com [209.132.183.28]) + by olra.theworths.org (Postfix) with ESMTP id 91823431FAE + for ; Wed, 7 Mar 2012 14:39:13 -0800 (PST) +Received: from int-mx09.intmail.prod.int.phx2.redhat.com + (int-mx09.intmail.prod.int.phx2.redhat.com [10.5.11.22]) + by mx1.redhat.com (8.14.4/8.14.4) with ESMTP id q27MdCSP014827 + (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=OK) + for ; Wed, 7 Mar 2012 17:39:12 -0500 +Received: from localhost.localdomain ([10.3.113.2]) + by int-mx09.intmail.prod.int.phx2.redhat.com (8.14.4/8.14.4) with ESMTP + id q27MdBI7003549 + (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NO) + for ; Wed, 7 Mar 2012 17:39:12 -0500 +From: Tim Bielawa +To: notmuch@notmuchmail.org +Subject: [PATCH 1/1] Add a function for applying an arbitrary number of tags + to the highlighted message thread while in notmuch-search-mode. + Intended to restore the original functionality of + notmuch-search-remove-tag and notmuch-search-add-tag prior to + 2beaefa2. +Date: Wed, 7 Mar 2012 17:39:10 -0500 +Message-Id: <1331159950-21565-1-git-send-email-tbielawa@redhat.com> +X-Scanned-By: MIMEDefang 2.68 on 10.5.11.22 +X-BeenThere: notmuch@notmuchmail.org +X-Mailman-Version: 2.1.13 +Precedence: list +List-Id: "Use and development of the notmuch mail system." + +List-Unsubscribe: , + +List-Archive: +List-Post: +List-Help: +List-Subscribe: , + +X-List-Received-Date: Wed, 07 Mar 2012 22:39:15 -0000 + +--- + emacs/notmuch.el | 9 +++++++++ + 1 files changed, 9 insertions(+), 0 deletions(-) + +diff --git a/emacs/notmuch.el b/emacs/notmuch.el +index 99e0c93..b731c7c 100644 +--- a/emacs/notmuch.el ++++ b/emacs/notmuch.el +@@ -663,6 +663,15 @@ added or removed for all threads in the region from BEG to END." + (interactive) + (notmuch-search-tag "-")) + ++(defun notmuch-search-tag-and-advance (&rest tags) ++ "Apply a tag or set of tags to the current thread. ++ ++Shortcut to simplify applying tags in search mode. Targeted for ++use in key-bound functions. Advances to the next thread after ++applying the tags." ++ (mapc 'notmuch-search-tag-thread tags) ++ (notmuch-search-next-thread)) ++ + (defun notmuch-search-archive-thread () + "Archive the currently selected thread (remove its \"inbox\" tag). + +-- +1.7.4.4 + -- 2.26.2