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-search-process-filter: add text properties for authors and subject to each line

Browse source 
Add functions notmuch-search-find-authors and notmuch-find-subject to
match notmuch-find-thread-id.  These functions are just a wrapper
around get-text-property, but in principle that could change.
This commit is contained in:
David Bremner 2009-12-04 22:26:36 -04:00 committed by Carl Worth
parent 6f1173c0e4
commit 764e686f8f
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
notmuch.el
View file

@ -1110,6 +1110,14 @@ Complete list of currently available key bindings:
"Return the thread for the current thread" "Return the thread for the current thread"
(get-text-property (point) 'notmuch-search-thread-id)) (get-text-property (point) 'notmuch-search-thread-id))
(defun notmuch-search-find-authors ()
"Return the authors for the current thread"
(get-text-property (point) 'notmuch-search-authors))
(defun notmuch-search-find-subject ()
"Return the subject for the current thread"
(get-text-property (point) 'notmuch-search-subject))
(defun notmuch-search-show-thread () (defun notmuch-search-show-thread ()
"Display the currently selected thread." "Display the currently selected thread."
(interactive) (interactive)
@ -1234,7 +1242,9 @@ This function advances the next thread when finished."
(goto-char (point-max)) (goto-char (point-max))
(let ((beg (point-marker))) (let ((beg (point-marker)))
(insert (format "%s %-7s %-40s %s (%s)\n" date count authors subject tags)) (insert (format "%s %-7s %-40s %s (%s)\n" date count authors subject tags))
(put-text-property beg (point-marker) 'notmuch-search-thread-id thread-id)) (put-text-property beg (point-marker) 'notmuch-search-thread-id thread-id)
(put-text-property beg (point-marker) 'notmuch-search-authors authors)
(put-text-property beg (point-marker) 'notmuch-search-subject subject))
(set 'line (match-end 0))) (set 'line (match-end 0)))
(set 'more nil)))))) (set 'more nil))))))
(delete-process proc)))) (delete-process proc))))