diff options
| author | Nikolaus Rath | 2019-09-27 18:03:10 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-09-27 18:03:10 +0200 |
| commit | 9ba907a5fbafaa323402ec1cfe4239ebf87a8a0a (patch) | |
| tree | 735b2f41151747715d28890d4961ed5c97f56413 | |
| parent | c86d8d03fbdc545dade5f5ee96d45e0c140f3b82 (diff) | |
| download | emacs-9ba907a5fbafaa323402ec1cfe4239ebf87a8a0a.tar.gz emacs-9ba907a5fbafaa323402ec1cfe4239ebf87a8a0a.zip | |
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).
| -rw-r--r-- | lisp/gnus/gnus-sum.el | 2 |
1 files changed, 1 insertions, 1 deletions
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)." | |||
| 7290 | (gnus-score-adaptive)) | 7290 | (gnus-score-adaptive)) |
| 7291 | (when gnus-use-scoring | 7291 | (when gnus-use-scoring |
| 7292 | (gnus-score-save))) | 7292 | (gnus-score-save))) |
| 7293 | (gnus-run-hooks 'gnus-summary-prepare-exit-hook) | ||
| 7294 | (when gnus-use-cache | 7293 | (when gnus-use-cache |
| 7295 | (gnus-cache-possibly-remove-articles) | 7294 | (gnus-cache-possibly-remove-articles) |
| 7296 | (gnus-cache-save-buffers)) | 7295 | (gnus-cache-save-buffers)) |
| @@ -7307,6 +7306,7 @@ If FORCE (the prefix), also save the .newsrc file(s)." | |||
| 7307 | (unless quit-config | 7306 | (unless quit-config |
| 7308 | (gnus-run-hooks 'gnus-exit-group-hook) | 7307 | (gnus-run-hooks 'gnus-exit-group-hook) |
| 7309 | (gnus-summary-update-info)) | 7308 | (gnus-summary-update-info)) |
| 7309 | (gnus-run-hooks 'gnus-summary-prepare-exit-hook) | ||
| 7310 | (gnus-close-group group) | 7310 | (gnus-close-group group) |
| 7311 | ;; Make sure where we were, and go to next newsgroup. | 7311 | ;; Make sure where we were, and go to next newsgroup. |
| 7312 | (when (gnus-buffer-live-p gnus-group-buffer) | 7312 | (when (gnus-buffer-live-p gnus-group-buffer) |