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

* mu4e-proc.el: do the plumbing for the new sent-message

Browse Source
This commit is contained in:
djcb
2012-03-27 21:17:29 +03:00
parent 6c6b6d2d82
commit 4556a9351a
1 changed files with 19 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
emacs/mu4e-proc.el
View File

@ -46,6 +46,11 @@ argument. See `mu4e-proc-filter' for the format.")
the server process, when some message has been deleted. The the server process, when some message has been deleted. The
function is passed the docid of the removed message.") function is passed the docid of the removed message.")
(defvar mu4e-proc-sent-func 'mu4e-default-handler
"*internal* A function called for each :sent sexp returned from
the server process, when some message has been sent. The
function is passed the docid and the draft-path of the sent message.")
(defvar mu4e-proc-view-func 'mu4e-default-handler (defvar mu4e-proc-view-func 'mu4e-default-handler
"*internal* A function called for each single message sexp "*internal* A function called for each single message sexp
returned from the server process. The function is passed a message returned from the server process. The function is passed a message
@ -96,7 +101,6 @@ to the sent folder using their docid")
process." process."
(let ((type (plist-get info :info))) (let ((type (plist-get info :info)))
(cond (cond
;; (:info :version "3.1")
((eq type 'add) ((eq type 'add)
;; update our path=>docid map; we use this when composing messages to ;; update our path=>docid map; we use this when composing messages to
;; add draft messages to the db, so when we're sending them, we can move ;; add draft messages to the db, so when we're sending them, we can move
@ -269,6 +273,12 @@ updated as well, with all processed sexp data removed."
((plist-get sexp :erase) ((plist-get sexp :erase)
(funcall mu4e-proc-erase-func)) (funcall mu4e-proc-erase-func))
;; receive a :sent message
((plist-get sexp :sent)
(funcall mu4e-proc-sent-func
(plist-get sexp :docid)
(plist-get sexp :path)))
;; receive a pong message ;; receive a pong message
((plist-get sexp :pong) ((plist-get sexp :pong)
(funcall mu4e-proc-pong-func (funcall mu4e-proc-pong-func
@ -429,6 +439,13 @@ set to e.g. '/drafts'; if this works, we will receive (:info :path
response." response."
(mu4e-proc-send-command "ping")) (mu4e-proc-send-command "ping"))
(defun mu4e-proc-sent (draftpath maildir)
"Tell the mu server that message DRAFTPATH has been send and its MAILDIR,
expecting a (:sent <docid> :path <draftpath>) in response."
(mu4e-proc-send-command "sent %s %s" draftpath maildir))
(defun mu4e-proc-view-msg (docid-or-msgid) (defun mu4e-proc-view-msg (docid-or-msgid)
"Get one particular message based on its DOCID-OR-MSGID. The result will "Get one particular message based on its DOCID-OR-MSGID. The result will
be delivered to the function registered as `mu4e-proc-message-func'." be delivered to the function registered as `mu4e-proc-message-func'."