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

notmuch.el: Make the magic spacebar archive a thread in the end.

Browse source 
Next all it needs to do is kill the buffer and show the next thread.
This commit is contained in:
Carl Worth 2009-11-04 09:21:09 -08:00
parent aab9b5cf47
commit 278ae86f64
1 changed files with 16 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
notmuch.el
View file

@ -39,7 +39,7 @@
(define-key map "x" 'kill-this-buffer)
(define-key map "+" 'notmuch-show-add-tag)
(define-key map "-" 'notmuch-show-remove-tag)
(define-key map " " 'notmuch-show-advance-marking-read)
(define-key map " " 'notmuch-show-advance-marking-read-and-archiving)
map)
"Keymap for \"notmuch show\" buffers.")
(fset 'notmuch-show-mode-map notmuch-show-mode-map)
@ -182,8 +182,8 @@ simply move to the beginning of the current message."
(notmuch-show-remove-tag "unread"))
(notmuch-show-next-message))
(defun notmuch-show-advance-marking-read ()
"Advance through buffer, marking messages as read.
(defun notmuch-show-advance-marking-read-and-archiving ()
"Advance through buffer, marking read and archiving.
This command is intended to be one of the simplest ways to
process a thread of email. It does the following:
@ -193,11 +193,20 @@ scroll by a near screenful to read more of the message.
Otherwise, (the end of the current message is already within the
current window), remove the \"unread\" tag from the current
message and advance to the next message."
message and advance to the next message.
Finally, if there is no further message to advance to, and this
last message is already read, then archive the entire current
thread, (remove the \"inbox\" tag from each message)."
(interactive)
(if (< (notmuch-show-find-next-message) (window-end))
(notmuch-show-mark-read-then-next-message)
(scroll-up nil)))
(let ((next (notmuch-show-find-next-message))
(unread (member "unread" (notmuch-show-get-tags))))
(if (and (not unread)
(equal next (point)))
(notmuch-show-archive-thread)
(if (< (notmuch-show-find-next-message) (window-end))
(notmuch-show-mark-read-then-next-message)
(scroll-up nil)))))
(defun notmuch-show-markup-citations-region (beg end)
(goto-char beg)