From: Tomi Ollila <tomi.ollila@iki.fi>
To: Mark Walters <markwalters1009@gmail.com>, notmuch@notmuchmail.org
Subject: Re: [PATCH v2 1/2] emacs: add a filter option to show
Date: Thu, 26 Apr 2012 21:21:28 +0300 [thread overview]
Message-ID: <m27gx2qrpz.fsf@guru.guru-group.fi> (raw)
In-Reply-To: <1335373954-4578-2-git-send-email-markwalters1009@gmail.com>
On Wed, Apr 25 2012, Mark Walters <markwalters1009@gmail.com> wrote:
> 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).
> ---
LGTM -- just one question -- to be analogous with 'notmuch-search-filter'
'notmuch-show-filter-thread' could look something like:
(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))
?
Tomi
> 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
>
> _______________________________________________
> notmuch mailing list
> notmuch@notmuchmail.org
> http://notmuchmail.org/mailman/listinfo/notmuch
next prev parent reply other threads:[~2012-04-26 18:21 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-04-25 17:12 [PATCH v2 0/2] Add filter to emacs show mode Mark Walters
2012-04-25 17:12 ` [PATCH v2 1/2] emacs: add a filter option to show Mark Walters
2012-04-26 18:21 ` Tomi Ollila [this message]
2012-04-26 19:10 ` Mark Walters
2012-04-25 17:12 ` [PATCH v2 2/2] emacs: Bind filter in search to 'l' Mark Walters
2012-04-26 18:21 ` Tomi Ollila
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://notmuchmail.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=m27gx2qrpz.fsf@guru.guru-group.fi \
--to=tomi.ollila@iki.fi \
--cc=markwalters1009@gmail.com \
--cc=notmuch@notmuchmail.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://yhetil.org/notmuch.git/
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).