From 9707d8301b49ecfce385cf84ad32780c5469e416 Mon Sep 17 00:00:00 2001 From: yoichi Date: Sun, 13 Oct 2002 01:09:17 +0000 Subject: [PATCH] * elmo-dop.el (elmo-folder-status-dop): If spool-folder is absent, set spool-length to 0. --- elmo/ChangeLog | 5 +++++ elmo/elmo-dop.el | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 5057ad9..3be2794 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2002-10-12 Yoichi NAKAYAMA + + * elmo-dop.el (elmo-folder-status-dop): If spool-folder is absent, + set spool-length to 0. + 2002-10-06 Hiroya Murata * elmo-dop.el (elmo-dop-queue-flush): Check obsolete at first. diff --git a/elmo/elmo-dop.el b/elmo/elmo-dop.el index 9c785f1..e64c203 100644 --- a/elmo/elmo-dop.el +++ b/elmo/elmo-dop.el @@ -281,8 +281,10 @@ FOLDER is the folder structure." spool-length (i 0) max-num) - (setq spool-length (car (if (elmo-folder-exists-p spool-folder) - (elmo-folder-status spool-folder)))) + (setq spool-length + (or (car (if (elmo-folder-exists-p spool-folder) + (elmo-folder-status spool-folder))) + 0)) (setq max-num (or (nth (max (- (length number-list) 1) 0) number-list) 0)) -- 1.7.10.4