diff options
| author | Case Duckworth | 2021-05-04 12:55:12 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-05-04 12:55:12 -0500 |
| commit | 8927cf5a8930e14d518f6e1ba2e8a01660d8ec01 (patch) | |
| tree | 05c102b3119f281b42d4080b189eeb0483d1b94c | |
| parent | Remove `idle-require' (diff) | |
| download | emacs-8927cf5a8930e14d518f6e1ba2e8a01660d8ec01.tar.gz emacs-8927cf5a8930e14d518f6e1ba2e8a01660d8ec01.zip | |
Make sure gnus uploads all data to the cloud before burying buffer
| -rw-r--r-- | gnus.el | 6 |
1 files changed, 5 insertions, 1 deletions
| diff --git a/gnus.el b/gnus.el index 886297b..35e9a51 100644 --- a/gnus.el +++ b/gnus.el | |||
| @@ -90,7 +90,11 @@ | |||
| 90 | gnus-interactive-exit nil) | 90 | gnus-interactive-exit nil) |
| 91 | 91 | ||
| 92 | ;; Keybindings | 92 | ;; Keybindings |
| 93 | (define-key gnus-group-mode-map (kbd "q") #'bury-buffer) | 93 | (define-key gnus-group-mode-map (kbd "q") |
| 94 | (defun gnus-cloud-upload-and-bury-buffer () | ||
| 95 | (interactive) | ||
| 96 | (gnus-cloud-upload-all-data) | ||
| 97 | (bury-buffer))) | ||
| 94 | (define-key gnus-group-mode-map (kbd "Q") #'gnus-group-exit) | 98 | (define-key gnus-group-mode-map (kbd "Q") #'gnus-group-exit) |
| 95 | (define-key gnus-group-mode-map (kbd "C-q") #'gnus-group-quit) | 99 | (define-key gnus-group-mode-map (kbd "C-q") #'gnus-group-quit) |
| 96 | 100 | ||