From: teranisi <teranisi>
Date: Wed, 25 Jul 2001 04:26:46 +0000 (+0000)
Subject: * elmo-archive.el (elmo-archive-get-archive-name): Cause an error when
X-Git-Tag: wl-2_7_2~13
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=380174f92ecc8762f34a9c00731798b697500446;p=elisp%2Fwanderlust.git

* elmo-archive.el (elmo-archive-get-archive-name): Cause an error when
unknown archive type is specified.
---

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  <teranisi@gohome.org>
+
+	* elmo-archive.el (elmo-archive-get-archive-name): Cause an error when
+	unknown archive type is specified.
+
 2001-07-23  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* 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))