From 278990cb9b7ba672b879b6826f82cf34a18926b1 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 4 May 2021 09:54:59 -0500
Subject: Change gnus-group-mode keybindings

To save some time, I remap 'q' to bury the Gnus buffer, but to keep the
functionality, I moved the original bindings (gnus-group-exit, gnus-group-quit)
to 'Q' and '^Q', respectively.
---
 gnus.el | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'gnus.el')

diff --git a/gnus.el b/gnus.el
index db7b0c9..b7fd69e 100644
--- a/gnus.el
+++ b/gnus.el
@@ -89,6 +89,11 @@
       gnus-read-newsrc-file nil
       gnus-interactive-exit nil)
 
+;; Keybindings
+(define-key gnus-group-mode-map (kbd "q") #'bury-buffer)
+(define-key gnus-group-mode-map (kbd "Q") #'gnus-group-exit)
+(define-key gnus-group-mode-map (kbd "C-q") #'gnus-group-quit)
+
 ;;; Other parameters
 (setq gnus-parameters
       '(("nnimap\\.*"
-- 
cgit 1.4.1-21-gabe81


From 117727151ffb86f8aa9f1f0dcdc0e99fd227a2a9 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 4 May 2021 09:57:13 -0500
Subject: Only show 200 messages in IMAP

---
 gnus.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'gnus.el')

diff --git a/gnus.el b/gnus.el
index b7fd69e..886297b 100644
--- a/gnus.el
+++ b/gnus.el
@@ -97,7 +97,7 @@
 ;;; Other parameters
 (setq gnus-parameters
       '(("nnimap\\.*"
-         (display . all))))
+         (display . 200))))
 
 ;;; Gnus UI options
 (setq gnus-thread-sort-functions '(gnus-thread-sort-by-most-recent-date
-- 
cgit 1.4.1-21-gabe81


From 8927cf5a8930e14d518f6e1ba2e8a01660d8ec01 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 4 May 2021 12:55:12 -0500
Subject: Make sure gnus uploads all data to the cloud before burying buffer

---
 gnus.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'gnus.el')

diff --git a/gnus.el b/gnus.el
index 886297b..35e9a51 100644
--- a/gnus.el
+++ b/gnus.el
@@ -90,7 +90,11 @@
       gnus-interactive-exit nil)
 
 ;; Keybindings
-(define-key gnus-group-mode-map (kbd "q") #'bury-buffer)
+(define-key gnus-group-mode-map (kbd "q")
+  (defun gnus-cloud-upload-and-bury-buffer ()
+    (interactive)
+    (gnus-cloud-upload-all-data)
+    (bury-buffer)))
 (define-key gnus-group-mode-map (kbd "Q") #'gnus-group-exit)
 (define-key gnus-group-mode-map (kbd "C-q") #'gnus-group-quit)
 
-- 
cgit 1.4.1-21-gabe81