From 380174f92ecc8762f34a9c00731798b697500446 Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 25 Jul 2001 04:26:46 +0000 Subject: [PATCH] * elmo-archive.el (elmo-archive-get-archive-name): Cause an error when unknown archive type is specified. --- elmo/ChangeLog | 5 +++++ elmo/elmo-archive.el | 3 +++ 2 files changed, 8 insertions(+) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index b907103..71b5980 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2001-07-25 Yuuichi Teranishi + + * elmo-archive.el (elmo-archive-get-archive-name): Cause an error when + unknown archive type is specified. + 2001-07-23 Yuuichi Teranishi * elmo-shimbun.el (elmo-folder-open-internal): Fixed. diff --git a/elmo/elmo-archive.el b/elmo/elmo-archive.el index e6b768e..5209923 100644 --- a/elmo/elmo-archive.el +++ b/elmo/elmo-archive.el @@ -344,6 +344,9 @@ TYPE specifies the archiver's symbol." (elmo-archive-folder-archive-type-internal folder))) filename dbdir) + (unless suffix + (error "Unknown archiver type: %s" + (elmo-archive-folder-archive-type-internal folder))) (if elmo-archive-treat-file (if (string-match (concat (regexp-quote suffix) "$") (elmo-archive-folder-archive-name-internal folder)) -- 1.7.10.4