From 8097f77d0fd9767b7e8b4237f03aa299002a76c0 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
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/init-mail.el')

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