From 4fd76117fb5e9113ce52bea304406416fb52a54b Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 25 Jul 2001 04:29:37 +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 | 2 ++ 2 files changed, 7 insertions(+) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index c88e31e..6329473 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-util.el (toplevel): Require 'mcharset and 'pces. diff --git a/elmo/elmo-archive.el b/elmo/elmo-archive.el index cd227b2..a7a4672 100644 --- 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 -- 1.7.10.4