* 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 c88e31e..6329473 100644 (file)
--- 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-util.el (toplevel): Require 'mcharset and 'pces.

diff --git a/elmo/elmo-archive.el b/elmo/elmo-archive.el
index cd227b2..a7a4672 100644 (file)
--- a/elmo/elmo-archive.el
+++ b/elmo/elmo-archive.el
@@ -298,6 +298,8 @@ TYPE specifies the archiver's symbol."
   (let ((dir (elmo-archive-get-archive-directory folder))
         (suffix (elmo-archive-get-suffix type))
        filename dbdir)
+    (unless suffix
+      (error "Unknown archiver type: %s" type))
     (if elmo-archive-treat-file
        (if (string-match (concat (regexp-quote suffix) "$") folder)
            (expand-file-name