* more changes to emacs frontend

This commit is contained in:
Dirk-Jan C. Binnema
2011-08-02 08:11:04 +03:00
parent 47073006d2
commit 8e83a1c952
4 changed files with 67 additions and 29 deletions

View File

@ -66,6 +66,7 @@ the mu find output")
(setq mu-buf (substring mu-buf (match-end 0)))
(setq eom (string-match mu-eom mu-buf)))))))
(defun mu-find-process-sentinel (proc msg)
"Check the mu-find process upon completion"
(let ((status (process-status proc))
@ -89,7 +90,12 @@ the mu find output")
(save-excursion
(goto-char (point-max))
(insert (mu-str text)))))))))
;; Note, the 'mu find --format=sexp' sexp is almost the same as the ones that
;; 'mu view --format=sexp' produces (see mu-get-message), with the difference
;; that former may give more than one result, and that mu-find output comes from
;; the database rather than file, and does _not_ contain the message body
(defun mu-find (expr)
"search in the mu database"
(interactive "s[mu] match expr: ")