diff options
author | Kan-Ru Chen <kanru@kanru.info> | 2009-12-01 14:13:51 +0800 |
---|---|---|
committer | Carl Worth <cworth@cworth.org> | 2010-02-05 11:10:13 -0800 |
commit | b0ccc88146590333eaf255e507f6e9c85598aa15 (patch) | |
tree | 70e81029b5162412c47f217495578ae8d3e4ac85 /notmuch.el | |
parent | a47bf6e7dcea5c681cc55c88584fed06c7252ed6 (diff) |
notmuch.el: Add keybinding to toggle display of message body and headers.
I really missed this feature. Added notmuch-show-toggle-current-body and
notmuch-show-toggle-current-header and bind them to 'b' and 'h'.
Signed-off-by: Kan-Ru Chen <kanru@kanru.info>
Diffstat (limited to 'notmuch.el')
-rw-r--r-- | notmuch.el | 22 |
1 files changed, 22 insertions, 0 deletions
@@ -67,6 +67,8 @@ (define-key map "w" 'notmuch-show-save-attachments) (define-key map "V" 'notmuch-show-view-raw-message) (define-key map "v" 'notmuch-show-view-all-mime-parts) + (define-key map "b" 'notmuch-show-toggle-current-body) + (define-key map "h" 'notmuch-show-toggle-current-header) (define-key map "-" 'notmuch-show-remove-tag) (define-key map "+" 'notmuch-show-add-tag) (define-key map "X" 'notmuch-show-mark-read-then-archive-then-exit) @@ -578,6 +580,26 @@ which this thread was originally shown." (force-window-update) (redisplay t)) +(defun notmuch-show-toggle-current-body () + "Toggle the current message body." + (interactive) + (save-excursion + (notmuch-show-move-to-current-message-summary-line) + (unless (button-at (point)) + (notmuch-show-next-button)) + (push-button)) + ) + +(defun notmuch-show-toggle-current-header () + (interactive) + (save-excursion + (notmuch-show-move-to-current-message-summary-line) + (next-line) + (unless (button-at (point)) + (notmuch-show-next-button)) + (push-button)) + ) + (define-button-type 'notmuch-button-invisibility-toggle-type 'action 'notmuch-toggle-invisible-action 'follow-link t |