notmuch.el: Remove some dead code.

[notmuch] / notmuch.el

diff --git a/notmuch.el b/notmuch.el
index 9a2095458878be35211e48c7e0a94567b0342bfc..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)))


@@ -1033,7 +1008,7 @@ This function advances point to the next line when finished."
        (let ((proc (start-process-shell-command
                     "notmuch-search" buffer notmuch-command "search"
                     (if oldest-first "--sort=oldest-first" "--sort=newest-first")
        (let ((proc (start-process-shell-command
                     "notmuch-search" buffer notmuch-command "search"
                     (if oldest-first "--sort=oldest-first" "--sort=newest-first")

-                    query)))
+                    (shell-quote-argument query))))

          (set-process-sentinel proc 'notmuch-search-process-sentinel)
          (set-process-filter proc 'notmuch-search-process-filter))))
     (run-hooks 'notmuch-search-hook)))
          (set-process-sentinel proc 'notmuch-search-process-sentinel)
          (set-process-filter proc 'notmuch-search-process-filter))))
     (run-hooks 'notmuch-search-hook)))