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(-)

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