From 03ea266bc29094aabd5e4e2aa98e5d74a7c6dea1 Mon Sep 17 00:00:00 2001 From: Carl Worth Date: Wed, 25 Nov 2009 09:18:39 -0800 Subject: [PATCH] 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". --- notmuch.el | 25 ------------------------- 1 file changed, 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)))