From 181e464e23527327d11a70dcf1df8a9853e79e11 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Sun, 3 Jun 2018 18:32:04 -0400 Subject: server: Remove mail-specific instance Since the gnus to notmuch switch for my main mail, I'm not sure I have much use for this. --- init.el | 16 +++------------- 1 file changed, 3 insertions(+), 13 deletions(-) diff --git a/init.el b/init.el index fb4ea0c..48a5643 100644 --- a/init.el +++ b/init.el @@ -2418,8 +2418,7 @@ (unless (server-running-p) (server-start)) (let ((server (daemonp))) - (cond - ((string= server "default") + (when (string= server "default") ;; Remove all mail map bindings except notmuch-related ones. (global-set-key (kbd "C-x m n") #'notmuch) (global-set-key (kbd "C-x m .") #'km/notmuch-show-at-point) @@ -2427,17 +2426,8 @@ (add-hook 'kill-emacs-hook #'km/pydoc-save-names-file)) (savehist-mode 1) (setq save-abbrevs 'silently - bookmark-save-flag 1)) - ((string= server "mail") - (setq mode-line-misc-info - (cons (propertize " [Mail] " 'face 'font-lock-doc-face) - mode-line-misc-info)) - (key-chord-define-global "jg" 'km/mail-map) + bookmark-save-flag 1) (after 'notmuch-lib - (define-key notmuch-common-keymap "0" #'km/notmuch-sync-mail)) - (setq savehist-file (concat savehist-file "-mail")) - (savehist-mode 1) - (setq recentf-save-file "~/.emacs.d/cache/recentf-mail") - (setq save-abbrevs nil))))) + (define-key notmuch-common-keymap "0" #'km/notmuch-sync-mail))))) ;;; init.el ends here -- cgit v1.2.3