aboutsummaryrefslogtreecommitdiffhomepage
path: root/notmuch.el
diff options
context:
space:
mode:
authorGravatar Carl Worth <cworth@cworth.org>2009-11-25 09:18:39 -0800
committerGravatar Carl Worth <cworth@cworth.org>2009-11-25 09:18:39 -0800
commit03ea266bc29094aabd5e4e2aa98e5d74a7c6dea1 (patch)
treed2d13c0ba0105339d3230860727501aee2784b93 /notmuch.el
parentadef90791867001f859d3b3fdcb46d265148cd11 (diff)
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".
Diffstat (limited to 'notmuch.el')
-rw-r--r--notmuch.el25
1 files changed, 0 insertions, 25 deletions
diff --git a/notmuch.el b/notmuch.el
index 551048ad..0072c579 100644
--- 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))
-(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)))