From bace298301bad24d87b09c629685ed58e8cadac1 Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 10 Dec 2001 04:08:20 +0000 Subject: [PATCH] 2001-12-07 Mito * elmo-nntp.el (elmo-nntp-create-msgdb-from-overview-string): Check number of overview fields. --- elmo/ChangeLog | 5 +++++ elmo/elmo-nntp.el | 9 +++++---- 2 files changed, 10 insertions(+), 4 deletions(-) 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 + + * elmo-nntp.el (elmo-nntp-create-msgdb-from-overview-string): + Check number of overview fields. + 2001-12-08 Yuuichi Teranishi * 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 -- 1.7.10.4