From: Nikolaus Rath <Nikolaus@rath.org>
Date: Fri, 27 Sep 2019 16:03:10 +0000 (+0200)
Subject: Run gnus-summary-prepare-exit-hook after flags have been updated
X-Git-Tag: emacs-27.0.90~1400
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9ba907a5fbafaa323402ec1cfe4239ebf87a8a0a;p=emacs.git

Run gnus-summary-prepare-exit-hook after flags have been updated

* lisp/gnus/gnus-sum.el (gnus-summary-exit): Gnus message flags
must be set before expiration, not afterwards (bug#21071).
---

diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index f83977ac5b8..20f338eda16 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -7290,7 +7290,6 @@ If FORCE (the prefix), also save the .newsrc file(s)."
 	(gnus-score-adaptive))
       (when gnus-use-scoring
 	(gnus-score-save)))
-    (gnus-run-hooks 'gnus-summary-prepare-exit-hook)
     (when gnus-use-cache
       (gnus-cache-possibly-remove-articles)
       (gnus-cache-save-buffers))
@@ -7307,6 +7306,7 @@ If FORCE (the prefix), also save the .newsrc file(s)."
     (unless quit-config
       (gnus-run-hooks 'gnus-exit-group-hook)
       (gnus-summary-update-info))
+    (gnus-run-hooks 'gnus-summary-prepare-exit-hook)
     (gnus-close-group group)
     ;; Make sure where we were, and go to next newsgroup.
     (when (gnus-buffer-live-p gnus-group-buffer)