(nnimap-update-unseen): New function; update unseen count in

`n-m-info'.
(nnimap-close-group): Call it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a156223..574266b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,9 @@
 
        * nnimap.el (nnimap-fixup-unread-after-getting-new-news): Autoload
        it just in case.
+       (nnimap-update-unseen): New function; update unseen count in
+       `n-m-info'.
+       (nnimap-close-group): Call it.
 
        * gnus-start.el (gnus-setup-news-hook): Add n-f-u-a-g-n-n.
        (gnus-after-getting-new-news-hook): Ditto.

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index f77eeac..b4798dd 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -871,10 +871,22 @@ function is generally only called when Gnus is shutting down."
             (nnheader-report 'nnimap "Group %s selected" group)
             t)))))
 
+(defun nnimap-update-unseen (group &optional server)
+  "Update the unseen count in `nnimap-mailbox-info'."
+  (gnus-sethash
+   (gnus-group-prefixed-name group server)
+   (let ((old (gnus-gethash (gnus-group-prefixed-name group server) 
+                           nnimap-mailbox-info)))
+     (list (nth 0 old) (nth 1 old)
+          (imap-mailbox-status group 'unseen nnimap-server-buffer)
+          (nth 3 old)))
+   nnimap-mailbox-info))
+
 (defun nnimap-close-group (group &optional server)
   (with-current-buffer nnimap-server-buffer
     (when (and (imap-opened)
               (nnimap-possibly-change-group group server))
+      (nnimap-update-unseen group server)
       (case nnimap-expunge-on-close
        (always (progn
                  (imap-mailbox-expunge nnimap-close-asynchronous)