alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* mm: some more updates (WIP)

Browse Source
This commit is contained in:
Dirk-Jan C. Binnema
2011-09-20 23:59:20 +03:00
parent 5866220781
commit 3d41a0fe3d
6 changed files with 305 additions and 312 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
toys/mm/mm-proc.el
View File

@ -207,7 +207,7 @@ updated as well, with all processed sexp data removed."
(setq mm/buf (concat mm/buf str)) ;; update our buffer
(let ((sexp (mm/proc-eat-sexp-from-buf)))
(while sexp
(mm/proc-log "%S" sexp)
(mm/proc-log "<- %S" sexp)
(cond
;; a header plist can be recognized by the existence of a :date field
((plist-get sexp :date)
@ -244,7 +244,10 @@ terminates."
(t (message (format "mu server process received signal %d" code)))))
((eq status 'exit)
(cond
((eq code 11) (message "Database is locked by another process"))
((eq code 11)
(message "Database is locked by another process"))
((eq code 19)
(message "Database is empty; try indexing some messages"))
(t (message (format "mu server process ended with exit code %d" code)))))
(t
(message "something bad happened to the mu server process")))))
@ -266,7 +269,7 @@ terminates."
(unless (mm/proc-is-running)
(mm/start-proc))
(let ((cmd (apply 'format frm args)))
(mm/proc-log cmd)
(mm/proc-log (concat "-> " cmd))
(process-send-string mm/mu-proc (concat cmd "\n"))))