From: Lars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Date: Mon, 27 Sep 2010 19:12:48 +0000 (+0200)
Subject: Kill the article buffer later, so that you don't get flashes of other buffers.
X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=09a394b976a79bc8aca8a8cb8cb96c8c4eccdb50

Kill the article buffer later, so that you don't get flashes of other buffers.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8fa8a1bec..6414631b2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-09-27  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* gnus-sum.el (gnus-summary-exit): Kill the article buffer later, so
+	that you don't get flashes of other buffers.
+
 2010-09-27  David Engster  <dengste@eml.cc>
 
 	* nnmairix.el: (nnmairix-replace-group-and-numbers): Deal with NOV as
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 19c2253ae..798a5298d 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -7090,15 +7090,6 @@ If FORCE (the prefix), also save the .newsrc file(s)."
       (when gnus-use-scoring
 	(gnus-score-save)))
     (gnus-run-hooks 'gnus-summary-prepare-exit-hook)
-    ;; If we have several article buffers, we kill them at exit.
-    (unless gnus-single-article-buffer
-      (when (gnus-buffer-live-p gnus-article-buffer)
-	(with-current-buffer gnus-article-buffer
-	  ;; Don't kill sticky article buffers
-	  (unless (eq major-mode 'gnus-sticky-article-mode)
-	    (gnus-kill-buffer gnus-article-buffer)
-	    (setq gnus-article-current nil))))
-      (gnus-kill-buffer gnus-original-article-buffer))
     (when gnus-use-cache
       (gnus-cache-possibly-remove-articles)
       (gnus-cache-save-buffers))
@@ -7147,6 +7138,17 @@ If FORCE (the prefix), also save the .newsrc file(s)."
 	;; Return to group mode buffer.
 	(when (eq mode 'gnus-summary-mode)
 	  (gnus-kill-buffer buf)))
+
+      ;; If we have several article buffers, we kill them at exit.
+      (unless gnus-single-article-buffer
+	(when (gnus-buffer-live-p gnus-article-buffer)
+	  (with-current-buffer gnus-article-buffer
+	    ;; Don't kill sticky article buffers
+	    (unless (eq major-mode 'gnus-sticky-article-mode)
+	      (gnus-kill-buffer gnus-article-buffer)
+	      (setq gnus-article-current nil))))
+	(gnus-kill-buffer gnus-original-article-buffer))
+
       (setq gnus-current-select-method gnus-select-method)
       (set-buffer gnus-group-buffer)
       (if quit-config