diff --git a/emacs/mu4e-compose.el b/emacs/mu4e-compose.el index 20d7df27..f27dc184 100644 --- a/emacs/mu4e-compose.el +++ b/emacs/mu4e-compose.el @@ -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) diff --git a/emacs/mu4e-hdrs.el b/emacs/mu4e-hdrs.el index 2cf28760..c484f262 100644 --- a/emacs/mu4e-hdrs.el +++ b/emacs/mu4e-hdrs.el @@ -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."))