notmuch.el: Remove some dead code.

This was left over from before the switch to using a filter for
processing the results of "notmuch search".

diff --git a/notmuch.el b/notmuch.el
index 551048adf03e6910428696582585c1ce13111316..0072c579208ef9c39b510601f482ac3a2cbda3fd 100644 (file)
--- a/notmuch.el
+++ b/notmuch.el
@@ -871,31 +871,6 @@ global search.
   "Return the thread for the current thread"
   (get-text-property (point) 'notmuch-search-thread-id))
 
   "Return the thread for the current thread"
   (get-text-property (point) 'notmuch-search-thread-id))
 

-(defun notmuch-search-markup-this-thread-id ()
-  (beginning-of-line)
-  (let ((beg (point)))
-    (if (re-search-forward "thread:[a-fA-F0-9]*" nil t)
-       (progn
-         (forward-char)
-         (overlay-put (make-overlay beg (point)) 'invisible 'notmuch-search)
-         (re-search-forward ".*\\[[0-9]*/[0-9]*\\] \\([^;]*\\)\\(;\\)")
-         (let* ((authors (buffer-substring (match-beginning 1) (match-end 1)))
-                (authors-length (length authors)))
-           ;; Drop the semi-colon
-           (replace-match "" t nil nil 2)
-           (if (<= authors-length notmuch-search-authors-width)
-               (replace-match (concat authors (make-string
-                                               (- notmuch-search-authors-width
-                                                  authors-length) ? )) t t nil 1)
-             (replace-match (concat (substring authors 0 (- notmuch-search-authors-width 3)) "...") t t nil 1)))))))
-
-(defun notmuch-search-markup-thread-ids ()
-  (save-excursion
-    (goto-char (point-min))
-    (while (not (eobp))
-      (notmuch-search-markup-this-thread-id)
-      (forward-line))))
-

 (defun notmuch-search-show-thread ()
   (interactive)
   (let ((thread-id (notmuch-search-find-thread-id)))
 (defun notmuch-search-show-thread ()
   (interactive)
   (let ((thread-id (notmuch-search-find-thread-id)))