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

mu4e: do extra sanity check for mu version

Browse Source 
One very common question / github issue. Hopefully this avoids some.
This commit is contained in:
Dirk-Jan C. Binnema
2020-10-17 10:14:37 +03:00
parent 5e069d9a6f
commit 5379ab0c4b
1 changed files with 14 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
mu4e/mu4e-proc.el
View File

@ -236,11 +236,22 @@ backslashes and double-quotes."
(defun mu4e~proc-start () (defun mu4e~proc-start ()
"Start the mu server process." "Start the mu server process."
;; sanity-check 1
(unless (and mu4e-mu-binary (file-executable-p mu4e-mu-binary)) (unless (and mu4e-mu-binary (file-executable-p mu4e-mu-binary))
(mu4e-error (mu4e-error
(format "Cannot find mu, please set `mu4e-mu-binary' to the mu executable path"))
"`mu4e-mu-binary' (%S) not found; please set to the mu executable path"
mu4e-mu-binary))) ;; sanity-check 2
(let ((version (shell-command-to-string
(format "%s --version | head -1 | sed 's/.*version //' | tr -d '\n'"
mu4e-mu-binary))))
(unless (string= version mu4e-mu-version)
(mu4e-error
(concat
"Found mu version %s, but mu4e needs version %s; please set `mu4e-mu-binary' "
"accordingly") version mu4e-mu-version)))
(let* ((process-connection-type nil) ;; use a pipe (let* ((process-connection-type nil) ;; use a pipe
(args (when mu4e-mu-home `(,(format"--muhome=%s" mu4e-mu-home)))) (args (when mu4e-mu-home `(,(format"--muhome=%s" mu4e-mu-home))))
(args (if mu4e-mu-debug (cons "--debug" args) args)) (args (if mu4e-mu-debug (cons "--debug" args) args))