From 5c40a414f5179759fb85cb21b34f8c6037cab222 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 27 Sep 2002 08:36:39 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 5 +++++ lisp/gnus-start.el | 8 +++----- 2 files changed, 8 insertions(+), 5 deletions(-) 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 + + * gnus-start.el (gnus-fixup-nnimap-unread-after-getting-new-news): + Protect against non-existent of `nnimap-mailbox-info'. + 2002-09-27 Simon Josefsson * 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) -- 1.7.10.4