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: Mark messages read when the (n)ext keybinding is pressed

Browse source 
Of course, technically, we're removing the "unread" tag, but you
get the idea. :-)
This commit is contained in:
Carl Worth 2009-11-03 11:42:04 -08:00
parent 3998f3a61c
commit e96e34c3f1
2 changed files with 41 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
TODO
View file

@ -2,11 +2,6 @@ Emacs interface (notmuch.el)
----------------------------
Add support to compose a reply to the current messaage.
Selectively hide bodies in notmuch-show mode. (for example, for read
messages).
Remove "unread" tag from messages as they are read.
notmuch command-line tool
-------------------------
Make "notmuch setup" not index all messages, but only what it can do

45
notmuch.el
View file

@ -64,13 +64,38 @@
(defvar notmuch-show-part-end-regexp " part}")
(defvar notmuch-show-marker-regexp " \\(message\\|header\\|body\\|attachment\\|part\\)[{}].*$")
(defvar notmuch-show-id-regexp "ID: \\([^ ]*\\)")
(defun notmuch-show-get-message-id ()
(save-excursion
(beginning-of-line)
(if (not (looking-at notmuch-show-message-begin-regexp))
(re-search-backward notmuch-show-message-begin-regexp))
(re-search-forward notmuch-show-id-regexp)
(buffer-substring (match-beginning 1) (match-end 1))))
(defun notmuch-show-next-message ()
"Advance point to the beginning of the next message in the buffer."
"Advance point to the beginning of the next message in the buffer.
Before moving, also remove the \"unread\" tag from the current message."
(interactive)
(notmuch-call-notmuch-process "tag" "-unread" (concat "id:" (notmuch-show-get-message-id)))
; First, ensure we get off the current message marker
(if (not (eobp))
(forward-char))
(re-search-forward notmuch-show-message-begin-regexp nil t)
; This dance might look pointless, but it's important. I originally
; just had (beginning-of-line) here which looked right on the
; display but actually put point all the way back to the first
; character of the first invisible line. That is, it put point into
; the closing markers of the previous message rather than at the
; beginning of the current message. And that in turn meant that
; looking up the current message-ID would actually return the
; previous message ID.
;
; So this dance ensures that we're actually on the current message
; when it looks like we are.
(end-of-visible-line)
(beginning-of-line)
(recenter 0))
@ -81,6 +106,18 @@
(if (not (bobp))
(previous-line))
(re-search-backward notmuch-show-message-begin-regexp nil t)
; This dance might look pointless, but it's important. I originally
; just had (beginning-of-line) here which looked right on the
; display but actually put point all the way back to the first
; character of the first invisible line. That is, it put point into
; the closing markers of the previous message rather than at the
; beginning of the current message. And that in turn meant that
; looking up the current message-ID would actually return the
; previous message ID.
;
; So this dance ensures that we're actually on the current message
; when it looks like we are.
(end-of-visible-line)
(beginning-of-line)
(recenter 0))
@ -304,7 +341,7 @@
(interactive)
(notmuch-show (notmuch-search-find-thread-id)))
(defun notmuch-search-call-notmuch-process (&rest args)
(defun notmuch-call-notmuch-process (&rest args)
(let ((error-buffer (get-buffer-create "*Notmuch errors*")))
(with-current-buffer error-buffer
(erase-buffer))
@ -341,12 +378,12 @@
(defun notmuch-search-add-tag (tag)
(interactive "sTag to add: ")
(notmuch-search-call-notmuch-process "tag" (concat "+" tag) (concat "thread:" (notmuch-search-find-thread-id)))
(notmuch-call-notmuch-process "tag" (concat "+" tag) (concat "thread:" (notmuch-search-find-thread-id)))
(notmuch-search-set-tags (delete-dups (sort (cons tag (notmuch-search-get-tags)) 'string<))))
(defun notmuch-search-remove-tag (tag)
(interactive "sTag to remove: ")
(notmuch-search-call-notmuch-process "tag" (concat "-" tag) (concat "thread:" (notmuch-search-find-thread-id)))
(notmuch-call-notmuch-process "tag" (concat "-" tag) (concat "thread:" (notmuch-search-find-thread-id)))
(notmuch-search-set-tags (delete tag (notmuch-search-get-tags))))
(defun notmuch-search-archive-thread ()