From: teranisi <teranisi>
Date: Mon, 10 Dec 2001 04:08:20 +0000 (+0000)
Subject: 2001-12-07  Mito <mito@mxa.nes.nec.co.jp>
X-Git-Tag: wl-2_8-root~80
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=bace298301bad24d87b09c629685ed58e8cadac1;p=elisp%2Fwanderlust.git

2001-12-07  Mito <mito@mxa.nes.nec.co.jp>

	* elmo-nntp.el (elmo-nntp-create-msgdb-from-overview-string):
	Check number of overview fields.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index cc629f3..0f99689 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2001-12-07  Mito <mito@mxa.nes.nec.co.jp>
+
+	* elmo-nntp.el (elmo-nntp-create-msgdb-from-overview-string):
+	Check number of overview fields.
+
 2001-12-08  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo.el (elmo-folder-confirm-appends): Changed message.
diff --git a/elmo/elmo-nntp.el b/elmo/elmo-nntp.el
index 27e8e22..7acd49c 100644
--- a/elmo/elmo-nntp.el
+++ b/elmo/elmo-nntp.el
@@ -712,10 +712,11 @@ Don't cache if nil.")
 	(while extras
 	  (setq ext (downcase (car extras)))
 	  (when (setq field-index (cdr (assoc ext elmo-nntp-overview-index)))
-	    (setq field (aref ov-entity field-index))
-	    (when (eq field-index 8) ;; xref
-	      (setq field (elmo-msgdb-remove-field-string field)))
-	    (setq extra (cons (cons ext field) extra)))
+            (when (> (length ov-entity) field-index)
+	      (setq field (aref ov-entity field-index))
+	      (when (eq field-index 8) ;; xref
+		(setq field (elmo-msgdb-remove-field-string field)))
+              (setq extra (cons (cons ext field) extra))))
 	  (setq extras (cdr extras)))
 	(setq overview
 	      (elmo-msgdb-append-element