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

notmuch.el: Hide thread IDs in notmuch-search mode.

Browse source 
One more baby step toward something that's pleasant to use.
This commit is contained in:
Carl Worth 2009-11-02 16:02:32 -08:00
parent d4c4318fb9
commit ab2d904e06
2 changed files with 23 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
TODO
View file

@ -1,7 +1,5 @@
Add support to format a reply buffer for a particular message.
Hide thread IDs in notmuch-search mode in notmuch.el.
Selectively hide headers and bodies in notmuch-show mode in
notmuch.el, (for example, for read messages).

23
notmuch.el
View file

@ -95,6 +95,28 @@
(re-search-forward "[a-fA-F0-9]*")
(filter-buffer-substring beg (point)))))
(defun notmuch-search-markup-this-thread-id ()
(beginning-of-line)
(let ((beg (point)))
(re-search-forward "[a-fA-F0-9]*")
(forward-char)
(overlay-put (make-overlay beg (point)) 'invisible 'notmuch-search)))
(defun notmuch-search-markup-thread-ids ()
(save-excursion
(beginning-of-buffer)
(while (not (eobp))
(notmuch-search-markup-this-thread-id)
(next-line))))
(defun notmuch-search-hide-thread-ids ()
(interactive)
(add-to-invisibility-spec 'notmuch-search))
(defun notmuch-search-show-thread-ids ()
(interactive)
(remove-from-invisibility-spec 'notmuch-search))
(defun notmuch-search-show-thread ()
(interactive)
(notmuch-show (notmuch-search-find-thread-id)))
@ -164,6 +186,7 @@
(save-excursion
(call-process "notmuch" nil t nil "search" query)
)
(notmuch-search-markup-thread-ids)
)))
(defun notmuch ()