[PATCH v2 5/7] emacs: rename `notmuch-show-open-or-close-all' to `notmuch-show-toggle-visibility-messages'
Pieter Praet
pieter at praet.org
Wed Feb 22 10:43:32 PST 2012
* emacs/notmuch-show.el
(notmuch-show-open-or-close-all):
Rename to `notmuch-show-toggle-visibility-messages'.
(notmuch-show-mode-map):
Update "M-RET" binding wrt renamed `notmuch-show-open-or-close-all'.
* test/emacs:
Update subtests wrt renamed `notmuch-show-open-or-close-all':
- "notmuch-show: collapse all messages in thread"
- "notmuch-show: uncollapse all messages in thread"
---
emacs/notmuch-show.el | 4 ++--
test/emacs | 4 ++--
2 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el
index 9b879c7..e4d1f9c 100644
--- a/emacs/notmuch-show.el
+++ b/emacs/notmuch-show.el
@@ -1182,8 +1182,8 @@ (defvar notmuch-show-mode-map
(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-open-or-close-all)
(define-key map (kbd "RET") 'notmuch-show-toggle-visibility-message)
+ (define-key map (kbd "M-RET") 'notmuch-show-toggle-visibility-messages)
(define-key map "#" 'notmuch-show-print-message)
(define-key map "!" 'notmuch-show-toggle-elide-non-matching)
(define-key map "$" 'notmuch-show-toggle-process-crypto)
@@ -1668,7 +1668,7 @@ (defun notmuch-show-toggle-visibility-message ()
(not (plist-get props :message-visible))))
(force-window-update))
-(defun notmuch-show-open-or-close-all ()
+(defun notmuch-show-toggle-visibility-messages ()
"Set the visibility all of the messages in the current thread.
By default make all of the messages visible. With a prefix
argument, hide all of the messages."
diff --git a/test/emacs b/test/emacs
index 6f14895..29fdec0 100755
--- a/test/emacs
+++ b/test/emacs
@@ -411,13 +411,13 @@ test_expect_equal_file OUTPUT $EXPECTED/notmuch-show-message-with-headers-hidden
test_begin_subtest "notmuch-show: collapse all messages in thread"
test_emacs '(notmuch-show "id:f35dbb950911171435ieecd458o853c873e35f4be95 at mail.gmail.com")
(let ((current-prefix-arg t))
- (notmuch-show-open-or-close-all)
+ (notmuch-show-toggle-visibility-messages)
(test-visible-output))'
test_expect_equal_file OUTPUT $EXPECTED/notmuch-show-thread-with-all-messages-collapsed
test_begin_subtest "notmuch-show: uncollapse all messages in thread"
test_emacs '(notmuch-show "id:f35dbb950911171435ieecd458o853c873e35f4be95 at mail.gmail.com")
- (notmuch-show-open-or-close-all)
+ (notmuch-show-toggle-visibility-messages)
(test-visible-output)'
test_expect_equal_file OUTPUT $EXPECTED/notmuch-show-thread-with-all-messages-uncollapsed
--
1.7.8.1
More information about the notmuch
mailing list