notmuch-search-process-filter: add text properties for authors and subject to each...
authorDavid Bremner <bremner@unb.ca>
Sat, 5 Dec 2009 02:26:36 +0000 (22:26 -0400)
committerCarl Worth <cworth@cworth.org>
Thu, 10 Dec 2009 18:28:20 +0000 (10:28 -0800)
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.

notmuch.el

index 8103531181386ae0fa95fde08415fca3dd24f61d..1c3f1f4051e607ff2dbc2cf317f666918ba135b6 100644 (file)
@@ -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))))