mu4e: start mu4e in compose-handler, when necessary

1 files changed, 7 insertions, 8 deletions

diff --git a/mu4e/mu4e-compose.el b/mu4e/mu4e-compose.el
index 2490e3c..d0c8b0b 100644
--- a/mu4e/mu4e-compose.el
+++ b/mu4e/mu4e-compose.el
@@ -480,7 +480,6 @@ buffers; lets remap its faces so it uses the ones for mu4e."
     ;; directory.
     (setq default-directory (mu4e~get-attachment-dir))
 
-
     (let ((keymap (lookup-key message-mode-map [menu-bar text])))
       (when keymap
         (define-key-after
@@ -570,17 +569,18 @@ we can decide what we want to do."
       (cl-case mu4e-compose-crypto-reply-encrypted-policy
         (sign (mml-secure-message-sign))
         (encrypt (mml-secure-message-encrypt))
-        (sign-and-encrypt (mml-secure-message-sign-encrypt))
-        (message "Do nothing"))
+        (sign-and-encrypt (mml-secure-message-sign-encrypt)))
     (cl-case mu4e-compose-crypto-reply-plain-policy
       (sign (mml-secure-message-sign))
       (encrypt (mml-secure-message-encrypt))
-      (sign-and-encrypt (mml-secure-message-sign-encrypt))
-      (message "Do nothing")))
-  )
+      (sign-and-encrypt (mml-secure-message-sign-encrypt)))))
 
+(defun mu4e~compose-handler (compose-type &optional original-msg includes)
+  "Call mu4e~compose-handler (see for details), starting mu4e if
+necessary first."
+  (mu4e~start (lambda() (mu4e~compose-handler-real compose-type original-msg includes))))
 
-(cl-defun mu4e~compose-handler (compose-type &optional original-msg includes)
+(cl-defun mu4e~compose-handler-real (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
@@ -661,7 +661,6 @@ tempfile)."
   ;; don't allow undoing anything before this.
   (setq buffer-undo-list nil)
 
-
   (when mu4e-compose-in-new-frame
     ;; make sure to close the frame when we're done with the message these are
     ;; all buffer-local;