From d8591501835d076928ec9a906f20556e749a782c Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Sun, 12 Apr 2015 00:38:40 -0400 Subject: Avoid saving abbrevs and bookmarks if not default server --- lisp/init-mail.el | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) (limited to 'lisp/init-mail.el') 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) -- cgit v1.2.3