emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

* hdrs,compose: fix compose-handler naming

This commit is contained in:
djcb 2012-04-23 21:16:20 +03:00
parent 5136daf023
commit c16a66bc58
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
emacs/mu4e-compose.el
View File

@ -336,7 +336,7 @@ use the new docid. Returns the full path to the new message."
(lambda()
(mu4e~proc-add (buffer-file-name) mu4e-drafts-folder))))
;; notify the backend that a message has been sent. The backend will respond
;; with (:sent ...) sexp, which is handled in `mu4e-compose-handler'.
;; with (:sent ...) sexp, which is handled in `mu4e~compose-handler'.
(add-hook 'message-sent-hook
(lambda ()
(set-buffer-modified-p t)
@ -369,7 +369,7 @@ use the new docid. Returns the full path to the new message."
nil nil t)))))
(defun mu4e-compose-handler (compose-type &optional original-msg includes)
(defun mu4e~compose-handler (compose-type &optional original-msg includes)
"Create a new draft message, or open an existing one.
COMPOSE-TYPE determines the kind of message to compose and is a
@ -524,7 +524,7 @@ buffer.
"mu4e's implementation of `compose-mail'."
;; create a new draft message
(mu4e-compose-handler 'new)
(mu4e~compose-handler 'new)
(when to ;; reset to-address, if needed
(message-goto-to)
(message-delete-line)

2
emacs/mu4e-hdrs.el
View File

@ -659,7 +659,7 @@ for draft messages."
;; 'new is special, since it takes no existing message as arg therefore,
;; we don't need to call thec backend, and call the handler *directly*
(if (eq compose-type 'new)
(mu4e-compose-handler 'new)
(mu4e~compose-handler 'new)
;; otherwise, we need the doc-id
(let ((docid (mu4e~docid-at-point)))
(unless docid (error "No message at point."))