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

dont erase global-mode-string with context label, but add to it

Browse Source
This commit is contained in:
Antoine Levitt
2016-10-26 08:20:25 +02:00
parent 87ab21702e
commit bc13cfda35
4 changed files with 16 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
mu4e/mu4e-compose.el
View File

@ -402,7 +402,8 @@ buffers; lets remap its faces so it uses the ones for mu4e."
\\{message-mode-map}." \\{message-mode-map}."
(progn (progn
(use-local-map mu4e-compose-mode-map) (use-local-map mu4e-compose-mode-map)
(set (make-local-variable 'global-mode-string) '(:eval (mu4e-context-label))) (make-local-variable 'global-mode-string)
(add-to-list 'global-mode-string '(:eval (mu4e-context-label)))
(set (make-local-variable 'message-signature) mu4e-compose-signature) (set (make-local-variable 'message-signature) mu4e-compose-signature)
;; set this to allow mu4e to work when gnus-agent is unplugged in gnus ;; set this to allow mu4e to work when gnus-agent is unplugged in gnus
(set (make-local-variable 'message-send-mail-real-function) nil) (set (make-local-variable 'message-send-mail-real-function) nil)

18
mu4e/mu4e-headers.el
View File

@ -1082,15 +1082,15 @@ the query history stack."
(setq (setq
mu4e~headers-buffer buf mu4e~headers-buffer buf
mode-name "mu4e-headers" mode-name "mu4e-headers"
mu4e~headers-last-query expr mu4e~headers-last-query expr)
global-mode-string (add-to-list 'global-mode-string
'(:eval '(:eval
(concat (concat
(propertize (propertize
(mu4e~quote-for-modeline mu4e~headers-last-query) (mu4e~quote-for-modeline mu4e~headers-last-query)
'face 'mu4e-modeline-face) 'face 'mu4e-modeline-face)
" " " "
(mu4e-context-label))))) (mu4e-context-label)))))
(switch-to-buffer buf) (switch-to-buffer buf)
(run-hook-with-args 'mu4e-headers-search-hook expr) (run-hook-with-args 'mu4e-headers-search-hook expr)

5
mu4e/mu4e-main.el
View File

@ -75,7 +75,8 @@
overwrite-mode 'overwrite-mode-binary) overwrite-mode 'overwrite-mode-binary)
;; show context in mode-string ;; show context in mode-string
(set (make-local-variable 'global-mode-string) '(:eval (mu4e-context-label))) (make-local-variable 'global-mode-string)
(add-to-list 'global-mode-string '(:eval (mu4e-context-label)))
(set (make-local-variable 'revert-buffer-function) #'mu4e~main-view-real)) (set (make-local-variable 'revert-buffer-function) #'mu4e~main-view-real))
@ -195,7 +196,7 @@ clicked."
(mu4e~main-view-real nil nil) (mu4e~main-view-real nil nil)
(switch-to-buffer mu4e~main-buffer-name) (switch-to-buffer mu4e~main-buffer-name)
(goto-char (point-min)) (goto-char (point-min))
(setq global-mode-string '(:eval (mu4e-context-label)))) (add-to-list 'global-mode-string '(:eval (mu4e-context-label))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Interactive functions ;; Interactive functions

3
mu4e/mu4e-view.el
View File

@ -787,7 +787,8 @@ FUNC should be a function taking two arguments:
(put 'mu4e~view-attach-map 'permanent-local t) (put 'mu4e~view-attach-map 'permanent-local t)
;; show context in mode-string ;; show context in mode-string
(set (make-local-variable 'global-mode-string) '(:eval (mu4e-context-label))) (make-local-variable 'global-mode-string)
(add-to-list 'global-mode-string '(:eval (mu4e-context-label)))
(setq buffer-undo-list t);; don't record undo info (setq buffer-undo-list t);; don't record undo info