debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2025-02-17 23:53:15 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

notmuch.el: Remove some dead code.

Browse source 
This was left over from before the switch to using a filter for
processing the results of "notmuch search".
This commit is contained in:
Carl Worth 2009-11-25 09:18:39 -08:00
parent adef907918
commit 03ea266bc2
1 changed files with 0 additions and 25 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
notmuch.el
View file

@ -871,31 +871,6 @@ global search.
"Return the thread for the current thread" "Return the thread for the current thread"
(get-text-property (point) 'notmuch-search-thread-id)) (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 () (defun notmuch-search-show-thread ()
(interactive) (interactive)
(let ((thread-id (notmuch-search-find-thread-id))) (let ((thread-id (notmuch-search-find-thread-id)))