From: yamaoka <yamaoka>
Date: Fri, 27 Sep 2002 08:36:39 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_8-04-quimby~16
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5c40a414f5179759fb85cb21b34f8c6037cab222;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f173cbb..dde1f50 100644
--- 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
--- 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)