diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2015-04-12 00:38:40 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2015-04-12 00:38:40 -0400 |
| commit | d8591501835d076928ec9a906f20556e749a782c (patch) | |
| tree | 29af39b815f999effee8e49b1c75900c189a2247 /lisp/init-mail.el | |
| parent | 829a24605e1a993537733b206f4c1885f0a309b3 (diff) | |
| download | emacs.d-d8591501835d076928ec9a906f20556e749a782c.tar.gz | |
Avoid saving abbrevs and bookmarks if not default server
Diffstat (limited to 'lisp/init-mail.el')
| -rw-r--r-- | lisp/init-mail.el | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/lisp/init-mail.el b/lisp/init-mail.el index 0163420..eda2883 100644 --- a/lisp/init-mail.el +++ b/lisp/init-mail.el @@ -1,10 +1,15 @@ (require 'init-gnus) -(if (equal (daemonp) "mail") - (progn - (setq mode-line-misc-info (cons " [Mail] " mode-line-misc-info)) - (key-chord-define-global "jg" 'km/mail-map)) - (global-set-key (kbd "C-x m") nil)) +(let ((server (daemonp))) + (cond + ((string= server "default") + (global-set-key (kbd "C-x m") nil) + (setq save-abbrevs 'silently + bookmark-save-flag 1)) + ((string= server "mail") + (setq mode-line-misc-info (cons " [Mail] " mode-line-misc-info)) + (key-chord-define-global "jg" 'km/mail-map) + (setq save-abbrevs nil)))) (provide 'init-mail) |