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

mu4e: update query quoting for new parser

Browse Source
This commit is contained in:
djcb
2017-10-27 18:44:19 +03:00
parent 509500a9d2
commit 457a0a17a2
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
mu4e/mu4e-proc.el
View File

@ -235,7 +235,7 @@ The server output is as follows:
existing quotation. In particular, backslashes and existing quotation. In particular, backslashes and
double-quotes." 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) (defun mu4e~proc-send-command (frm &rest args)
@ -244,7 +244,7 @@ Start the process if needed."
(unless (mu4e~proc-running-p) (unless (mu4e~proc-running-p)
(mu4e~proc-start)) (mu4e~proc-start))
(let ((cmd (apply 'format frm args))) (let ((cmd (apply 'format frm args)))
(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"))))
(defun mu4e~proc-start () (defun mu4e~proc-start ()
@ -339,7 +339,7 @@ or an error."
(concat (concat
"cmd:find query:%s threads:%s sortfield:%s reverse:%s maxnum:%d " "cmd:find query:%s threads:%s sortfield:%s reverse:%s maxnum:%d "
"skip-dups:%s include-related:%s") "skip-dups:%s include-related:%s")
(mu4e~escape query) (format "%s" query)
(if threads "true" "false") (if threads "true" "false")
;; sortfield is e.g. ':subject'; this removes the ':' ;; sortfield is e.g. ':subject'; this removes the ':'
(if (null sortfield) "nil" (substring (symbol-name sortfield) 1)) (if (null sortfield) "nil" (substring (symbol-name sortfield) 1))