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 (file)
--- 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 (file)
--- 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