diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-07-12 22:52:16 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-07-13 19:01:02 -0700 |
| commit | 6774d59557b7c2bf0d71b691283c18d5eaaed3a2 (patch) | |
| tree | 111d03e67d4c69e02dc4582de81417397d264b48 | |
| parent | 48885ee51a7fd5df4d9862ee6e09b02bd09f47f5 (diff) | |
| download | dotfiles-6774d59557b7c2bf0d71b691283c18d5eaaed3a2.tar.gz | |
kill all summaries before updating queries
| -rw-r--r-- | .emacs.d/init.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index b8701ab5..e38e18d6 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -2860,11 +2860,14 @@ mutt's review view, after exiting EDITOR." (spw/nm| (mapcar #'cdr process-groups))) (require 'gnus) (require 'nnselect) (unless (gnus-alive-p) (gnus-no-server)) - ;; Kill dead summary, if one exists, in case its query has changed. + + ;; Kill all summaries in case any of their queries have changed. (catch 'done (dolist (buffer (buffer-list)) (when (buffer-local-value 'gnus-dead-summary-mode buffer) (throw 'done (kill-buffer buffer))))) + (gnus-offer-save-summaries) + (with-current-buffer gnus-group-buffer (gnus-topic-mode 0) (cl-loop |