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

mu4e: start mu4e in compose-handler, when necessary

Browse Source
This commit is contained in:
Dirk-Jan C. Binnema
2020-05-01 22:44:16 +03:00
parent 4f113544f7
commit 59ed21b01a
1 changed files with 7 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
mu4e/mu4e-compose.el
View File

@ -480,7 +480,6 @@ buffers; lets remap its faces so it uses the ones for mu4e."
;; directory. ;; directory.
(setq default-directory (mu4e~get-attachment-dir)) (setq default-directory (mu4e~get-attachment-dir))
(let ((keymap (lookup-key message-mode-map [menu-bar text]))) (let ((keymap (lookup-key message-mode-map [menu-bar text])))
(when keymap (when keymap
(define-key-after (define-key-after
@ -570,17 +569,18 @@ we can decide what we want to do."
(cl-case mu4e-compose-crypto-reply-encrypted-policy (cl-case mu4e-compose-crypto-reply-encrypted-policy
(sign (mml-secure-message-sign)) (sign (mml-secure-message-sign))
(encrypt (mml-secure-message-encrypt)) (encrypt (mml-secure-message-encrypt))
(sign-and-encrypt (mml-secure-message-sign-encrypt)) (sign-and-encrypt (mml-secure-message-sign-encrypt)))
(message "Do nothing"))
(cl-case mu4e-compose-crypto-reply-plain-policy (cl-case mu4e-compose-crypto-reply-plain-policy
(sign (mml-secure-message-sign)) (sign (mml-secure-message-sign))
(encrypt (mml-secure-message-encrypt)) (encrypt (mml-secure-message-encrypt))
(sign-and-encrypt (mml-secure-message-sign-encrypt)) (sign-and-encrypt (mml-secure-message-sign-encrypt)))))
(message "Do nothing")))
)
(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. "Create a new draft message, or open an existing one.
COMPOSE-TYPE determines the kind of message to compose and is a COMPOSE-TYPE determines the kind of message to compose and is a
@ -661,7 +661,6 @@ tempfile)."
;; don't allow undoing anything before this. ;; don't allow undoing anything before this.
(setq buffer-undo-list nil) (setq buffer-undo-list nil)
(when mu4e-compose-in-new-frame (when mu4e-compose-in-new-frame
;; make sure to close the frame when we're done with the message these are ;; make sure to close the frame when we're done with the message these are
;; all buffer-local; ;; all buffer-local;