mirror of https://github.com/djcb/mu.git
mu4e-proc: ensure mu4e~call-mu does not truncate
For non-nil settings of print-length, print-level. (and remove an unused defun).
This commit is contained in:
parent
4d3019da7c
commit
7606ca51c1
|
@ -234,16 +234,6 @@ backslashes and double-quotes."
|
||||||
(let ((esc (replace-regexp-in-string "\\\\" "\\\\\\\\" str)))
|
(let ((esc (replace-regexp-in-string "\\\\" "\\\\\\\\" str)))
|
||||||
(format "\"%s\"" (replace-regexp-in-string "\"" "\\\\\"" esc))))
|
(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 ()
|
(defun mu4e~proc-start ()
|
||||||
"Start the mu server process."
|
"Start the mu server process."
|
||||||
(unless (and mu4e-mu-binary (file-executable-p mu4e-mu-binary))
|
(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)
|
(defun mu4e~call-mu (form)
|
||||||
"Call 'mu' with some command."
|
"Call 'mu' with some command."
|
||||||
(unless (mu4e~proc-running-p) (mu4e~proc-start))
|
(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)
|
(mu4e-log 'to-server "%s" cmd)
|
||||||
(process-send-string mu4e~proc-process (concat cmd "\n"))))
|
(process-send-string mu4e~proc-process (concat cmd "\n"))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue