server: re-introduce signal handler

This still needed to be ported from the old server code.
This commit is contained in:
Dirk-Jan C. Binnema
2020-02-04 01:04:28 +02:00
parent 029a4c245e
commit 3fc2a5f3f8
2 changed files with 33 additions and 5 deletions

View File

@ -277,9 +277,9 @@ Start the process if needed."
(when proc
(let ((delete-exited-processes t))
(mu4e~call-mu '(quit)))
;; try sending SIGINT (C-c) to process, so it can exit gracefully
;; try sending SIGINT (C-c) to process, so it can exit gracefully
(ignore-errors
(signal-process proc 'SIGINT))))
(signal-process proc 'SIGINT))))
(setq
mu4e~proc-process nil
mu4e~proc-buf nil))
@ -405,7 +405,6 @@ MY-ADDRESSES is a list of 'my' email addresses (see
:cleanup ,cleanup
:lazy-check ,lazy-check)))
(defun mu4e~proc-mkdir (path)
"Create a new maildir-directory at filesystem PATH."
;;(mu4e~proc-send-command "cmd:mkdir path:%s" (mu4e~escape path))
@ -469,7 +468,6 @@ Returns either (:update ... ) or (:error ) sexp, which are handled my
:rename ,(and maildir mu4e-change-filenames-when-moving)
:noview ,no-view))))
(defun mu4e~proc-ping (&optional queries)
"Sends a ping to the mu server, expecting a (:pong ...) in response.
QUERIES is a list of queries for the number of results with read/unread status
@ -513,6 +511,5 @@ result will be delivered to the function registered as
:images ,images
:decrypt ,decrypt)))
(provide 'mu4e-proc)
;;; mu4e-proc.el ends here