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

Add a menu entry for electric-quote-local-mode

Browse Source
This commit is contained in:
Christophe Troestler
2017-01-06 02:11:34 +01:00
parent 9cb0772993
commit a9cbead5af
1 changed files with 21 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
mu4e/mu4e-compose.el
View File

@ -437,16 +437,27 @@ buffers; lets remap its faces so it uses the ones for mu4e."
'(left-curly-arrow right-curly-arrow)) '(left-curly-arrow right-curly-arrow))
(visual-line-mode t)) (visual-line-mode t))
(when (lookup-key message-mode-map [menu-bar text]) (let ((keymap (lookup-key message-mode-map [menu-bar text])))
(define-key-after (when keymap
(lookup-key message-mode-map [menu-bar text]) (define-key-after
[mu4e-hard-newlines] keymap
'(menu-item "Format=flowed" mu4e-toggle-use-hard-newlines [mu4e-hard-newlines]
:button (:toggle . use-hard-newlines) '(menu-item "Format=flowed" mu4e-toggle-use-hard-newlines
:help "Toggle format=flowed" :button (:toggle . use-hard-newlines)
:visible (eq major-mode 'mu4e-compose-mode) :help "Toggle format=flowed"
:enable mu4e-compose-format-flowed) :visible (eq major-mode 'mu4e-compose-mode)
'sep)) :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]) (when (lookup-key mml-mode-map [menu-bar Attachments])
(define-key-after (define-key-after