(gnus-summary-exit-no-update): Update group on exit.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f400ab2..e9575bf 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
        * gnus-sum.el (gnus-summary-exit): Bind gnus-group-is-exiting-p. 
        (gnus-summary-read-group-1): Update group line.
+       (gnus-summary-exit-no-update): Update group on exit.
 
        * gnus-group.el (gnus-group-line-format): Add %*.
        (gnus-group-line-format-alist): Ditto.

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 0a09570..7f1eb02 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -6398,6 +6398,7 @@ If FORCE (the prefix), also save the .newsrc file(s)."
   "Quit reading current newsgroup without updating read article info."
   (interactive)
   (let* ((group gnus-newsgroup-name)
+        (gnus-group-is-exiting-p t)
         (quit-config (gnus-group-quit-config group)))
     (when (or no-questions
              gnus-expert-user
@@ -6441,6 +6442,7 @@ If FORCE (the prefix), also save the .newsrc file(s)."
       (gnus-configure-windows 'group 'force)
       ;; Clear the current group name.
       (setq gnus-newsgroup-name nil)
+      (gnus-group-update-group group)
       (when (equal (gnus-group-group-name) group)
        (gnus-group-next-unread-group 1))
       (when quit-config