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 8A061431FC2 for ; Wed, 25 Apr 2012 10:12:36 -0700 (PDT) X-Virus-Scanned: Debian amavisd-new at olra.theworths.org X-Spam-Flag: NO X-Spam-Score: 0.201 X-Spam-Level: X-Spam-Status: No, score=0.201 tagged_above=-999 required=5 tests=[DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, FREEMAIL_ENVFROM_END_DIGIT=1, FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_LOW=-0.7] 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 H+NxGtg7dH2W for ; Wed, 25 Apr 2012 10:12:34 -0700 (PDT) Received: from mail-wi0-f173.google.com (mail-wi0-f173.google.com [209.85.212.173]) (using TLSv1 with cipher RC4-SHA (128/128 bits)) (No client certificate requested) by olra.theworths.org (Postfix) with ESMTPS id 5F0C4431FAF for ; Wed, 25 Apr 2012 10:12:34 -0700 (PDT) Received: by wibhq7 with SMTP id hq7so4355855wib.2 for ; Wed, 25 Apr 2012 10:12:33 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=from:to:cc:subject:date:message-id:x-mailer:in-reply-to:references; bh=mr86gOhDfnvsEAx8l0flI35xruEhLMZMIu6QFIm5PlI=; b=jFOeBN0VPZ8CMHQYRzZY6w8JOnpUxz0HtjfayDIUoZjwdEixaRUHMITmtBrPNQR8s4 6rd5R5Q0QCeNqkK8LPOD1mkHXH6Y/LBV53MTP93PhhqgT15I+ACd1itiHkBz/1eIXzo0 dn9NRYYQq2GH0tU0wK7QdGkaQNVyxV49/dGQOp5Lb1sZKYrln2Z1vU3L5fuTeA7mLUp1 xiD36ZOAqjyt+YzhFlVYuShjv6PW/UTpxgrkYVSaeRRHfJhDbskWmXsNIbijCuG2+qpe us7RVonix6teSKT0QRdIuTNUgE7dL3jfvul1Vt88SfwbP3vg4HRA8eU2L0BbHMO8l7S6 iRLg== Received: by 10.180.90.233 with SMTP id bz9mr8182745wib.21.1335373953115; Wed, 25 Apr 2012 10:12:33 -0700 (PDT) Received: from localhost (94-192-233-223.zone6.bethere.co.uk. [94.192.233.223]) by mx.google.com with ESMTPS id ev10sm38490808wid.10.2012.04.25.10.12.32 (version=TLSv1/SSLv3 cipher=OTHER); Wed, 25 Apr 2012 10:12:32 -0700 (PDT) From: Mark Walters To: notmuch@notmuchmail.org Subject: [PATCH v2 1/2] emacs: add a filter option to show Date: Wed, 25 Apr 2012 18:12:33 +0100 Message-Id: <1335373954-4578-2-git-send-email-markwalters1009@gmail.com> X-Mailer: git-send-email 1.7.9.1 In-Reply-To: <1335373954-4578-1-git-send-email-markwalters1009@gmail.com> References: <1335373954-4578-1-git-send-email-markwalters1009@gmail.com> 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, 25 Apr 2012 17:12:36 -0000 Show the current thread with a different filter (i.e., open messages in the thread matching the new query). Bound to 'l' for "limit". Note that it is not the same as filter in search mode as it replaces the existing query rather than ANDing with it (but it does keep the thread-id part of the query). --- emacs/notmuch-show.el | 12 ++++++++++++ 1 files changed, 12 insertions(+), 0 deletions(-) diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index 30b26d1..4b4d663 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -42,6 +42,7 @@ (declare-function notmuch-search-next-thread "notmuch" nil) (declare-function notmuch-search-show-thread "notmuch" nil) (declare-function notmuch-update-tags "notmuch" (current-tags tag-changes)) +(declare-function notmuch-read-query "notmuch" (prompt)) (defcustom notmuch-message-headers '("Subject" "To" "Cc" "Date") "Headers that should be shown in a message, in this order. @@ -1157,6 +1158,7 @@ reset based on the original query." (define-key map "s" 'notmuch-search) (define-key map "m" 'notmuch-mua-new-mail) (define-key map "f" 'notmuch-show-forward-message) + (define-key map "l" 'notmuch-show-filter-thread) (define-key map "r" 'notmuch-show-reply-sender) (define-key map "R" 'notmuch-show-reply) (define-key map "|" 'notmuch-show-pipe-message) @@ -1399,6 +1401,16 @@ current thread." "Mark the current message as read." (notmuch-show-tag-message "-unread")) +(defun notmuch-show-filter-thread () + "Filter or LIMIT the current thread based on a new query string. + +Reshows the current thread with matches defined by the new query-string." + (interactive) + (setq notmuch-show-query-context (notmuch-read-query "Filter thread: ")) + (when (string= notmuch-show-query-context "") + (setq notmuch-show-query-context nil)) + (notmuch-show-refresh-view t)) + ;; Functions for getting attributes of several messages in the current ;; thread. -- 1.7.9.1