mirror of https://github.com/djcb/mu.git
mu4e-server: get rid of mu4e--server-sent
It's no longer needed.
This commit is contained in:
parent
5e8c7493d9
commit
bc51989e65
|
@ -664,7 +664,7 @@ Returns either (:update ... ) or (:error ) sexp, which are handled my
|
||||||
(unless (or (not maildir)
|
(unless (or (not maildir)
|
||||||
(file-exists-p
|
(file-exists-p
|
||||||
(mu4e-join-paths (mu4e-root-maildir) maildir)))
|
(mu4e-join-paths (mu4e-root-maildir) maildir)))
|
||||||
(mu4e-error "Target dir does not exist"))
|
(mu4e-error "Target directory does not exist"))
|
||||||
(mu4e--server-call-mu
|
(mu4e--server-call-mu
|
||||||
`(move
|
`(move
|
||||||
:docid ,(if (stringp docid-or-msgid) nil docid-or-msgid)
|
:docid ,(if (stringp docid-or-msgid) nil docid-or-msgid)
|
||||||
|
@ -679,24 +679,17 @@ Returns either (:update ... ) or (:error ) sexp, which are handled my
|
||||||
(mu4e--server-call-mu `(ping)))
|
(mu4e--server-call-mu `(ping)))
|
||||||
|
|
||||||
(defun mu4e--server-queries (queries)
|
(defun mu4e--server-queries (queries)
|
||||||
"Sends queries to the mu server, expecting a (:queries ...) in response.
|
"Sends queries to the mu server, expecting a (:queries ...) sexp in response.
|
||||||
QUERIES is a list of queries for the number of results with
|
QUERIES is a list of queries for the number of results with
|
||||||
read/unread status are returned in the pong-response."
|
read/unread status are returned in the pong-response."
|
||||||
(mu4e--server-call-mu `(queries :queries ,queries)))
|
(mu4e--server-call-mu `(queries :queries ,queries)))
|
||||||
|
|
||||||
(defun mu4e--server-remove (docid)
|
(defun mu4e--server-remove (docid)
|
||||||
"Remove message with DOCID.
|
"Remove message with DOCID.
|
||||||
The results are reporter through either (:update ... )
|
The results are reported through either (:update ... )
|
||||||
or (:error) sexp, which are handled my `mu4e-error-func',
|
or (:error) sexps."
|
||||||
respectively."
|
|
||||||
(mu4e--server-call-mu `(remove :docid ,docid)))
|
(mu4e--server-call-mu `(remove :docid ,docid)))
|
||||||
|
|
||||||
(defun mu4e--server-sent (path)
|
|
||||||
"Tell the mu server we sent a message at PATH.
|
|
||||||
If this works, we will receive (:info add :path <path> :docid
|
|
||||||
<docid> :fcc <path>)."
|
|
||||||
(mu4e--server-call-mu `(sent :path ,path)))
|
|
||||||
|
|
||||||
(defun mu4e--server-view (docid-or-msgid &optional mark-as-read)
|
(defun mu4e--server-view (docid-or-msgid &optional mark-as-read)
|
||||||
"View a message referred to by DOCID-OR-MSGID.
|
"View a message referred to by DOCID-OR-MSGID.
|
||||||
Optionally, if MARK-AS-READ is non-nil, the backend marks the
|
Optionally, if MARK-AS-READ is non-nil, the backend marks the
|
||||||
|
|
Loading…
Reference in New Issue