From a9cbead5af372747e74d40e4a25f215efde78bd6 Mon Sep 17 00:00:00 2001 From: Christophe Troestler Date: Fri, 6 Jan 2017 02:11:34 +0100 Subject: [PATCH] Add a menu entry for electric-quote-local-mode --- mu4e/mu4e-compose.el | 31 +++++++++++++++++++++---------- 1 file changed, 21 insertions(+), 10 deletions(-) diff --git a/mu4e/mu4e-compose.el b/mu4e/mu4e-compose.el index d03ec11b..a936afea 100644 --- a/mu4e/mu4e-compose.el +++ b/mu4e/mu4e-compose.el @@ -437,16 +437,27 @@ buffers; lets remap its faces so it uses the ones for mu4e." '(left-curly-arrow right-curly-arrow)) (visual-line-mode t)) - (when (lookup-key message-mode-map [menu-bar text]) - (define-key-after - (lookup-key message-mode-map [menu-bar text]) - [mu4e-hard-newlines] - '(menu-item "Format=flowed" mu4e-toggle-use-hard-newlines - :button (:toggle . use-hard-newlines) - :help "Toggle format=flowed" - :visible (eq major-mode 'mu4e-compose-mode) - :enable mu4e-compose-format-flowed) - 'sep)) + (let ((keymap (lookup-key message-mode-map [menu-bar text]))) + (when keymap + (define-key-after + keymap + [mu4e-hard-newlines] + '(menu-item "Format=flowed" mu4e-toggle-use-hard-newlines + :button (:toggle . use-hard-newlines) + :help "Toggle format=flowed" + :visible (eq major-mode 'mu4e-compose-mode) + :enable mu4e-compose-format-flowed) + 'sep) + + (define-key-after + keymap + [mu4e-electric-quote-mode] + '(menu-item "Electric quote" electric-quote-local-mode + :button (:toggle . electric-quote-mode) + :help "Toggle Electric quote mode" + :visible (eq major-mode 'mu4e-compose-mode) + :enable (functionp 'electric-quote-local-mode)) + 'mu4e-hard-newlines))) (when (lookup-key mml-mode-map [menu-bar Attachments]) (define-key-after