debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-21 18:38:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: make show view a/A/x/X key bindings more consistent

Browse source 
Modify the show view key bindings as follows to make them more
consistent:

'a' = Archive current message, then move to next message, or show next
thread from search if at the last message in thread.

'A' = Archive each message in thread, then show next thread from
search.

'x' = Archive current message, then move to next message, or exit back
to search results if at the last message in thread.

'X' = Archive each message in thread, then exit back to search
results.

The changes make the key bindings more consistent in two ways:
1) 'a'/'A' both advance to the next thread like 'a' used to.
2) 'x' operates on messages and 'X' on threads like 'a'/'A'.
This commit is contained in:
Jani Nikula 2012-01-31 19:29:06 +02:00 committed by David Bremner
parent 61fa5c0bb8
commit d2ef4edc54
1 changed files with 22 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
emacs/notmuch-show.el
View file

@ -1087,9 +1087,10 @@ thread id. If a prefix is given, crypto processing is toggled."
(define-key map "*" 'notmuch-show-tag-all)
(define-key map "-" 'notmuch-show-remove-tag)
(define-key map "+" 'notmuch-show-add-tag)
(define-key map "x" 'notmuch-show-archive-thread-then-exit)
(define-key map "a" 'notmuch-show-archive-message-then-next)
(define-key map "X" 'notmuch-show-archive-thread-then-exit)
(define-key map "x" 'notmuch-show-archive-message-then-next-or-exit)
(define-key map "A" 'notmuch-show-archive-thread-then-next)
(define-key map "a" 'notmuch-show-archive-message-then-next-or-next-thread)
(define-key map "N" 'notmuch-show-next-message)
(define-key map "P" 'notmuch-show-previous-message)
(define-key map "n" 'notmuch-show-next-open-message)
@ -1452,7 +1453,8 @@ thread, navigate to the next thread in the parent search buffer."
If a prefix argument is given and this is the last open message
in the thread, navigate to the next thread in the parent search
buffer."
buffer. Return t if there was a next open message in the thread
to show, nil otherwise."
(interactive "P")
(let (r)
(while (and (setq r (notmuch-show-goto-message-next))
@ -1463,7 +1465,8 @@ buffer."
(notmuch-show-message-adjust))
(if pop-at-end
(notmuch-show-next-thread)
(goto-char (point-max))))))
(goto-char (point-max))))
r))
(defun notmuch-show-previous-open-message ()
"Show the previous open message."
@ -1671,12 +1674,25 @@ removed)."
(let ((op (if unarchive "+" "-")))
(notmuch-show-tag-message (concat op "inbox"))))
(defun notmuch-show-archive-message-then-next ()
"Archive the current message, then show the next open message in the current thread."
(defun notmuch-show-archive-message-then-next-or-exit ()
"Archive the current message, then show the next open message in the current thread.
If at the last open message in the current thread, then exit back
to search results."
(interactive)
(notmuch-show-archive-message)
(notmuch-show-next-open-message t))
(defun notmuch-show-archive-message-then-next-or-next-thread ()
"Archive the current message, then show the next open message in the current thread.
If at the last open message in the current thread, then show next
thread from search."
(interactive)
(notmuch-show-archive-message)
(unless (notmuch-show-next-open-message)
(notmuch-show-next-thread t)))
(defun notmuch-show-stash-cc ()
"Copy CC field of current message to kill-ring."
(interactive)