From 8097f77d0fd9767b7e8b4237f03aa299002a76c0 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Thu, 20 Aug 2015 01:21:52 -0400 Subject: gnus: Remove select/bury commands Haven't been using since moved to using a separate Emacs instance for mail. --- lisp/init-mail.el | 52 ---------------------------------------------------- 1 file changed, 52 deletions(-) (limited to 'lisp') diff --git a/lisp/init-mail.el b/lisp/init-mail.el index b54a45b..f6de078 100644 --- a/lisp/init-mail.el +++ b/lisp/init-mail.el @@ -239,58 +239,6 @@ paragraph." (define-key message-mode-map (kbd "C-c m s") 'km/snip-mail-quote) - -;;; Select and bury - -;; Modified from http://www.xsteve.at/prg/gnus/ - -(defun km/gnus-select-or-bury (&optional plugged) - "Start, select, or bury gnus. -Prefix argument PLUGGED is passed to `gnus-unbury'." - (interactive "P") - (if (km/gnus-bufferp (current-buffer)) - (km/gnus-bury) - (km/gnus-unbury plugged))) - -(defvar km/gnus-window-configuration nil) - -(defun km/gnus-unbury (&optional plugged) - "Unbury Gnus-related buffers. -If PLUGGED is non-nil, start Gnus in a plugged state. This only -has an effect if Gnus is not currently open." - (cond - (km/gnus-window-configuration - (set-window-configuration km/gnus-window-configuration)) - ((get-buffer "*Group*") - (delete-other-windows) - (pop-to-buffer-same-window "*Group*")) - (t - (setq gnus-plugged plugged) - (gnus))) - (setq km/gnus-window-configuration nil)) - -(defun km/gnus-bury () - (when (km/gnus-bufferp (current-buffer)) - (setq km/gnus-window-configuration (current-window-configuration)) - (--each (km/gnus-buffer-list) - (if (eq (current-buffer) it) - (progn - (delete-other-windows) - (bury-buffer)) - (bury-buffer it))))) - -(defun km/gnus-bufferp (buffer) - (with-current-buffer buffer - (derived-mode-p 'gnus-group-mode - 'gnus-summary-mode - 'gnus-article-mode - 'message-mode))) - -(defun km/gnus-buffer-list () - (-filter #'km/gnus-bufferp (buffer-list))) - -(define-key km/mail-map "b" 'km/gnus-select-or-bury) - ;;; Notmuch -- cgit v1.2.3