acdw/emacs
acdw
/
emacs
1
2
Fork 0
Code Issues 4 Pull Requests Releases Activity

Make sure gnus uploads all data to the cloud before burying buffer

This commit is contained in:
Case Duckworth 2021-05-04 12:55:12 -05:00
parent 91a22256da
commit 8927cf5a89
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gnus.el
View File

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