From 7606ca51c14d705e7d25f93d5dff263ba9bac9c8 Mon Sep 17 00:00:00 2001 From: "Dirk-Jan C. Binnema" Date: Sat, 25 Jul 2020 17:02:01 +0300 Subject: [PATCH] mu4e-proc: ensure mu4e~call-mu does not truncate For non-nil settings of print-length, print-level. (and remove an unused defun). --- mu4e/mu4e-proc.el | 13 ++----------- 1 file changed, 2 insertions(+), 11 deletions(-) diff --git a/mu4e/mu4e-proc.el b/mu4e/mu4e-proc.el index 87fc9f8e..bee6c71a 100644 --- a/mu4e/mu4e-proc.el +++ b/mu4e/mu4e-proc.el @@ -234,16 +234,6 @@ backslashes and double-quotes." (let ((esc (replace-regexp-in-string "\\\\" "\\\\\\\\" str))) (format "\"%s\"" (replace-regexp-in-string "\"" "\\\\\"" esc)))) - -(defun mu4e~proc-send-command (frm &rest args) - "Send string from FRM and ARGS to the mu server process. -Start the process if needed." - (unless (mu4e~proc-running-p) - (mu4e~proc-start)) - (let ((cmd (apply 'format frm args))) - (mu4e-log 'to-server "%S" cmd) - (process-send-string mu4e~proc-process (concat cmd "\n")))) - (defun mu4e~proc-start () "Start the mu server process." (unless (and mu4e-mu-binary (file-executable-p mu4e-mu-binary)) @@ -307,7 +297,8 @@ Start the process if needed." (defun mu4e~call-mu (form) "Call 'mu' with some command." (unless (mu4e~proc-running-p) (mu4e~proc-start)) - (let ((cmd (format "%S" form))) + (let* ((print-length nil) (print-level nil) + (cmd (format "%S" form))) (mu4e-log 'to-server "%s" cmd) (process-send-string mu4e~proc-process (concat cmd "\n"))))