From a5dccffcdfa3aeb1908832bf467f90db82b7f82c Mon Sep 17 00:00:00 2001 From: "Dirk-Jan C. Binnema" Date: Mon, 27 Apr 2020 20:51:09 +0300 Subject: [PATCH] mu4e-proc: ensure some booleans are nil/t Some are described as 'non-nil', but the backend only accepts symbols, not e.g. a literal '1'. --- mu4e/mu4e-proc.el | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/mu4e/mu4e-proc.el b/mu4e/mu4e-proc.el index 16bb17fb..76bb381b 100644 --- a/mu4e/mu4e-proc.el +++ b/mu4e/mu4e-proc.el @@ -1,6 +1,6 @@ ;;; mu4e-proc.el -- part of mu4e, the mu mail user agent -*- lexical-binding: t -*- -;; Copyright (C) 2011-2019 Dirk-Jan C. Binnema +;; Copyright (C) 2011-2020 Dirk-Jan C. Binnema ;; Author: Dirk-Jan C. Binnema ;; Maintainer: Dirk-Jan C. Binnema @@ -330,7 +330,7 @@ The result is delivered to the function registered as `mu4e-compose-func'." (mu4e~call-mu `(compose :type ,type - :decrypt ,decrypt + :decrypt ,(if decrypt t nil) :docid ,docid))) (defun mu4e~proc-contacts (personal after tstamp) @@ -340,7 +340,7 @@ response. If PERSONAL is non-nil, only get personal contacts, if AFTER is non-nil, get only contacts seen AFTER (the time_t value)." (mu4e~call-mu `(contacts - :personal ,personal + :personal ,(if personal t nil) :after ,(or after nil) :tstamp ,(or tstamp nil)))) @@ -357,7 +357,7 @@ to a temporary file, then respond with :action ,action :docid ,docid :index ,index - :decrypt ,decrypt + :decrypt ,(if decrypt t nil) :path ,path :what ,what :param ,param))) @@ -441,7 +441,7 @@ Returns either (:update ... ) or (:error ) sexp, which are handled my :msgid ,(if (stringp docid-or-msgid) docid-or-msgid nil) :flags ,(or flags nil) :maildir ,(or maildir nil) - :rename ,(and maildir mu4e-change-filenames-when-moving) + :rename ,(if mu4e-change-filenames-when-moving t nil) :no-view ,(if no-view t nil)))) (defun mu4e~proc-ping (&optional queries) @@ -473,9 +473,9 @@ registered as `mu4e-view-func'." (mu4e~call-mu `(view :docid ,(if (stringp docid-or-msgid) nil docid-or-msgid) :msgid ,(if (stringp docid-or-msgid) docid-or-msgid nil) - :extract-images ,images - :decrypt ,decrypt - :verify ,verify))) + :extract-images ,(if images t nil) + :decrypt ,(if decrypt t nil) + :verify ,(if verify t nil)))) (defun mu4e~proc-view-path (path &optional images decrypt) "View message at PATH.. @@ -485,9 +485,9 @@ result will be delivered to the function registered as `mu4e-view-func'. Optionally DECRYPT and VERIFY." (mu4e~call-mu `(view :path ,path - :extract-images ,images - :decrypt ,decrypt - :verify ,verify))) + :extract-images ,(if images t nil) + :decrypt ,(if decrypt t nil) + :verify ,(if verify t nil)))) ;;; _ (provide 'mu4e-proc)