From 02188ecbb5e727c6cea1fe513ed4ad18a5c8c465 Mon Sep 17 00:00:00 2001 From: "Dirk-Jan C. Binnema" Date: Wed, 16 Nov 2022 23:28:26 +0200 Subject: [PATCH] mu4e: improve server comms with mu --- mu4e/mu4e-server.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/mu4e/mu4e-server.el b/mu4e/mu4e-server.el index cc1d3a94..aeb544f6 100644 --- a/mu4e/mu4e-server.el +++ b/mu4e/mu4e-server.el @@ -363,10 +363,15 @@ As per issue #2198." ;; kill old/stale servers, if any. (mu4e--kill-stale) (let* ((process-connection-type nil) ;; use a pipe - (args (when mu4e-mu-home `(,(format"--muhome=%s" mu4e-mu-home)))) - (args (if mu4e-mu-debug (cons "--debug" args) args)) - (args (cons "server" args))) + (args + ;; [--debug] server [--muhome=..] + (seq-filter (lambda (arg) arg) ;; filter out nil + `(,(when mu4e-mu-debug "--debug") + "server" + ,(when mu4e-mu-home (format "--muhome=%s" mu4e-mu-home)))))) (setq mu4e--server-buf "") + (mu4e-log 'misc "* invoking '%s' with parameters %s" mu4e-mu-binary + (mapconcat (lambda (arg) (format "'%s'" arg)) args " ")) (setq mu4e--server-process (apply 'start-process mu4e--server-name mu4e--server-name mu4e-mu-binary args)) @@ -401,6 +406,7 @@ As per issue #2198." (defun mu4e--server-sentinel (proc _msg) "Function called when the server process PROC terminates with MSG." (let ((status (process-status proc)) (code (process-exit-status proc))) + (mu4e-log 'misc "* famous last words from server: '%s'" mu4e--server-buf) (setq mu4e--server-process nil) (setq mu4e--server-buf "") ;; clear any half-received sexps (cond