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

mu4e-server: fix some flycheck warnings

Browse Source
This commit is contained in:
Dirk-Jan C. Binnema
2024-10-06 10:43:30 +03:00
parent e36d1554de
commit 0da33b3d7f
1 changed files with 15 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
mu4e/mu4e-server.el
View File

@ -29,7 +29,7 @@
;;; Configuration
(defcustom mu4e-mu-home nil
"Location of an alternate mu home dir.
"Location of an alternate mu home directory.
If not set, use the defaults, based on the XDG Base Directory
Specification.
@ -257,15 +257,18 @@ removed."
(defun mu4e--server-plist-get (plist key)
"Like `plist-get' but load data from file if it is a string.
I.e. (mu4e--server-plist-get (:foo bar) :foo)
PLIST is a property-list, and KEY is the the key to search for.
E.g., (mu4e--server-plist-get (:foo bar) :foo)
=> bar
but
(mu4e--server-plist-get (:foo \"/tmp/data.eld\") :foo)
=> evaluates the contents of /tmp/data.eld
(and deletes the file afterward).
This for the few sexps we get from the mu server that support this
(headers, contacts, maildirs)."
This for the few sexps we get from the mu server that support
this -- headers, contacts, maildirs."
;; XXX: perhaps re-use the same buffer?
(let ((val (plist-get plist key)))
(if (stringp val)
@ -436,6 +439,7 @@ As per issue #2198."
,(when mu4e-mu-home (format "--muhome=%s" mu4e-mu-home)))))
(defun mu4e--version-check ()
"Verify that the versions for mu4e and mu are the same."
;; sanity-check 1
(let ((default-directory temporary-file-directory)) ;;ensure it's local.
(unless (and mu4e-mu-binary (file-executable-p mu4e-mu-binary))
@ -531,12 +535,12 @@ You cannot run the repl when mu4e is running (or vice-versa)."
((eq code 0)
(message nil)) ;; don't do anything
((eq code 11)
(error "schema mismatch; please re-init mu from command-line"))
(error "Schema mismatch; please re-init mu from command-line"))
((eq code 19)
(error "mu database is locked by another process"))
(t (error "mu server process ended with exit code %d" code))))
(error "Mu database is locked by another process"))
(t (error "Mu server process ended with exit code %d" code))))
(t
(error "something bad happened to the mu server process")))))
(error "Something bad happened to the mu server process")))))
(defun mu4e--server-call-mu (form)
"Call the mu server with some command FORM."
@ -693,7 +697,7 @@ read/unread status are returned in the pong-response."
(mu4e--server-call-mu `(queries :queries ,queries)))
(defun mu4e--server-remove (docid-or-path)
"Remove message with either DOCID or PATH.
"Remove message with either DOCID-OR-PATH.
The results are reported through either (:update ... )
or (:error) sexps."
(if (stringp docid-or-path)