* mu4e-proc.el: add some mu4e-prefix stuff
This commit is contained in:
@ -244,7 +244,7 @@ The server output is as follows:
|
|||||||
(plist-get sexp :error)
|
(plist-get sexp :error)
|
||||||
(plist-get sexp :message)))
|
(plist-get sexp :message)))
|
||||||
|
|
||||||
(t (message "Unexpected data from server [%S]" sexp)))
|
(t (mu4e-message "Unexpected data from server [%S]" sexp)))
|
||||||
|
|
||||||
(setq sexp (mu4e~proc-eat-sexp-from-buf)))))
|
(setq sexp (mu4e~proc-eat-sexp-from-buf)))))
|
||||||
|
|
||||||
@ -263,18 +263,18 @@ terminates."
|
|||||||
(cond
|
(cond
|
||||||
((eq code 9) (message nil))
|
((eq code 9) (message nil))
|
||||||
;;(message "the mu server process has been stopped"))
|
;;(message "the mu server process has been stopped"))
|
||||||
(t (message (format "mu server process received signal %d" code)))))
|
(t (mu4e-message (format "mu server process received signal %d" code)))))
|
||||||
((eq status 'exit)
|
((eq status 'exit)
|
||||||
(cond
|
(cond
|
||||||
((eq code 0)
|
((eq code 0)
|
||||||
(message nil)) ;; don't do anything
|
(message nil)) ;; don't do anything
|
||||||
((eq code 11)
|
((eq code 11)
|
||||||
(message "Database is locked by another process"))
|
(mu4e-message "Database is locked by another process"))
|
||||||
((eq code 19)
|
((eq code 19)
|
||||||
(message "Database is empty or non-existent; try indexing some messages"))
|
(mu4e-message "Database empty or non-existent; try indexing some messages"))
|
||||||
(t (message (format "mu server process ended with exit code %d" code)))))
|
(t (mu4e-message "mu server process ended with exit code %d" code))))
|
||||||
(t
|
(t
|
||||||
(message "Something bad happened to the mu server process")))))
|
(mu4e-message "Something bad happened to the mu server process")))))
|
||||||
|
|
||||||
(defun mu4e~proc-send-command (frm &rest args)
|
(defun mu4e~proc-send-command (frm &rest args)
|
||||||
"Send as command to the mu server process; start the process if needed."
|
"Send as command to the mu server process; start the process if needed."
|
||||||
|
|||||||
Reference in New Issue
Block a user