diff options
author | David Bremner <bremner@unb.ca> | 2009-12-04 22:26:36 -0400 |
---|---|---|
committer | Carl Worth <cworth@cworth.org> | 2009-12-10 10:28:20 -0800 |
commit | 764e686f8fb685f7da2e797db39cb0184827e0d8 (patch) | |
tree | 19a634e2c410c97c6b58ec4271cd236dc1b7c1ee /notmuch.el | |
parent | 6f1173c0e46526cc70592659ab6c1c4a740d3e64 (diff) |
notmuch-search-process-filter: add text properties for authors and subject to each line
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.
Diffstat (limited to 'notmuch.el')
-rw-r--r-- | notmuch.el | 12 |
1 files changed, 11 insertions, 1 deletions
@@ -1110,6 +1110,14 @@ Complete list of currently available key bindings: "Return the thread for the current thread" (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 () "Display the currently selected thread." (interactive) @@ -1234,7 +1242,9 @@ This function advances the next thread when finished." (goto-char (point-max)) (let ((beg (point-marker))) (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 'more nil)))))) (delete-process proc)))) |