Synch with Oort Gnus.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f173cbb..dde1f50 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-09-27  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-start.el (gnus-fixup-nnimap-unread-after-getting-new-news):
+       Protect against non-existent of `nnimap-mailbox-info'.
+
 2002-09-27  Simon Josefsson  <jas@extundo.com>
 
        * gnus-start.el (gnus-fixup-nnimap-unread-after-getting-new-news): New.

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index e9ad647..f57d911 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -2923,10 +2923,6 @@ If this variable is nil, don't do anything."
   (when (gnus-boundp 'display-time-timer)
     (display-time-event-handler)))
 
-;; Byte-compiler warning.
-(eval-when-compile
-  (defvar nnimap-mailbox-info))
-
 ;;;###autoload
 (defun gnus-fixup-nnimap-unread-after-getting-new-news ()
   (let (server group info)
@@ -2937,7 +2933,9 @@ If this variable is nil, don't do anything."
                  (setq info (symbol-value sym)))
         (gnus-sethash group (cons (nth 2 info) (cdr (gnus-group-entry group)))
                       gnus-newsrc-hashtb)))
-     nnimap-mailbox-info)))
+     (if (boundp 'nnimap-mailbox-info)
+        (symbol-value 'nnimap-mailbox-info)
+       (make-vector 1 0)))))
 
 
 (provide 'gnus-start)