From e6bc99f31ffc644fde059ab6fb31b3289c13c8f1 Mon Sep 17 00:00:00 2001 From: David Edmondson Date: Thu, 22 Apr 2010 09:24:03 +0100 Subject: [PATCH] emacs/notmuch-show.el: Add `notmuch-show-toggle-all' bound to M-RET `notmuch-show-toggle-all' changes the visibility all of the messages in the current thread. By default it makes all of the messages visible. With a prefix argument, it makes them all not visible. --- emacs/notmuch-show.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index 55bab453..95874bb2 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -526,6 +526,7 @@ function is used. " (define-key map "p" 'notmuch-show-previous-open-message) (define-key map (kbd "DEL") 'notmuch-show-rewind) (define-key map " " 'notmuch-show-advance-and-archive) + (define-key map (kbd "M-RET") 'notmuch-show-toggle-all) (define-key map (kbd "RET") 'notmuch-show-toggle-message) map) "Keymap for \"notmuch show\" buffers.") @@ -906,6 +907,18 @@ to stdout or stderr will appear in the *Messages* buffer." (not (plist-get props :message-visible)))) (force-window-update)) +(defun notmuch-show-toggle-all () + "Change the visibility all of the messages in the current +thread. By default make all of the messages visible. With a +prefix argument, make them all not visible." + (interactive) + (save-excursion + (goto-char (point-min)) + (loop do (notmuch-show-message-visible (notmuch-show-get-message-properties) + (not current-prefix-arg)) + until (not (notmuch-show-goto-message-next)))) + (force-window-update)) + (defun notmuch-show-next-button () "Advance point to the next button in the buffer." (interactive) -- 2.26.2