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 0F26A431FD7 for ; Thu, 26 Apr 2012 12:14:49 -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 aWUV9odf8EzZ for ; Thu, 26 Apr 2012 12:14:48 -0700 (PDT) Received: from mail-wg0-f45.google.com (mail-wg0-f45.google.com [74.125.82.45]) (using TLSv1 with cipher RC4-SHA (128/128 bits)) (No client certificate requested) by olra.theworths.org (Postfix) with ESMTPS id BBA0D431FB6 for ; Thu, 26 Apr 2012 12:14:47 -0700 (PDT) Received: by wgbdt14 with SMTP id dt14so1310020wgb.2 for ; Thu, 26 Apr 2012 12:14:46 -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=RJo7MnMrRNaFlqSCIkZ9CsJb9sECfTyqURxcovwpRvY=; b=xLXPRKSqTrRsH7NsEqPSbLsONYXeWUkO+uyYRSZpRrroF/4qoAkuiyfTJJQCZEOTt/ w8plpuXaTB3/TorpxDsnMp/3H5wMK/NTbtErfaZzsWTse4TTMhmb9mQwfiKwCThQDSmI dO6sY0RvieKmFokIrQedeMthySU4F5XaXm4xvjU3h090LN85Pyi+guVgPWFfz0w4P9Jg fFA+bEKpOH5qtmcmgmT9bw2rgWG/KZHHJOSoq3FZZm4Tj6ECiMkYUEGDWtjvMoy9y6Ie cisP7cdoTwiHxwsLA7DYe6/Ke9LKCyQy7tKDThkUEuHFJAW8yKfGr9+RSX94/juMNKWA BifQ== Received: by 10.216.131.154 with SMTP id m26mr4747055wei.91.1335467686532; Thu, 26 Apr 2012 12:14:46 -0700 (PDT) Received: from localhost (94-192-233-223.zone6.bethere.co.uk. [94.192.233.223]) by mx.google.com with ESMTPS id k6sm46648801wie.9.2012.04.26.12.14.45 (version=TLSv1/SSLv3 cipher=OTHER); Thu, 26 Apr 2012 12:14:45 -0700 (PDT) From: Mark Walters To: notmuch@notmuchmail.org Subject: [Patch v3 1/2] emacs: add a filter option to show Date: Thu, 26 Apr 2012 20:14:48 +0100 Message-Id: <1335467689-6513-2-git-send-email-markwalters1009@gmail.com> X-Mailer: git-send-email 1.7.9.1 In-Reply-To: <1335467689-6513-1-git-send-email-markwalters1009@gmail.com> References: <1335467689-6513-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: Thu, 26 Apr 2012 19:14:49 -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 | 10 ++++++++++ 1 files changed, 10 insertions(+), 0 deletions(-) diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index 30b26d1..492da72 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,14 @@ current thread." "Mark the current message as read." (notmuch-show-tag-message "-unread")) +(defun notmuch-show-filter-thread (query) + "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 (list (notmuch-read-query "Filter thread: "))) + (setq notmuch-show-query-context (if (string= query "") nil query)) + (notmuch-show-refresh-view t)) + ;; Functions for getting attributes of several messages in the current ;; thread. -- 1.7.9.1