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

notmuch.el: Move "show next thread" from magic-space-bar to archive-thread

Browse source 
If I explicitly hit the 'a' key before reading the whole thread, I
still want to advance to the next thread in my search.
This commit is contained in:
Carl Worth 2009-11-04 10:32:44 -08:00
parent 9a02b950a3
commit 3effd82ace
1 changed files with 14 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
notmuch.el
View file

@ -102,9 +102,13 @@
(notmuch-show-set-tags (delete tag tags)))))) (notmuch-show-set-tags (delete tag tags))))))
(defun notmuch-show-archive-thread () (defun notmuch-show-archive-thread ()
"Archive each message currrently shown by removing the \"inbox\" tag from each. "Archive each message in thread, and show next thread from search.
This command is safe from any race condition of new messages Archive each message currrently shown by removing the \"inbox\"
tag from each. Then kill this buffer and show the next thread
from the search from which this thread was originally shown.
Note: This command is safe from any race condition of new messages
being delivered to the same thread. It does not archive the being delivered to the same thread. It does not archive the
entire thread, but only the messages shown in the current entire thread, but only the messages shown in the current
buffer." buffer."
@ -116,7 +120,13 @@ buffer."
(if (not (eobp)) (if (not (eobp))
(forward-char)) (forward-char))
(if (not (re-search-forward notmuch-show-message-begin-regexp nil t)) (if (not (re-search-forward notmuch-show-message-begin-regexp nil t))
(goto-char (point-max)))))) (goto-char (point-max)))))
(let ((parent-buffer notmuch-show-parent-buffer))
(kill-this-buffer)
(if parent-buffer
(progn
(switch-to-buffer parent-buffer)
(notmuch-search-show-thread)))))
(defun notmuch-show-move-to-current-message-summary-line () (defun notmuch-show-move-to-current-message-summary-line ()
"Move to the beginning of the one-line summary of the current message. "Move to the beginning of the one-line summary of the current message.
@ -207,14 +217,7 @@ which this thread was originally shown."
(unread (member "unread" (notmuch-show-get-tags)))) (unread (member "unread" (notmuch-show-get-tags))))
(if (and (not unread) (if (and (not unread)
(equal next (point))) (equal next (point)))
(progn
(notmuch-show-archive-thread) (notmuch-show-archive-thread)
(let ((parent-buffer notmuch-show-parent-buffer))
(kill-this-buffer)
(if parent-buffer
(progn
(switch-to-buffer parent-buffer)
(notmuch-search-show-thread)))))
(if (< (notmuch-show-find-next-message) (window-end)) (if (< (notmuch-show-find-next-message) (window-end))
(notmuch-show-mark-read-then-next-message) (notmuch-show-mark-read-then-next-message)
(scroll-up nil))))) (scroll-up nil)))))