From: David Bremner Date: Sat, 5 Dec 2009 02:26:36 +0000 (-0400) Subject: notmuch-search-process-filter: add text properties for authors and subject to each... X-Git-Tag: 0.1~214 X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=commitdiff_plain;h=764e686f8fb685f7da2e797db39cb0184827e0d8 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. --- diff --git a/notmuch.el b/notmuch.el index 81035311..1c3f1f40 100644 --- a/notmuch.el +++ b/notmuch.el @@ -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))))